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PREFACE 



This publication describes the internal 
design of the IBM DOS/YS COBOL compiler. 
The manual is intended for use by persons 
involved in program support and by systems 
programmers involved in altering the 
program design for installations reguiring 
such alteration. It supplements the 
compiler listing and its comments but is 
not a substitute for them. 

The publication is divided into the 
following parts; 

• An introduction that describes the 
compiler functions and specifies the 
relationship of the compiler to the 
operating system. 

• A Method of Operations section that 
includes a chapter on each of the 
compiler phases. Within these 
chapters, the material is organized by 
phase functions and is not necessarily 
presented in the order in which the 
phase operations are performed. 

• A Program Organization section that 
includes one chart of the overall logic 
flow for each phase and other charts 
showing detailed descriptions of some 
of the major phase routines. 

• A Directory section that shows register 
usage, flowchart labels, the tables 
used by each phase, and a linkage 
editor map. 

• A Data Areas section showing the 
formats of the compiler Communication 
Region, the dictionary, the internal 
texts, the tables that occupy the 
table-handling area, and the tables 
that are created for object-time 
debugging purposes. 

• A Diagnostic Aids section. 

• An appendix that describes the routines 
that handle compiler tables and the 
dictionary. 

• An appendix that describes the object 
module produced by the compiler. 

• An appendix that describes the Report 
Writer subprogram. 



• An appendix showing the generated 
coding for input/output verbs. 



• A Glossary of special terms. 

• Poldout diagrams 

• An index. 

Effective use of this manual requires an 
extensive knowledge of the IBM Assembler 
Language, DOS/VSE System Control, and the 
IBM DOS/VS COBOL language. Prerequisite 
and related publications include: 

IBM Operator's Library DOS/VSE Operating 
Procedures , GC33-5378 

IBM OS/VS - pOS/ySE - VM 370 Assembler 
Language , GC33-4010 

IBM DOS/VSE System Control Statements , 
GC33-5376 

IBM DOS/VSE System Management Guide, 
GC33-5371 

IBM DOS/VSE System Utilities , GC33-5381 

IBM VS COBOL for DOS/VSE , GC26-3998 

Using VSE/VSAM Commands and Macros , 
SC24-5144 

VSE/Advanced Functions Macro Reference, 
SC24-5211 

VSE/Advanced Functions Macro User's 
Guide , SC24-5210 

VSE System Data Management , GC24-5209 

Prerequisite Program Product documents 
include: 

IBM DOS/VS COBOL Compiler and Library 
Programmer's Guide , SC28-6478 

IBM DOS/VS COBOL Compiler and Library 
Installation Reference Material , 
SC28-6479 

IBM DOS/VS COBOL Subroutine Library 
Program Logic , LY28-6424 



Summary of Amendments Number 1 



Date of Publication: 1 5 May 1 98 1 

Form of Publication: Revision, LY28-6423-2 

DOS/VS COBOL RELEASE 3 

New: Programming Feature 

The text has been updated to reflect Release 3 of the DOS/VS COBOL Compiler. 
Major updates include: 

• Phase 35, a new phase that processes USE FOR DEBUGGING statements and 
their operands. 

• Phase 45, a new phase that processes UNSTRING verb strings. 

• Changes to many flowcharts have been made, and flowcharts have been added 
for phases 04, 05, 06, 08, 35, 45, 80, and 00 (PLSCALL routine). 

• Significant updates have been made to the Directory section, and to the 
Communications Region, Table Formats, and Text Formats parts of the Data 
Areas section. 

Miscellaneous Changes 

Maintenance: Documentation Only 

Some maintenance changes have also been made. 



Summary of Amendments iii 
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SECTION 1. 



INTRODUCTION 



The IBM DOS/VS COBOL Compiler analyzes 
source modules written in the COBOL language 
and translates them into object modules. 
This publication describes the 
characteristics of the object program that 
it produces. 



RELATIONSHIP TO THE DOS/VS SYSTEM 

A COBOL compilation is a run unit under 
the control of the IBM DOS/VS System. The 
compiler uses the DOS/VSE System Control 
Program for input/o'utput and other services. 
For a general description of the System 
Control Program, refer to IBM DOS/VSE 
System Management Guide r VSE/Advanced 
Functions Macro Reference / and VSE/Advanced 
Functions Macro User's Guide. 



PHYSICAL CHARACTERISTICS 

' The compiler consists of 28 phases; from 
10 to 14 of these phases perform the actual 
I transformation of a source module into an 
I object program. Phases 05 , 06 , and 08 are 
called only if an LST card, which specifies 
the Lister option, is present. Phase 12 is 
called only if a Report Section appears in 
the Data Division. Phase 35 is called only 
if WITH DEBUGGING MODE and USE FOR 
DEBUGGING declaratives are present. Phase 
45 is entered only if an UNSTRING verb is 
encountered in the source program. If 
optimization of the object code has been 
requested through the OPT option, phases 
62, 63, and 64 replace phase 60. Phase 80 
is called to flag source statements that do 
not meet the Federal Information Processing 
Standard when the LVL option is specified. 

Phases 25, 65, 61, and 70 are also 
optional phases: phases 25 and 65 generate 
debugging information for the SYMDMP, FLOW, 
and/or STATE options; phase 61 produces a 
cross-reference listing if the user 
requests one; and phase 70 is used to list 
the error messages if errors were found in 
the source module. 

Of the other phases, phase 00 acts as the 
interface between the compiler and the 
operating system, phase 01 performs compiler 
initialization, and phase 04 resolves BASIS 
and COPY statements. 



The phases are organized into an overlay 
structure; but the overlays are controlled 
through phase 00. Phase 00 is resident in 
lower storage throughout compilation. It 
links to other phases as they are needed. 
The linkage sequence is as follows: 

Phase 00 links to phases 01, 04 (if LIB), 
05 (if LST), 06 (if LST), 08 (if LST), 10, 
12, 11, 20, 21, 22, 25 (if SYMDMP), 30, 35, 
(if USE-FOR-DEBUGGING) , 40, 45 (if 
UNSTRING), 50, 51, 60, 62, 63, 64, 65 (if 
SYMDMP), 61 (if XREF, SXREF, VERBSUM, or 
VERBREF) , 70 (if any diagnostic messages are 
to be written) , and 80 (if LVL) . 

Most phases occupy the portion of virtual 
storage contiguous to phase 00. 



Supervisor 



Compiler Common 



PHOO 
(Includes LIOCS DTFSD Modules) 



Phase 01 
(Overlaid after execution) 



Tables 



Dictionary 



Work File Buffers 



DTFMT LIOCS Module 
(Present only if the user specifies mixed 
(Tape and Disk) work files) 



System File Buffers 



Figure 1 . Compiler Storage Layout 

I Phase 00 initially occupies 15-16K bytes 
I of storage (where K=1024 decimal). Phase 00 
occupies about 13K bytes when phases 04 
through 30 are processing; it occupies about 
12K bytes when phases 35 through 80 are 
loaded. In addition, tables created by 
other phases require space in storage. The 
autnount varies greatly with each compilation. 
The approximate sizes of the other phases 
are: 



Phase 01 - 
Phase 04 - 
Phase 05 - 



7K bytes 
12K bytes 
2 OK bytes 
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Phase- 06 
Phase 08 
Phase 10 
Phase 11 
Phase 12 
Phase 20 
Phase 21 
Phase 22 
Phase 25 

I Phase 30 

I Phase 35 
Phase 40 

I Phase 45 
Phase 50 
Phase 51 
Phase 60 
Phase 61 
Phase 62 
Phase 63 
Phase 64 
Phase 65 
Phase 70 

I Phase 80 



4K bytes 
2 OK bytes 
34K bytes 
30K bytes 
33K bytes 
23K bytes 
38K bytes 
26K bytes 

6K bytes 
16K bytes 

7K bytes 
44K bytes 

6K bytes 
4 OK bytes 
40K bytes 
32K bytes 

8K bytes 
17K bytes 

9K bytes 
22K bytes 

6K bytes 
49K bytes 
36K bytes 



OPERATIONAL CONSIDERATIONS 



Input to the DOS/VS compiler consists of 
a source program written in the DOS/VS 
COBOL language. Input is read from either 
the SYSIPT or the SYSSLB file. 

Output depends on the options that are 
in effect for the particular compilation. 
These options may be the installation 
default options set within the compiler or 
the overrides set by the programmer on the 
OPTION statement, the CBL card or the LST 
card. The "Compiler Options" section in 
this chapter describes each of these 
options- Figure 2 summarizes the output 
produced by the compiler. The phases are 
shown in the order in which they are 
loaded. 



than the last, until it produces an object 
module suitable for input to the linkage 
editor. Ii^ure 3 shows the various texts 
and the piiases which build their, as well as 
the files on which they are passed from 
phase to phase. 



Each translation phase scans its input 
for errors and takes appropriate action. 
Unless a termination error occurs, it 
translates part or all of its input into < 
new text, further alters what had been 
bequn by a previous phase, or sometimes 
passes along existing text to a later 
phase. This process continues through 
phase 6 or phase 64, when the object 
module is assembled. 



The phases communicate by placing data 
in a communications area (COMMON) in 
storage, entries in the dictionary and 
other tables, and text on work files 
SYSOOl, SYS002, SYS003, and SYSOOU. When 
the SYMDMP, VERBREF, Or VERBSUM option is 
specified, an additional work file, SYS005 
is also used. When LVL is specified, 
SYS006 is used. Some of the tables are 
built, used, and released within a single 
phase, and others are passed to later 
phases which may or may not irrirediately 
follow. 



Diagram 1 shows the output and the flow 
of information and control from phase to 
phase; it is designed to supplement the 
rest of this discussion. The phases are 
discussed below in functional groups rather 
than in numerical order. 



DESIGN OF THE COMPILER 



The compiler translates the source 
program into a series of internal compiler 
texts, each more similar to machine code 
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j Phase i File 
^ + 



Contents 



j Options Required 



1 01 1 SYSLST 1 List Of options | LIST | 
1 1 SYSLST 1 Error messages resulting from ] LIST j 
1 j 1 compiler initialization | j 
1 1 SYSLST® 1 Source coding j LIB | 

^ + _- — + + ^ 

1 04 1 SYSLST 1 Source coding 1 LIB 1 

^ — . + + + ^ 

1 08 1 SYSLST 1 Detailed and summary listings | LST | 
1 1 SYSPCH 1 Reformatted source deck j LST | 

1 10 1 SYSLST^r^ 1 Source coding of Identification, Environ- | LIST | 
1 1 1 raent, and Data Divisions (less Report j j 
1 1 1 Section) j j 

i. + + + ^ 

1 12 1 SYSLST^, ^ 1 Source coding of Report Section ] LIST | 
Y ^ ^ + ^ 

1 11 1 SYSLST^, s j Source coding of Procedure Division | LIST | 
(. + + + ^ 

1 25 I SYS005 1 SYMDMP Dictionary (DATATAB) j SYMDMP^ j 
I. + + + ^ 

|. + + + ^ 

1 60 I SYSLST 1 Object module 1 LISTX and NOCLIST'* | 
I or 1 SYSLST | Object module (condensed) | CLIST** j 

1 1 SYSLNK 1 Object module | CATAL or LINK j 
1- ^ ^ + ^ 

1 65 1 j Debugging information in object module or) FLOW, STATE, | 
1 1 1 on SYS005 1 or SYMDMP* | 
j. + + + ^ 

1 61 1 SYSLST 1 Cross-reference tables | SXREF, XREF, | 
III 1 VERBSUM or VERBREF | 
l- + ^ + ^ 

1 70 1 SYSLST 1 Error messages j ERRS and FLAGE j 
1 1 SYSLST 1 Error and warning messages j ERRS and FLAGW j 
1- + + + ^ 

1 80 1 SYSLST 1 Source program with FIPS flagging | LVL | 

L X ± _ - _ — _ L J 


r 7 — ' — — — k — — _ ^ 

1 aThe FLOW, STATE, or SYMDMP option is required for phases 25 and 65. | 
1 ^The OPT option is required for phases 62, 63, and 64. | 
1 '♦May be changed by SUPMAP option (see "Compiler Options" in this chapter). j 

I for phase 80 input. j 
1 ®Only if LIB, NOLVL, and no Lister options. | 



Figure 2. Compiler Output 
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r T T T 

1 1 Produced or Passed | I 

, ^ ^ -r ^ . . 1 

1 Text JByCPh) |To(Ph) | On(File) | Description | 
1 _ 1 1 1 _ _ _ i._ «. _ J 


r T — T T- - - t- — - ~ . , 1 

JIP J05 j 06 ISYS002 | Source program with syntactic markers | 
1 III 1 inserted j 

j. ^ 4 +- f — - - - - ^ 


1 IP j06 1 08 |syS002 1 Source program with cross-reference j 

i. ^ + + + ^ 

JData IC 10 |20 |SYS003 | I/O and data items from source program | 
1 III Environment and Data Divisions j 

IPC 12 |30 ISYS002 j Generated Report Writer subprogram from | 
1 III Report Section of source program Data | 
1 ill Division j 

j. + + + + ^ 

JData IC 12 |20 |SYS003 j Data items from source program Report | 
j III Section | 

^ + + + + ^ 

jPO 11 |30 ISYS002 1 Translation of source program Procedure | 
1 III Division j 

{Data IC 20 |22 |SYS004 ] Translation of FDs and SDs by phase 10; | 
j 1 1 1 passed unchanged j 

jATF 20 |22 ISYS004 j Record Descriptions of levels 01-49, 66, 77, j 
1 ill and 88. ATF-text is used as part of the | 

I. + + ^ + ^ 

JData A 20 |22 |SYS004 | Constants defined by VALUE clauses. This | 
I (Incomplete) | | | text has a 2-byte prefix for identification, j 
1 ill t»ut lacks location fields j 
J. + + + + ^ 

jPO 22 J30 ISYS002 j Generated Q-Routines from OCCURS ... DEPENDING j 
1 III ON clauses j 
^ + + + + ^ 

{Data IC 22 | 21 | SYS003 | Translation of FDs and SDs by Phase 10; | 
1 1 1 i Passed unchanged | 
I. + + + + ^ 

|Data A 22 | 21 |SYS003 j Remainder of the source program Data | 
1 III Division. This text has a 2-byte prefix forj 

|. ^ + 1 + ^ 

|DEF 22 1 21 ISYS003 | Data-names and file-names from Data Division| 
1 III for use by phase 61 in producing the | 
1 III cross-reference listing. This DEF-text is | 
1 III put out by phase 22 when SXREF, XREF, | 

1 III specified. When SYMDMP has been specified, ( 
I III phase 21 copies the text onto SYS004. If | 
1 III SXREF, XREF, VERBREF, or VERBSUM has not j 
1 III been specified, phase 60 reads the text and j 
1 I 1 1 ignores it. j 
J. ^ ^. ^ ^ ^ 

IFTL 22 |21 ISYS003 | FDs and SDs | 

L _ X L S. — — X — — _ J 


r J. _ — J. _ — _ ^ 

1 ^Phase 60 is replaced by phases 62, 63, and 6U when the optimizer option (OPT) has beenj 
1 specified. | 
1 ^Error text is treated somewhat differently. It is written on SYS003 for phase 70 by | 
1 phase 60 or 64 only if the ERRTBL table cannot accommodate it. It is produced by all | 
i phases between phase 01 and 51, and the accumulation is passed on SYS004. Phase 60 or| 
1 64 or phase" 70 (if phase 60 or 64 text processing is bypassed or if SYNTAX is on) 
1 reads it from SYS004. | 
jawhen OPT is specified, file SYS004 is used for REF-text. 1 

L 1 



Figure 



List of Internal compiler Texts (Part 1 of 3) 
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Text 



Produced or Passed 



T T 

By(Ph) |To(Ph) | On (File) 



Description 



Data A 



21 



60 or 1SYS004 
I 



Coding similar to assembler language for 
translation into data and global table 
portions of object module 



DEF 



21 



60 or 
6t»i 



SYS004 



Data-names and file-names from Data Division 
This DEF-text is put out by phase 22 when 
SXREF, XREF, VERBREF,, VERBSUM, or SYMDMP has 
been specified. When SYMDMP has been 
specified, phase 21 copies the text onto 
SYS004. If SXREF, XREF, VERBREF., or VERBSUM 
has not been specified, phase 60 reads the 
text and ignores it. 



PO 



21 



30 



ISYS002 



VCONs for system modules, such as logic 
modules that will be required, determined 
from Data Division statements 



DEF 



30 



60 or JSYSOOU 
641 I 



Procedure-names for use by phase 61 in 
producing the cross-reference listing 



PI 



30 



40.or JSYSOOS 
35^ 



1 



Further translation of PO-text. Names have 
been replaced by attributes; CORRESPONDING 
statements have been expanded 



P1A 
I - 
P2 



lil 



40 



SYS002 



Pi -text with debug text included 



40 



50 



T 



-^- 



SYS001 



Further translation of PI -text. A more 
precise and expanded version of Procedure 
Division statements 



-t 



n 



ATM 

I 

P2 



40 

-i 1 

45 



45- 



SYS002 



I ! r^-text tot tne i 



An internal compiler text used in creating 
P 2 -text for the UNSTRING verb 



50 andlSYSOOl 

51 I 



Text for the UNSTRING verb 



Intermediate A 



50 



51 



ISYS002 



Procedure A-text and Optimization A-text 
elements with an identifying prefix of X'27* 
or X'28' 



Optimization A 



50 



60 or ISYS003 
62»- 1 



A special text, consisting of such items as 
virtual s and literals, used by phase 60 or 
phase 62 to eliminate storage duplication 



iphase 60 is replaced by phases 62, 63, and 64 when the optimizer option (OPT) has been 
specified- 

^Error text is treated somewhat differently. It is written on SYS003 for phase 70 by 
phase 60 or 64 only if the ERRTBL table cannot accommodate it. It is produced by all 
phases between phase 01 and 51, and the accumulation is passed on SYS004. Phase 60 or 
64 or phase 70 (if phase 60 or 64 text processing is bypassed or if SYNTAX is on) 
reads it from SYS004. 

^When OPT is specified, file SYS004 is used for REF-text. 

'*When WITH DEBUGGING MODE is specified and there are USE FOR DEBUGGING declaratives 
present. 
^When UNSTRING is encountered. 

Figure 3. List of Internal Complex Texts (Part 2 of 3) 
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Text 



Procedure A 



Produced or Passed 



T T 

By(Ph) |To(Ph) I On (File 

+ + 

SYSOOl 



51 



60 or 
62 and 
63^ 



Description 



Coding similar to assembler language coding. 
It is ready for conversion into the object 
module 



Optimization A 



51 



60 or 
62^ 



SYS003 



A special text, consisting of such items as 
virtuals and literals, used by phase 60 or 
phase 62 to eliminate storage duplication 



Procedure Al 



63 



64 



SYS002 



Coding produced from Procedure A- text, 
optimized to eliminate unnecessary Procedure 
Division instructions. It is similar to 
assembler language, and is ready for 
conversion into the object module 



60 or 

64^ 



70 



SYS003 



Error Text^ 



70 



SYSOOU 



Error Text* 



REF 



60 
641- 



61 



SYS003 



61 



SYS00U3 



For cross-reference table. This text is 
■I passed only if the SXREF, XREF, VERBREF, 
or VERBSUM option is in effect 



DEF 



60 or 

64 



61 



SYSOOl 



For cross-reference table. This text is 
passed only if the SXREF, XREF, VERBREF, or 
VERBSUM option is in effect 



Debug 



60 



65 



SYS002 



For object- time debugging. This text is 
passed only if the SYMDMP or STATE option is 
in effect 



^Phase 60 is replaced by phases 62, 63, and 64 when the optimizer option (OPT) has been 
specified- 

^Error text is treated somewhat differently. It is written on SYS003 for phase 7 by 
phase 60 or 64 only if the ERRTBL table cannot accommodate it. It is produced by all 
phases between phase 01 and 51, and the accumulation is passed on SYS004. Phase 60 or 
64 or phase 70 (if phase 60 or 64 text processing is bypassed or if SYNTAX is on) 
reads it from SYS004. 

^When OPT is specified, file SYS004 is used for REF-text, 

••when WITH DEBUGGING MODE is specified and there are USE FOR DEBUGGING declaratives 
present. 

^When UNSTRING is encountered. 



L 

Figure 3. List of Internal Compiler Texts (Part 3 of 3) 



J 



GROUP 1; Control and Initialization 



Phase 00 controls the flow. It receives 
control from and relinquishes it to the DOS 
system. It interfaces with the system for 
such Control Program services as 
input/output requested by other phases. 

Phase 00 also serves as an interface 
between the other phases, controlling the 



flow and holding shared information in 
COMMON (see "Section 5. Data Areas"). 
After each phase, except phase 80, control 
returns to phase 00, which links to the 
next one; phase 80 returns control to the 
DOS/VS system. The Table Area Management 
Executive Routines (TAMER) , part of Phase 
00, allocate storage and process tables for 
the other routines. The "Table and 
Dictionary Handling" chapter describes the 
function of TAMER. For descriptions of 
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tables handled by TAMER, and for the 
dictionary format, see "Sect.i'-^i^ ^ i 
Areas". 



:ion 5. Data 



GROUP 3; Translating the Identification, 
Environment, and Data Divisions 



Phase 01 is logically a subroutine of 
phase 00 but does not remain in storage 
once its tasks are accomplished. This 
phase sets the options applicable for the 
compilation and opens all files. 

If the BASIS or COPY function is used, 
the LIB option must be specified on the CBL 
card. When LIB is specified. Phase 04 
reads the source program and resolves BASIS 
and COPY statements by performing syntax 
analysis on these statements and by writing 
the user created COBOL libraries inline 
with the remainder of the source program on 
SYS004. E-text for BASIS and COPY 
functions is written on SYS003 and the 
entire source language listing is produced 
on SYSLST (or SYS006 for LVL option). 



GROUP 2: Reformatting the Source Deck 



If the LST option is specified, phases 
05, 06, and 08 produce a reformatted source 
program with embedded cross-reference 
information and a summary of cross-reference 
information on SYSLST. Optionally, they • 
also produce a reformatted source deck on 
SYSPCH. These phases also write the source 
program on SYS004. 



Phases 10, 20, 22, and 21 process the 
Identification, Environment, and Data 
Divisions, with the exception of the Report 
Section, if any, (discussed with Group 3, 
below) . Those source statements requiring 
translation are changed to Data IC-text in 
phase 10, Each of the other three phases 
translates a portion of this Data IC-text 
into Data A-text. The result is later 
joined to the Procedure Division by Phase 
60 or to Phase 64 (Group U, below) if the 
optimizer option has been specified. 

DEF-text, which provides references to 
data-names and file-names required for 
cross-reference listings, is created in 
phase 22 and passed through phase 21 to 
phase 60 or phase 64. Phase 22 also enters 
complete entries for LDs and RDs 
(Record- level descriptions) and partial 
(dummy) entries for SDs and FDs in the 
dictionary. The SD and FD entries are 
completed by phase 21, and the dictionary 
is then ready for use by phase 30 and by 
phase 25 (if the SYMDMP option is in 
effect). PO-text, the first form of 
internal procedure text (see Group 3 
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below) , is created by phase 22 for 
Q- Routines and by phase 21 for VCONs. 
Q-Routines are special routines created to 
handle OCCURS clauses with the DEPENDING ON 
option. They are explained further in the 
chapter on phase 22. The PO-text is placed 
on SYS002 for later use by phase 30. 
Finally, if the LIST option is in effect 
and the LST option is not in effect, phase 
10 produces a source language listing of 
the Identification, Environment, and Data 
Divisions on SYSLST (or SYS006 for LVL 
option). (If LIB was specified, the source 
listing is produced by Phase 04.) 

Each of these phases scans its input 
text for errors and adds any necessary 
diagnostics, written in E-text, to the 
textual flow. The accumulated E-text is 
intermingled with the Data A-textand 
DEF-text on SYS004, and all three provide 
part of the input for Phase 60 or Phase 64. 
If a listing of error messages is to be 
produced, Phase 70 is later called in to 
produce it. 

The translation process can be 
visualized from the contents of the work 
files produced by the phases. These work 
files are shown in Figure 4. Note that, in 
addition to the contents shown, the work 
files contain E-text and DEF-text. The 
texts are intermingled on the work files, 
but they are readily distinguishable by 
their prefixes. The formats of the texts 
are shown in "Section 5. Data Areas." 



[These last two texts are placed on SYS001 
land SYS003 for phase 60 or phase 62. 

Phase 60 converts Procedure A-text into 
the machine language program. When the 
optimizer option (specified by OPT on the 
CBL card) is in effect, phases 62 and 63 
read Procedure A-text and phase 63 converts 
it into Procedure Al-text and passes it to 
phase 64. Phase 64 then converts Procedure 
Al-text into the machine language program. 

Phase 11 also writes a source listing of 
the Procedure Division on SYSLST (SYS 006 
for LVL option) if the LIST option is in 
[effect. (If LIB was specified, Phase 04 
writes the source listing.) Phase 30 
writes a glossary on SYSLST (SYS006 for LVI 
option) if the SYM option is in effect. 
Phase 30 also creates DEF-text for 
procedure-names and places it on SYS004 foi 
later use in producing the cross-reference 
listing. 

Each of these phases scans its input 
text for errors and adds any necessary 
diagnostics, written in E-text, to the 
textual flow. The accumulated E-text is 
intermingled with the internal procedure 
text until it is isolated by Phase 51 and 
added to SYS004 for phase 60 or phase 64. 



GROUP 5; Assembly 



Group 4 ; 
Division 



Translating the Procedure 



If the Report Writer facility is 
required, phase 00 calls on phase 12. This 
phase reads the Report Section of the Data 
Division, generates the report program in 
PO-text, and writes it on SYS002. Phases 
11, 30, 35 (if USE-FOR-DEBUGGING) , 40, 45 
(if UNSTRING), 50, 51, and 52 then process 
the Procedure Division. 

Phase 11 encodes the source program's 
Procedure Division into PO-text, and adds 
it to SYS002. It also begins the 
dictionary by placing procedure-names and 
their attributes in it. SYS002 and the 
dictionary, with the additions from phases 
22 and 21, later provide input for phase 
30. 

Phase 30 uses the information in the 
dictionary to replace each name with its 
attributes. It performs any other 
processing requiring the dictionary and 
then releases the dictionary's storage 
space. It also translates the PO-text into 
Pl-text. The text is changed into P2-text 
by phase 40, and into Procedure A- and 
Optimization A-texts by phases 50 and 51. 



The function of phase 60 or of phases 
62, 63, and 64 is to produce from the 
texts, tables, and counters that have been 
created by the earlier phases a machine 
language program that is suitable for inpui 
to the linkage editor. Phases 62, 63, and 
64 are an optional version of phase 60 and 
are used instead of phase 60 when the 
optimizer option (OPT) is requested. 

Phase 60 produces code that has been 
optimized for literals, virtuals, source 
procedure-names, and compiler-generated 
procedure-names. Phases 62, 63, and 64 
produce code that has been optimized for 
instructions generated from the Procedure 
Division as well as those items optimized 
for by phase 60. To produce the object 
module, the Data A-text on SYS 004, the 
Procedure A-text on SYSOOl (used by phase 
60) or the Procedure Al-text on SYS002 
(used by phase 64) , and the Optimization 
A-text on SYS003 are used. Phase 63 
creates Procedure Al-text from Procedure 
A-text. 

The object module is written, according 
to the options that are in effect, as an 
object deck on SYSPCH if DECK is in effect 
as an object listing on SYSLST (SYS006 for 
LVL option) if LISTX is in effect, as inpu 
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FDs and SDs, in Data IC-text 

Objects of RENAMES clauses, in Data 
IC-text 

Table handling keys, in Data 
IC-text 

Constant definitions in incomplete 
Data A-text 

Remainder of Data Division, in 
ATF-text 
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SYS003 
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Phase 22 
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Phase 21 
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FDs and SDs, in Data IC-text 

Remainder of Data Division, in Data 
A-text 
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SYSOOU 


-+- 


Phase 21 
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Phase 6 


-+- 


Data Division in Data A-text. 
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Figure 4. Contents of Work Files Used in Translating the Data Division 



to the Linkage Editor on SYSlnk if either 
LINK or CATAL is in effect, and as a 
condensed object listing on SYSLST (SYS 006 
for LVL option) if CLIST is in effect. 



GROUP 6; Final and Diagnostic Output 



Final and diagnostic output for the 
compiler consists of the object module 
discussed above and other optional 
information. 

If the SXREF or the XREF option is in 
effect, phase 60 or phase 64 reads the 
DEF-text from SYS004 and places it on 
SYSOOl. Phase 60 or 64 writes the 
necessary REF-text, placing it on SYS003 or 
SYS002, respectively, phase 00 calls Phase 
61, an optional phase, which produces a 
cross-reference listing on SYSLST (or 
SYS006 for LVL option). 

If the SYMDMP option is in effect, phase 
25 is called to create tables in the Debug 
File used by the object-time COBOL library 
subroutines in producing the formatted 
dump. If the SYMDMP, STATE, or FLOW option 
is in effect, phase 60 produces debugging 
information and passes it to phase 65, an 
optional phase. For SYMDMP, phase 65 
completes the Debug File; for STATE, it 
uses the debugging information written by 
phase 60 to produce two tables in the 
object module; for FLOW, it places the 
number of traces requested in the variable 



portion of the Task Global Table in the 
object module and allocates space after 
INIT3 for the table used by the COBOL 
library object-time subroutine ILBDFLWO. 
For any of these options, phase 65 writes 
the end card in the object module, writes 
information in the TGT, and does the 
processing necessary for segmented programs 
and programs that use the SORT verb or 
MERGE verb. 

Phase 70 produces an error listing on 
SYSLST (SYS006 for LVL option) and is only 
given control if source program errors were 
detected. Phase 00 calls phase 70 and the 
input to the phase in E-text. Any phase 
which found an error produced an E-text 
element, specifying the error message to be 
written. These E-text elements are 
collected by phase 60 or phase 64 and used 
to produce the list of error messages (and 
warning messages if the user requested 
them) . 

Phase 80 scans the source program on 
SYS006 for deviations from the Federal 
Information Processing Standard (FIPS) and 
issues messages along with the source program 
listing- on SYSLST. 



COMPILER OPTIONS 



Phase 01 stores information in COMMON in 
accordance with the options which are to 
control the compilation step. 
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All of the following options except 
LINECT may be set by the user at 
installation time as defaults or by the 
programmer on the OPTION control card. 
LINECT may be set at installation time as a 
default or by the operator. 



If no Lister options are in effect and 
an option causes output to be written on 
SYSLST, the output is written directly on 
SYSLST, if the NOLVL option is in effect. 
If the LVL option is in effect, the output 
is written on SYS006, which is used by 
phase 80 to produce a listing on SYSLST. 



CATAL 



DECK or NODECK 



DUMP or NODUMP 



ERRS or NOERRS 



LINECT=nn 



LINK or NOLINK 



LIST or NOLIST 



LISTX or NOLISTX 



LOG or NOLOG 



SYM or NOSYM 



XREF or NOXREF 



The object module is 
placed on SYSLNK and 
catalogued in the core 
image library after link 
editing. 

A deck is produced on 
SYSPCH. 

A listing of registers 
and storage is printed 
when an abnormal program 
termination occurs. 

Compiler diagnostics are 
printed on SYSLST. 

The specified number of 
lines (■nn*) are printed 
on each listing page. 

The object module is 
placed on SYSLNK. 

The source module is 
printed on SYSLST. If 
LST is in effect, NOLIST 
is ignored. 

The object module is 
printed on SYSLST. 

A listing of all control 
statements is printed. 

Global tables, literal 
pools, register 
assignments, and 
glossary listing are 
printed on SYSLST. 

A cross-reference 
listing is printed on 
SYSLST. 



The following options may be set by the 
programmer using the CBL card or by making 
appropriate entries in source library 
member C.CBLOPTNS. Any number of CBL 
cards may be used. The default cases are 
underlined. 



ADV or NOADV 



I APOST or QUOTE 



BUF=nnnnn 



CATALR or 
NOCATALR 



CLIST or NOCLIST 



Indicates whether or not 
records for files with 
WRITE. . .ADVANCING need 
reserve the first byte for 
the control character. 
ADV specifies that the 
first byte need not be 
reserved. 

The apostrophe or the 
double quotation mark 
has been used to 
delineate literals or 
represents the character 
used when the figurative 
constant QUOTE is used. 

Each compiler work file 
buffer is assigned 
*nnnnn* bytes of 
storage. The minimum is 
512 bytes, and the 
maximum is the maximum 
block size for the 
storage device used. 
The default is 2048 
bytes. 

CATALR indicates that 
CATALR card images are 
to be written on the 
SYSPCH file if DECK is 
specified on the OPTION 
card. This allows the 
object modules produced 
by the compiler to be 
catalogued in the 
relocatable library. 
The module names on the 
CATALR cards follow the 
same rules as the phase 
names in the compiler 
produced PHASE cards 
according to the 
segmentation and sort 
phase naming 
conventions. 

Global tables, literal 
pools, register 
assignments, and a 
condensed listing are 
produced. If OPT is 
specified, the starting 
address of each 
Procedure Block (PBL) is 
also listed. The 
procedure portion 
contains source card 
numbers and the relative 
location of the first 
generated instruction 
for each verb. This 
option overrides 
NOLISTX. The default is 
LISTX. 
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COUNT or NOCOUNT 



FLAGW or FLAGE 



FLOW =(nln]) 



LANGLVL 1 or 2 



LIB or 

NOLIB 



COUNT indicates that an 
execution suiritiary is to 
be produced at the end 
of execution of the 
compiled program. If 
both COUNT and STXIT are 
desired, the program 
unit requesting COUNT 
either must contain the 
request for STXIT or 
must be entered before 
the program unit that 
requests STXIT. When 
COUNT is in effect, the 
maximum number of verb 
blocks is 32,767. 

All warning and error 
diagnostics (FLAGW) or 
only error diagnostics 
(FLAGE) are listed. 

A formatted trace (i.e., 
a list containing the 
program identification 
and statement numbers) 
corresponding to a 
variable number of 
procedures executed 
prior to an abnormal 
termination is printed 
on SYSLST. FLOW must 
not be specified for the 
same compilation as OPT 
or STXIT. 

Indicates what level of 
the American National 
Standard (ANS) COBOL 
definition should be used 
by the compiler when it 
encounters those few 
language elements whose 
meaning changed from 1968 
to 1974. The ANS 
X3. 23-1 968 interpretation 
is indicated by LANGLVL (1); 
the ANS X3. 23-1 974 inter- 
pretation is indicated by 
LANGLVL (2), which is also 
the default. New language 
elements (those not in the 
1968 ANS standard at all) 
are unaffected by this 
option. 

LIB indicates that BASIS 
and/or COPY statements 
are in the source 
program. If either COPY 
or BASIS is present, LIB 
must be in effect. If 



LVL=c or 
NOLVL 



OPT or NOOPT 



PMAP=n 



neither COPY nor BASIS 
statements are present, 
use of the NOLIB option 
yields more efficient 
compiler processing. 

Indicates whether the 
Federal Information 
Processing Standard 
flagger is to be 
activated, c indicates 
the level of the 
standard to be checked 
(A = low; B = low 
intermediate; C = high 
intermediate; D = full 
standard) . When LVL=c 
is designated as the 
default at installation 
time, NOLVL can not be 
specified at 
compile- time. 

The object module is 
optimized by Phases 6 2, 
63, and 64 for 
instructions generated 
from the Procedure 
Division. If OPT is 
specified, the starting 
address of each 
Procedure Block (PEL) is 
also listed. OPT must 
not be specified for the 
same compilation as 
SYMDMP, FLOW, or STATE, 

This option enables the 
user to request a 
relocation factor "n" to 
be added to the location 
counter field in the 
object code listing. 
The relocation factor 
"n" is a hexadecimal 
number of from one to 
eight digits. If the 
PMAP option is not 
specified, the 
relocation factor is 
assumed to be zero. If 
the PMAP option is 
specified in a segmented 
program, the object code 
listing for segments of 
priority higher than the 
segment limit (default = 
49) will not be 
relocated. This option 
is in effect only if 
LISTX is specified. 
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SEQ or NOSEQ 



SXREF or NOSXREF 



SPACEl, SPACE 2, 
or SPACES 



The source statements 
are (SEQ) or are not 
(NONSEQ) sequence 
checked. If LST is in 
effect, this option is 
ignored. 



An alphabetically 
ordered cross-reference 
listing is printed on 
SYSLST. SXREF overrides 
XREF» which is specified 
on the OPTION control 
card. The default value 
is XREF. 

The output listing is 
single, double, or 
triple spaced. 



STATE or NOSTATE 



STXIT or NOSTXIT 



The number of the 
statement being executed 
at the time of abnormal 
termination is printed 
on SYSLST. STATE must 
not be specified for the 
same compilation as 
SYMDMP, OPT or STXIT. 

Control is passed to a 
user error procedure if 
an error occurs on a 
unit-record file. If 
both COUNT and STXIT are 
desired, the program 
unit requesting COUNT 
either must contain the 
request for STXIT or 
must be entered before 
the program unit that 
requests STXIT. 
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SUPMAP NOSUPMAP 



SYMDMP [=f ilename] 



Causes the CLIST and LISTX 
options to be suppressed 
if an E-level diagnostic 
message is produced by the 
compiler. For the DECK 
option, refer to OBJECT 
MODULE in the chapter 
"Interpreting Output." 

Indicates to the compiler 
that execution-time dumps 
might be requested for 
the program currently 
being compiled. If dumps 
are desired, the 
programmer must provide 
the required control cards 
at execution time. For 
storage considerations at 
execution time, see 
Appendix F: "System and 
Size Considerations." 

Use of the symbolic debug 
option necessitates the 
presence of an additional 
work file, SYS005, at 
compile time. Under 
DOS/VSE Advanced 
Functions, Release 2 and 
up, workfile SYSOOS must 
not be specified in VSAM 
space. The "filename" 
parameter enables the 
programmer to specify a 
name for the SYSOOS file 
that he can retain. If no 
filename is specified, 
IJSYS05 will be used. 
When several COBOL 
programs are link-edited 
together, the "filename" 
parameter enables each to 
have a unique SYMDMP name. 
Compile and execution must 
be done in the same job 
stream. The SYSOOS file 
is deleted at end of job. 
For a tape file, only 
unlabeled tapes may be 
used, and the filename in 
the SYMDMP= filename 
parameter is ignored. 

SYMDMP and STXIT, SYMDMP 
and STATE, and SYMDMP and 
OPT are mutually exclusive 
options, that is, no more 
than one may be in effect 
during a given compilation; 
(However, the facilities 
provided by STATE are 
automatically included 
with SYMDMP.) In addition, 
SYMDMP and STXIT are 
mutually exclusive at 
execution-time . Additional 



SYNTAX 

CSYNTAX 

NOSYNTAX 



information on the 
symbolic debug option and 
the required execution- 
time control cards can be 
found in the chapter 
"Symbolic Debugging 
Features." 

Note ; 

If NODECK and NOLINK are 
requested on the OPTION 
control statement and 
either SYMDMP or OPT is 
specified on the CBL card, 
the SYMDMP or OPT 
specification is ignored. 

Indicates whether the 
source text is to be 
scanned for syntax 
errors only and 
appropriate error 
messages are to be 
generated. For 
conditional syntax 
checking (CSYNTAX), a 
full compilation is 
produced as long as no 
messages exceed the W 
level. If one or more 
C-level or higher 
severity messages are 
produced, the compiler 
generates the messages 
but does not generate 
object text. 

Notes ; 

1. When the SYNTAX 
option is in effect, 
all of the following 
compile-time options 
are suppressed: 

OPTION control 
statement: LINK, 
DECK, XREF 

CBL statement; 
SXREF, CLIST, LISTX, 
VERBSUM, VERBREF, 
COUNT 

In addition, SYM output 
with the exception of 
the glossary listing 
is suppressed. 

2. When conditional 
syntax- checking is 
requested, the 
preceding options are 
suppressed only if 
one or more E- or 
D-level messages are 
generated. 
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TRUNC or NOTRUNC 



VERB or NOVERB 



VERBREF or 
NOVERBREF 



VERBSUM or 
NOVERBSUM 



ZWB or NOZWB 



3. Unconditional syntax 
checking is assumed 
if all of the 
following 

compile- time options 
are specified: 

OPTION control 
statement : NOLINK , 

NOXREF, NODECK 

CBL statement: 
SUPMAP, CLIST, 
VERBSUM, VERBREF, 
SXREF, and LISTX are 
not specified 



Standard or nonstandard 
truncation will be 
applied to computational 
items. If standard 
(TRUNC) , items are 
truncated according to 
their pictures; if 
nonstandard (NOTRUNC) , 
they are truncated 
according to the actual 
amount of storage 
occupied. 

Indicates whether 
procedure-names and 
verb-names are to be 
listed with the 
associated code on the 
object program listing. 
VERB has meaning only if 
the LISTX or CLIST 
compiler option is 
specified, if READY 
TRACE is used in the 
source program, or if 
VERBSUM, VERBREF, or 
COUNT is specified. 

VERBREF indicates that 
a verb cross-reference 
listing is to be 
produced for the 
compiled program. 

VERBSUM indicates that 
a verb summary listing 
is to be produced for 
the compiled program. 

Indicates whether the 
compiler is to generate 
code to strip the sign 
when a signed external 
decimal field is 
compared to an 
alphanumeric field. ZWB 
specifies stripping. 



The following Lister options may be set 
by the programmer using the LST card. The 
default cases are underlined. 



COPYPCH or 
NOCOPYPCH 



DECK or NODECK 



LSTONLY or 
LSTCOMP 



PR0C=1C0L or 
PR0C=2C0L 



COPYPCH indicates that the 
updated and reformatted 
copy libraries are to be 
punched. If the Lister 
DECK option is in effect, 
the libraries will be 
punched as part of the 
source deck. If the 
Lister NODECK option is 
in effect, the libraries 
will be punched as a 
separate deck. 

DECK indicates that an 
updated source deck is to 
be produced. If the 
COPYPCH option is in 
effect, the updated source 
deck will include the 
updated and reformatted 
copy libraries. 

LSTONLY indicates that a 
listing of the reformatted 
source program is to be 
produced, but that the 
program is not to be 
compiled; if the Lister 
DECK option is in effect 
the updated source deck 
will also be produced. 
LSTCOMP indicates that, 
in addition to the listing 
and optional deck produced 
by the LSTONLY option, 
the source program is to 
be compiled. 

PR0C=1C0L indicates that 
the Procedure Division is 
to be listed in single- 
column format. PR0C=2C0L, 
which can be specified 
only if the printer has 
132 print positions, 
indicates that the 
Procedure Division is to 
be listed in double- 
column format. 
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SECTION 2. METHOD OF OPERATION 



PHASE 00 



Phase 00 (ILACBLOO), the interface 
between the COBOL compiler and the DOS/VSE 
System, is resident in storage throughout 
compilation. Its major functions are: 

• Receiving control from the DOS/VSE 
System and, at the end of compilation, 
returning control to it. 

• Performing reallocation and linkage 
after each of the other phases has 
completed its operations. 

• Handling input/output requests from the 
other phases. 

• Manipulating tables for the other 
phases. 

• Providing a communications area 
(COMMON) for the other phases." 

• Processing terminal error conditions. 



RECEIVING CONTROL FROM AND RETURNING IT TO 
THE SYSTEM 



two- byte cell named LINKCNT. Routine LINKA 
increments LINKCNT by two before it links 
to the next phase, so that, for example, 
the value of LINKCNT is four at entry to 
phase 10- If phase 70 is not executed, or 
if termination is abnormal, the termination 
routines set LINKCNT to the value it would 
have on entry to phase 70, that is, the 
hexadecimal value '26». The location of 
LINKCNT is internal to phase 00. 



Figure U traces the routines used by 
Phase 00 for both normal and abnormal end 
of compilation. 



PROCESSING BETWEEN PHASES 



Other phases call phase 00 for 
between-phase processing or for 
input/output request with the following 
sequence: 



L register,«=A(COS) 

BALR 0, register 

DC X'XY' 

DC X'ZZ' 



See figure 5, 
See figure 5 



Compilation is invoked by an EXEC 
control card. Phase 00 is entered at entry 
point START. Routine LINKA calls phase 01, 
and passes to it the parameters for 
processing and the addresses of certain 
areas in phase 00 for phase 01 to fill in. 

When phase 60, 64, 65, 61, or 70 is the 
last phase, it calls phase 00 after its 
processing is complete. Routine SKPLNK uses 
register 14 to return control to the DOS/VSE 
System. If an error occurs that stops 
compilation (see "Unrecoverable Error 
Conditions" in this chapter) , routine 
TRMNATE prints a message and returns 
control to the system with a CANCEL or DUMP 
macro instruction. If an error occurs and 
OPT is specified, phase 62 returns to phase 
00 with a CANCEL code. When LVL is in 
effect, phase 80 is the final phase and it 
returns control directly to the system. 

Phase 00 keeps track of which processing 
phase is currently active by means of a 



Notes: 

1. A(COS) is the relocated address of the 
entry point to phase 00. Routine 
LINKPHl passes this address in 
register 1 to each phase that it calls 
into storage. 

2. 'XY* is a hexadecimal linkage code. 
•X* bits indicate the function to be 
performed. 'Y* bits indicate the 
affected file. 'Y' bits are ignored 
when the function does not involve a 
file. See Figure 5 for 'XY' values. 

3- ^ZZ' indicates functions to be 

performed by phase 00. See Figure 5 
for 'ZZ' values. 

Other phases call the table handling 
routines of phase 00 at the entry point of 
each routine. These routines are discussed 
in "Appendix A. Table and Dictionary 
Handling. " 
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r T T- 

|X Code I Routine Called | 



Function of Routine 



READ 



WRITE 



WRITEA 



TRMNATE 



SKIP 



CLOSET 

READQ 
SEGPNT 

LINKB 

EOJ 

SEGNOTE 

EJECT 
CLOSER 

CLOSER 



Read a utility file. Pass back to the calling routine the 
storage address of the logical record. If Y is 9, read a COPY 
or BASIS library. 

PUTN: Write IC-text, where the calling routine gives the 
record's address in register 2, and its length in register 3. 

PUT: Write a record., where the calling routine gives the 
record's address in register 2, and the first two bytes of the 
record define its length. 

Cancel job. A D-level error has been encountered. 

Position the printer. The exact function is determined by a 
second parameter byte as follows: 

X'Ol' Skip one line 
X'02' Skip two lines 
X'03' Skip three lines 

Purge, if necessary, and rewind the indicated file. If the 
second parameter byte (ZZ) contains X'OO', last use of file was 
to read. If the second parameter byte (ZZ) contains X'Ol', last 
use of file was to write. 

Read SYSIPT. 

Position the access mechanism to a disk address supplied by the 
calling routine (on SYSOOl) and read the record (see phase 60 
and phases 62 and 63). 

Issue a RETURN macro to terminate the previous phase. 

Return to the system. 

Write the current record, if required, in a short block, and 
pass back to the calling routine the relative disk address of 
the next record to be written on SYSOOl (see phase 51). 

Eject to next page. 

Flush the buffer. Do not write an end-of-file indicator (see 
F) . If the second parameter byte (ZZ) contains X'CC, call was 
not from phase 00 internally but from another phase. 

When a file is to be closed, move 'ff' and an end-of-file code 
into the buffer, pad the buffer with zeros, check the previous 
input/output operation, and write out the file. 



Y code File 



ZZ Code 






SYS005 


X'Ol* 


1 


SYSOOl 


X'02« 


2 


SYS002 




3 


SYS003 


X'03' 


4 


SYS004 


X'OU' 


5 


SYSIPT 


X'05« 


61 


SYSLST 




7 


SYSPCH 




8 


SYSLNK 




9 


SYSSLB 


C ' nnnn ' 



Meaning 

NOTE macro instruction to retrieve the absolute address 

POINT macro instruction to cause processing to start at 

the specified block in the file 

POINTS to rewind the file 

WRITE UPDATE (disk only) 

When preceded by a X'22', WRITE on SYS002 from SYS005 

buffer with a buffer size of 512 bytes; when preceded by 

X'02', READ from SYS002 into SYS005 buffer with a buffer 

size of 512 bytes. 

nnnn is a four-character D-level message number if X=3. 



^Also for SYS006 when LVL is in effect. 



Figure 5. Linkage Codes to Phase 00 
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When the linkage code indicates end of 
phase the following occurs: 

• Routine LINKB issues RETURN macro to 
terminate calling phase. 

• Control passes to the instruction 
following the LINK instruction in 
routine LINKA. 

• Files are purged. 

• If necessary, an interlude routine is 
called (INTl after phase 10; INTll 
after phase 11, etc.). The interlude 
routine rewinds files, sets up POINT 
table buffers, determines next phase, 
etc. 

• Routine LINKA updates LNKCNT, sets 
switches for TAMER, loads and calls the 
next phase. 

Figure 6 shows the conditions under 
which optional phases are called. Figure 8 
shows the flow of control for processing 
between phases. 

Use of buffers by files in each phase is 
predetermined and is described in Figure 
10. Buffer addresses are recorded in a 
buffer pointer table. Phase 00 contains a 
pointer to the current buffer address. 

Phase 01 opens all files. 

Phase 00 closes work files as they are 
no longer needed. 



Optional 
Phase 



n 



-4 



Preceding 
Phase 



j Compiler 
Option or 
Feature 



_J 



04 



4. 



01 



+ 



LIB 



05 ' 01 or 04 j^ LST 

06 I 05 j LST 



08 



07 



LST 



12 



25 



r 



35 



45 



"1 



61 



I- 



62 
63 
64 



65 



70 



80 



10 



I 



Report 
Writer 



21 



4. 



SYMDMP 



30 



40 



60 
64 
65 



USE FOR 
DEBUGGING 



UNSTRING 



XREF 
SXREF 
VERBSUM 
VERBREF 



51 



OPT 



60 
64 



'SYMDMP 



i 



r- 



Varies 






.1. 



60 
61 
64 
65 
70 



-t 

jif errors in 
'source program 

I LVL 



.J 



Figure 6. Optional Phase Processing 
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Abnormal Flow 



Normal Flow 



CANCEL request 



j Request received 
I from either phase 
|01, 60, 62, 70, or 
I from TANBB 



BASIS Library 
not found 

I 

ICBNOFND Routine 



X'BO' Request from 

phase 70 

I ■ ■ ■ I. 

ILINKB Routine 
I 

I Issue RETURN macro. 

I 



(LINKBA) y 



{PURGE ROUTINE 

I 

I Purge files, if 

Inecessary. 



ITRHNATE Routine 

I 

I Print error message 

I on printer. Set 

IIINKCllT to 

{hexadecimal 26. 



I Cancel Job 

[Dump if request was 
I received from TAKER 



IINT7 Routine 
I Close files. 



(SKPLMK Routine 
{ 

{Turn off LINK bit 
(in System Communi- 
(cation Region if 
(E-level source 
(errors were en- 
( countered 
(Issue EOJ macro. 



Figure 7. Flow of Control at End of Compilation (Normal and Abnormal) 
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PHASE INPUT/ODTPUT REODESTS 



Phase 00 translates all phase 
input/output requests into system macro 
instructions or SVCs. It switches the 
buffer pointers in the POINT table if the 



file is double buffered, and checks to 
determine whether the operation was 
completed successfully. If necessary, 
TAMER handles dictionary spill during phase 
processing (see "Appendix A. Table and 
Dictionary Handling") . Figure 9 shows the 
input/output requests for each phase. 



Processing Phase * 



l<- 



BALR 



COS 



I Analyze 

I X parameter 

I (see Table 4) 



<-J 



TAMER Routine (optional) | 



I Reallocate 
j storage 
I for tables 



I r 



LINKB 



Terminates calling 
phase by issuing 
a RETURN macro 
instruction 



INT Routine 



! OPEN, CLOSE' files !^" 
I FLUSH/REWIND [___ 



LINK A 



I Load new 
{processing phase 



I 



• 1 Call phase 

I- 



-> I Determines value 
I of next interlude 
routine 

I ' 



Note: The blocks do not indicate relative locations or sizes of the routines. 

*This box changes contents at the end of each cycle. Exit from the cycle occurs after 
the last processing phase, which may be phase 60, 61, 62, 64, 65, 70 or 80 when 
control is returned to COS with a request for return to the system. Exit may occur 
through abnormal termination (see Figure 7) . 

Figure 8. Flow of Control for Processing Between Phases 
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-T T T T T T 1 

ISYS005 JSYSIPT |SYSLST^« | SYSPCH | SYSLNK | SYSSLB j 



r T T T T 

I Phase JSYSOOI |SYS002 |SYS003 jSYSOOa 



01 



Open 



Open 



Open i Open 
E-texti-6|Puti-« 



Open 



(Open 
JGet^e 



Open 

Puti-« 

Closed*- 



Open I Open 



Open 

Get 

Close 



00 
(INTOl) 



Rewind 



04 (if 
j (LIB) 

I 

00 

(INTO 4 
I if LIB) 
1 



Write 
Rewind 
Read if 
BASIS 



Write 
E-Text 



Write 

Flush/ 

Rewind 



I Get 



Put 



Open 

Get 

Close 



T' 



1- 



J. 



t- 



05 (if 
JLST) 



Flush/ 
Rewind 
if LST 



Write 



l<aarl P- I 



Read E- 
text if 
LIB 



Get=s 



00 
i (INT05) 

I- + 

I 06 (if 

JLST) 

j. ^ 

I 00 

I (INTO 6) 

I- + 

(08 (if 
I LST) 

I- 

I 00 

I (INT08) 



+ rr- 

Close'^ 



Flush 
Rewind 

Read 

Write 

Flush 
Rewind 

Read 
Rewind 



Rewind j Rewind 
if LIB I if LIB 

Write 
Read 



-+ 

Write 



Rewind 



Write 






Flush/ 
Rewind 
if lib" 



Flush 26 
Rewind 



I 



I 



-1 



Get 









26 



Put 
Close^'* 



+ +- 

+ +- 

J. 4._. 

Put 



+ — 
+ — 









1 10 

I 00 

I (INTl) 

112 

I (Report] 

I writer) 

I 00 

I (INT12) 



Write 
Data 
IC-text 
S E-text 



Get*-6,a2 






+ 

Write 
PO-text 
& E-text 
+ 






+. 



Write 
Data- 
IC-text 



Get*^«,2a 






Get*-'',a3 
+ 



+ — + 






Get^'.aa 
+ 



Put a-"', 23 
+ + 



+ 

+ 

f 



+ 

+ 



— ^ 
— "I 



1 ^ 



j Footnotes, only those footnotes referred to on this page are listed below. 

I 

I *Used for dictionary spill. 

|i-«If LIB or LST is in effect. 

|i"'If NOLIB is in effect,. 

I^^if LVL is in effect, SYS006 is used in place of SYSLST. 

|2i-if LVL is in effect and no Lister options, SYS006 is opened for LVL. 

jaaif LSTCOMP is in effect. 

|23lf LSTCOMP is not in effect. 

|a'»Close SYSLST if LVL and LSTCOMP are in effect; SYS006 is used for LVL. 

I *=OnlY if LIB is in effect; otherwise input is on SYSIPT. 

1 1 2' Close if LSTONLY. 

»__«._««_.,«> — — — — 

Figure 9. Compiler File Handling (Part 1 of 6) 



Phase 00 29 



Licensed Material - Property of IBM 



r T T T T 

I Phase JSYSOOI j SYS002 |syS003 | SYSOOtt 



-T T T T T T 1 

JSYSOOS JSYSIPT |SYSLSTl-8|SYSPCH|SYSLNK|SYSSLB| 



11 



(See 
note 1) 



Write 
PO-Text 
g E-Text 



Get»-«,a3 



Geti'.aa 



Put«-"',a3 



00 
(INTll) 



Flush 



Flush 
Rewind 



Rewind 



Close 



Close 

+ ^ 



20 

I- 

GO 

(INT2) 
j. 



Read j Write Incom- 
Data IC-|plete Data 
and |A-text, Data 
E-texts llC-text, ATF- 
text, & E-text 



+ 



22 
j. 

00 
(INT22) 



+ 

Write 
PO-text 
co- 
routine) 






+ 

(See 
note 1) 



Flush 

Write 

PO-text 

(VCONs) 



21 



00 

(INT21) 
f 






+ 



Flush 
Rewind 

Write 
E-text 



Rewind 

Write 
Data A- 
6 Data 
IC-texts 
DEF- 
texte 

Flush 
Rewind 

+ 

Read 

Data 

IC-text 

Data A- 

text, g 

DEF- 

text^ 

+ + 



Flush 
Rewind 

Read Data IC- 
text , Incoiti- 
plete Data A- 
text, ATF-text 
and E-text 

Rewind 

Write 
Data 
A-text 
E-text, g 
DEF-text8 



+ 

+ 



+ 

+ 



+ 

+ 



+ 

+ 






+ 



+ 



+ 

+ 



+ 

+ 



+ 

+ 



+ 

+ 



— ^ 
— H 






Rewind 
+ 



25'' 

I- 

00 
(INT25) 

H 



Flush 

Note Rewind 
Read DEF-text 
Point 






+ 

write 

DATATAB 

OBODOTAB 






(See 
note 1) 



30 
j. 

00 
(INT3) 



Read PO 
text 
(Q-rout) 
S E-text 



+ + 

+ + 

+ + 

+ + 



+ 

+ 






+ + ^ 






Write 
Pl-text 
g E-text 



Write 

DEF-text* 






Rewind 



Rewind 



Flush 
Rewind 



Put 
(SYM) 
+ + 






Flush 



Footnotes. Only those footnotes referred to on this page are listed below. 

*-Used for dictionary spill. 

2SXREF, XREF, VERBSUM, or VERBREF only. 

''SYMDMP only. 

8SXREF, XREF, VERBSUM, VERBREF, Or SYMDMP only. 
^8if LVL is in effect, SYS006 is used in place of SYSLST. 
a^If LSTCOMP is in effect. 
»3If LSTCOMP is not in effect. 



Figure 9. Compiler File Handling (Part 2 of 6) 
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-T T T T T 1 

I SYSIPT I SySLST«-8 I SYSPCH | SYSLNK j SYSSLB | 



r T 

I Phase JSYSOOI 



ISYS002 (SYS003 JSYSOOU 



SYS005 



35 



I Write 
PlA-text 

E-text 



I Read I 
Pl-text 1 
E-text I 



1 



-t 



_L, 



I I 

.L__l 



1. 



00 
INT 3 5 



Flush 
Rewind 



Rewind 



40 



Write 

P2-text 

E-text 



00 I Flush 
INT 40 I Rewind 
(if not 
UNSTRING, 
! Flush 
other- 
wise) 
I 

45 I Write 
UNSTRINGI P2-text 
I E-text 



Write I Read Write E-text 

ATM-text I Pl-text (if CSYNTAX, 

Read I E-text I data-4 if 

Pl-text I Write | COUNT) 

E-text ATM- text I 

(if I (if 
V2BUGDCL) I V2BUGDCL) 

Rewind | Flush/Rewind 
(if not I if SYN or 
CSYN with 
error and 
I message to 
I print. 

, Flush if COUNT 
COUNT or CSYN 



ir 



00 T 
INT45 
SYNTAX I 
(Phase i 
70 is 
next) 



Read 

ATM- text 
(if not 
V2BUGDCL) 



I 



00 
INT 4 5 
NO 
SYNTAX 



Flush 
Rewind 



i 4 



50 



Read 
|P2-text 

I e, E-text 



1 



Flush 
Rewind 
(if 

V2BUGDCL , 
Rewind 
other- 
wise) 






I 






I 



V2BUGDCL, 
Flush/ 
Rewind 
other- 
wise) 



I COUNT or CSYN | I 



n 



Read ' Write 
ATM- text I E-text if 
(if not I (C) SYNTAX 
V2BUGDCL) I 

JFlush 
I Rewind 



1 






1' 



i 

Rewind 
(if 

V2BUGDCL, 
Flush/ 
Rewind 
other- 
jWise) 

Write 
P2-text, 
Inter- 
mediate 
Proced. 
A- text. 
Inter- 
mediate 
E-text 
6 Inter- 
mediate 
Optimiz. 

A-text 



Flush/ {Flush 

Rewind I 

(if I 
V2BUGDCL , 

Rewind | 

other- I 
wise) 



r 



„4 4_^ 



1" 



I 

■4- 



L__. 



\ 1 



_ J \ 1 



I 



__4— ^ — 



Write I 
Opt. I 
A-text I 
X. 



I 



I 1 1 ^ 



Flush 
Rewind 



Flush 



00 I 

(INTS) I Rewind 

I. 4. 4. — J. --X 

Figure 9. Compiler File Handling (Part 3 of 6) 
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I SYSIPT I SYSLST^B | SYSPCH | SYSLNK | SYSSLB | 



I Phase ISYSOOI |SYS002 



JSYS003 JSYS004 



SYS005 






51 






00 
(INT51) 



601-3 



|. 

00 
(INT60) 

9 
j. 



6513 



Write 

Proced. 

A-text 



Flush 
Rewind 



Read 

Proced. 

A-text 



+ + 

Write 

Debug- 

text* 



Rewind 2 



Write 
DEF-text 



Flush 
Rewind^ 



Read 
P2-text, 
Inter- 
mediate 
Proced. 
A-text, 
Inter- 
mediate 
E-text, 
S Inter- 
mediate 
Optimiz. 
A-text 



Rewind* 






Flush 
Rewind* 



Read 

Debug- 

text 

Write 

text 

from 

SYS005ia-| 



Write 

Opt. 

A-text 

Flush 
Rewind 



Read 

Optimiz. 

A-text 



Rewind* 



Write 
REF- 
text* £ 
E-text 



Flush 
Rewind 



Write 
E-text 

Flush 
Rewind 

No Rewind*** 

Write SYSLNK 
OUTPUT for 
non-root 
segments 3 









Rewind 3 



Read Data A-, 

DEF-, 

and E-texts; 

Reads SYSLNK 

output for 

non-root 

segments 3 

Flush3 

No rewind^* 

Rewind 

Read 

non-root 

segments 



-+ 



4 



Write 

PROCTAB 

PROGSUM 

lO 






Put 
(LISTX) 






PUT 



Put 



Put 



+ + 

PUT 






Footnotes. Only thpse footnotes referred to on this page are listed below. 

asXREF, XREF, VERBSUM, or VERBREF 
3Segmentation only, 
sif SYMDMP or STATE in effect. 

"Debugging options in effect. This phase can only follow phase 60. 
»-oif SYMDMP is not in effect, SYS005 is not used. 
^la-Use this file, if SYS005 is assigned to a tape device. 
"=•■ 3 Control flows in this sequence when the OPT option is not in effect, 
optional phase, 
'••if segmentation and NOOPT. 
a-sif SYMDMP, STATE, FLOW with segmentation. 
>-8if LVL is' in effect, SYS006 is used in place of SYSLST. 



Phase 65 is an 



Figure 9. Compiler File Handling (Part 4 of 6) 
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I Phase JSYSOOl |SYS002 jSYSOOS |SYS004 

00 
(INT65) 



"T ■ T T T T T ^ 

JSYSOOS JSYSIPTJ SYSLSTi8|SYSPCH)SYSLNKiSYSSLBJ 






J. 



J. 

GO 

(INT62) 
J. 



Read 
Proced. 
A Text 



Read 

Optimiz. 

A-text 



Rewind 



Rewind 



00 
(INT63) 



Read 

Proced. 

A-text 



Write 
Proced. 
Al-text 
^ + 



Rewind* 



Flush 
Rewind 






Write 
DEF-text 

a 



Read 

Proced. 

Al-text 



Rewind 

Write 
E-text 



6aa-a 

00 

(INT6U) 

6 

00 
(INT6X) 

a 



Flush* 
Rewind* 

Flush* 
Rewind* 

Read 
DEF-text 






Flush 
Rewind 

Flush 
Rewind 

Read 
REF- 
texf 



61* 

00 

(INT61) 

a 



Rewind 

Read DATA A- 
text, DEF- 
text, £ E-text 
Rewind* Write 
REF-text* 

Flush* 
Rewind* 

Flush* 
Rewind* 

Read REF- 
text*-* 

Rewind 

(See note 4) 






+ 1 ^ 















Put 

.(SXREF or I 
XREFJ 



— ^ + ^ 









70 

00 

Close 



(INT7) 



Close 



Read 
E-text 

Close 



Close 






Put 
(error 
messages} 

Close 



+ + + ^ 



I 



Close 



+ + 

Close 



^ 



Footnotes. Only those footnotes referred to on this page are listed below. 

*SXREF, XREF, VERBSUM, or VERBREF only. 

•♦E-text read from SYS004 if phase 60 or 62 determines that no output is required or if 
SYNTAX is on. 

esxREF or XREF not in effect. 

■'SYMDMP only. 
*-*Control flows in this sequence when the OPT option is in effect. 
*-8lf LVL is in effect, SYS006 is used in place of SYSLST. 



Figure 9. compiler File Handling (Part 5 of 6) 
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Figure 9. Compiler File Handling (Part 6 of 6) 



TABLE AND DICTIONARY HANDLING 



1. A permanent input/output error is 
encountered on a device. 



A portion of storage is reserved 
throughout compilation for tables built and 
used by the phases. All processing 
(inserting new entries, releasing a table 
when no longer needed, etc.) involving 
these tables is handled by a group of 
routines known collectively as TAMER. 
These routines are resident in phase 00. 
They are described in "Appendix A. Table 
and Dictionary Handling." 



2. An invalid BASIS library name is 
encountered. 

3. The partition size is too small for 
this program. 

Conditions detected by TAMER: 

1. A table has exceeded the maximum 
permissible size. 



COMMUNICATIONS AREA (COMMON) 



2. Because of an error in compiler logic 
or a machine error, TAMER is unable to 
handle a request. 



The communications area (COMMON) is 
resident in phase 00. It contains 
information to which all phases can refer 
directly. The format of COMMON is given in 
"Section 5. Data Areas," 



UNRECOVERABLE ERROR CONDITIONS 



LANGLVL (1) SEGMENTATION OPERATIONS 



For a segmented program phase 51 keeps 
track of the sections of Procedure A-text 
that belong to each segment. It calls the 
NOTE routine of phase 00 (•XY' code = CI) 
to record the absolute track address on 
SYSOOl of the first record of each segment. 



The following conditions will cause 
abandonment of compilation. In each case 
console message is printed, and phase 00 
returns control to the DOS/VSE System via 
the routines described earlier in this 
chapter under "Receiving Control From and 
Returning It to the System. " 



Phase 60 or phases 62 or 63 use the 
SEGTBL table built by phase 51 to read 
Procedure A-text in order of ascending 
segment priority. They call the SEGPNT 
routine of phase 00 (»XY* code = 91) for 
this purpose. Phase 60 writes the object 
module and phase 63 writes Procedure 
Al-text in order of ascending priority- 
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PHASE 01 



Phase 01 CILACBLOl) initializes compiler 
operations. Although logically a subset of 
phase 00, it is not needed in storage 
throughout compilation and exists as a 
separate load module. The major functions 
of phase 01 are: 

• Attempts to read source statement 
library member C.CBLOPTNS and, if 
present, sets the compiler default 
options to correspond to those in the 
library member. Normal default options 
are used if no library member is 
present. 

• Determines compilation parameters from 
the system OPTION card and the COBOL 
compiler CBL and LST cards from SYSIPT 
and sets indicator bits in COMMON. 

• Determines buffer sizes for all files 
used by the compiler. 

• Obtains storage for buffers, tables, 
and thfi dictionary, 

• Opens all files used by the compiler. 

• Returns information to phase 00 on the 
results of the initialization. 

• Takes appropriate action in the event 
of certain error conditions. 

• Handles COPY and BASIS functions if LIB 
is specified. 

COMPILATION PARAMETERS 



From the CBL card: CATALR, CLIST, 
COUNT, CSYNTAX,, FLAGW, FLOW, LIB, LVL, 
OPT, QUOTE, SEQ,, STATE,, STXIT, SUPMAP, 
SXREF, SYMDMP, SYNTAX, TRUNC, VERB, 
VERBREF, VERBSUM, and ZWB 

• From the LST option card: COPYPCH, 
DECK, LSTCOMP, LSTONLY, and PROC 

If SYNTAX was specified, phase 01 turns 
off the bits for conflicting options. From 
the CBL card parameter BUF, phase 01 
obtains the buffer size for the work files 
(see "Buffer Size Determination" below) . 
From the CBL card parameter SPACE, phase 01 
sets the print control character in the 
first byte of the buffer area for SYSLST. 

In addition to the above parameters, 
phase 01 uses the system communications 
region to determine the date of compilation 
and the number of lines to be printed per 
page. The number of lines is passed to 
phase 00 as described in this chapter under 
"Information Returned to Phase 00." Phase 
10 sets the RPTWR bit in the PHZSWl cell. 



BUFFER SIZE DETERMINATION 



The compiler uses six buffer areas. 
Buffers 1 through 4 are always used for 
work files 1 through 4, and they are all 
the same size. 

The buffer sizes of the compiler files 
are: 



Compilation parameters are set as 
defaults at installation time. Thereafter, 
they may be changed by the operator through 
a console command or by the programmer 
through a system OPTION card, one or more 
CBL option cards, or an LST option card. 
CBL option cards are placed in front of the 
first coitipiler source card. 

Based on the parameters, phase 01 moves 
flag bytes to the LISTERSW, PHZSW, PHZSWl,, 
PHZSW2, PHZSW3, and PHZSW4 cells in the 
compiler communications region (COMMON) so 
that other phases can determine which 
options were chosen. 

The parameters processed by phase 01 
include: 

• From the system OPTION card: DECK, 
ERRS, LINK, LIST, LISTX, LVL, SYM, and 
XREF 



SYSLST - 

SYSPCH - 

SYSIPT - 

SYSLNK - 



- 133 bytes 

81 bytes 
80 bytes 

82 bytes 



Files SYSOOl through SYS004 are assigned 
four buffers. The minimum buffer size for 
these files is 512 bytes each. This size 
can be changed by means of the BUF parameter 
on the CBL card. The maximum is 32,767 
bytes. Specifying a larger size will cause 
a default to this value. 

Buffer size for SYS005 is always 512 
bytes, if allocated. This buffer is not 
allocated if the SYMDMP option is not 
specified. 

The minimum buffer space required for 
the compiler (that is, the total space 
required for buffers 1 through 6) is 2986 
bytes. Buffers 1 through 5 require 2560 
bytes (5 x 512 bytes) . Buffer 6 requires 
a minimum of 426 bytes, as follows: 
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SYSLST: 
SYSIPT i 
Total 



133 X 2 = 266 
80 X 2 » 160 



If the DECK and LINK options are 
specified/ 3152 bytes are required for 
buffers as follows: 



Buffers 1-5: 



2560 



Buffer 6 : 




2 X SYSLST = 


266 


2 X SYSPCH = 


162 


2 X SYSLNK = 


164 


Total 


3152 



SYSPCH and SYSLNK reuse the space 
originally occupied by the SYSIPT buffers. 

Buffers 1 through 4 are assigned to work 
files 1 through 4 and given the size 
specified via the BUF option (or the 
default size if BUF is not specified) . The 
buffer 5 is assigned to the work file 5 
and is zero (if no SYMDMP) or 512 bytes 
(if SYMDMP) . For example: 

a) BUF = 4096. SYMDMP, DECK, LINK 

Buffers 1-4 

(for work files 1-4) : 4096 x 4 

Buffer 5 

(for work file 5) : 512 

Buffer 6 

(for system files) : 3152 

20048 bytes 

b) BUF = 8192, NOSYMDMP, NODECK, NOLINK 



Buffers 1-4 

(for work files 1-4) 

Buffer 5 

(not allocated) ; 

Buffer 6 

(for system files) : 



8192 X 4 



426 

33194 bytes 



2. The LINES indication, by filling in an 
area in phase 00 called LINECNT, the 
address of which was passed to phase 
01 by phase 00. 

3. The beginning and ending addresses of 
the main free area (initial table 
area) by filling in an area, as in 2 
above, called TAMAREA. 

4. The address of the buffer area and the 
buffer lengths, by filling in an area, 
as in 2 above, called BUFCNLS. 

5. The alternate name for the symbolic 
debug file, if requested on the CBL 
card (disk file only). 

6. The date and time of the compilation 
via the DATE/TIME cells in COMMON. 

7- The value of PMAP relocation factor 
from CBL card in PMAPADR cell in 
COMMON. 



ERROR CONDITIONS 



If any of the error conditions listed 
below are discovered by phase 01, an 
appropriate error message is placed into an 
internal phase 01 table by the QUE routine. 
Routine PRINT writes the messages out on 
SYSLST (SYS006 for LVL option) before 
control is finally returned to phase 00. 
Where necessary, an end-of-job indication 
is sent to phase 00 via the XY code (see 
Figure 5 in the chapter on phase 00), and 
phase 00 terminates the compilation. The 
specific error conditions are: 

1. A file cannot be opened. Compilation 
is terminated only if the file is 
required. 



OPENING FILES 



Phase 01 opens the four utility files 
(SYSOOl through SYS004), SYSIPT, and SYSLST 
and, if required, SYSLNK, SYSPCH, SYSSLB, 
SYS005, and SYS006. It determines whether 
the files are operable and prints a message 
on SYSLST if a file cannot be opened. 



INFORMATION RETURNED TO PHASE 00 



2. The BUF parameter is invalid or 
insufficient. An alternate value is 
chosen or compilation is abandoned. 

3. The virtual partition size is too 
small to accommodate the compiler. 
Compilation is terminated. 

U. A premature end-of-file condition has 
been encountered on SYSIPT. 
Compilation is terminated. 



Phase 01 passes the following 
information back to phase 00 in the manner 
indicated: 

1. The flags indicating the compilation 
options via the PHZSW, PHZSWl, PHZSW2, 
and PHZSW3 cells in COMMON. 



LIB OPTION PROCESSING 



If the LIB option has been specified, 
phase 04 scans the source program for BASIS 
and COPY statements. It performs syntax 
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analysis on these statements and copies 
library information with the remainder of 
the source program on SYS004 for subsequent 
phase analysis. The phase also 

• Writes the source program listing on 
SYSLST (SYS006 for LVL option) if LIST 
is in effect and no Lister options are 
in effect. 

• Generates internal sequence numbers for 
source program. 

• Performs sequence error checking if SEQ 
is in effect. 

If BASIS or COPY statements are 
syntactically incorrect, phase 04 writes 
error text on SYS 003. 



FEDERAL INFORMATION PROCESSING STANDARD 
(FIPS) FLAGGING 

When the LVL option is specified, 
phase 01 enters the level character into 
COMMON to indicate to phase 80 what level 
of the FIPS standard is to be flagged 
(A = low; B = low intermediate; C = high- 
intermediate; D = full standard) . SYS006 
receives the source listing that is used 
for input to phase 80 for FIPS flagging. 
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PHASE 04 



Phase 04 (ILACBL04) implements the COPY 
language of American National Standard 
COBOL, X3. 23-1974, by allowing insertion of 
prewritten COBOL entries, which reside in a 
library, into a COBOL source program at 
compile time. COPY also allows the option 
to alter these prewritten entries at compile 
time. 

Phase 04 reads the user-created COBOL 
libraries and passes the entire source 
progreon to phases 10 and 11, or to phase 05 
if LSTCOMP or LSTONLY is in effect. The 
LIB option must be in effect if the BASIS or 
COPY facility is used. 



Input 



The input to phase 04 can be source input 
text and library text. 



Output 



During BASIS processing, SYS002 is used 
as output during BASIS processing. This is 
then read as source to process any COPY 
statements. SYS004 is used as final output 
from phase 04. If Lister is not to be 
invokfed, a source listing is produced on 
SYSLST. 



ERROR CONDITIONS 



Phase 04 contains text for error 
messages and produces the error messages. 
It produces E-text on SYS003 as it scans 
the source program listings and analyzes 
syntax . 



MAIN FLOW OF CONTROL IN PHASE 04 



Phase 04 invokes the PH04INIT subroutine 
to initialize variables and allocate work 
area storage, then reads the initial SYSIPT 
record. 



If BASIS is desired, phase '04 invokes 
the BASISRTN subroutine to read and update 
the BASIS library from SYSSLB. The 
resulting source is written to SYS002. 

Phase 04 next invokes the COPYRTN 
subroutine to scan SYSIPT or SYS002 (if 
BASIS) source for COPY statements. COPYRTN 
invokes COPYROC to syntax check a COPY 
statement and to read and update the source 
from the identified COPY library member. 

When source end-of-file is reached, 
phase 04 closes any COPY libraries that 
have been opened. 



PROCESSING ROUTINES USED 



BASISRTN: The BASISRTN routine merges 
source from the BASIS library specified 
with the user's source from SYSIPT, matching 
serial numbers appearing on the BASIS INSERT 
and DELETE cards with those in columns 1 
through 6 on the BASIS library source. 
When the merge is complete, SYS002 is 
resumed and made ready for COPYRTN 
processing, and SYSSLB is closed. 

COPYRTN ; The COPYRTN routine reads all 
source input looking for a COPY verb that is 
not part of a NOTE, comment line, or comment 
entry. Whenever COPY is found, COPYRTN 
invokes COPYROC to process the statements. 
When source end-of-file is reached, COPYRTN 
returns to the phase 04 controller routine 
for phase termination. 

COPYPROC: COPYROC validates the COPY 



statement . 

The library is identified and opened. 
The REPLACING arguments are passed and saved 
in a work area. Any syntax or OPEN errors 
will result in the COPY statement being 
nullified. If the COPY statement has no 
errors, the COPY library is read and the 
source updated according to the REPLACING 
rules. At library end-of-file, COPYROC 
returns control to COPYRTN. 
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PHASE 05 



Control is given to phase 05 (ILACBL05) 
only when the Lister option (LST) has been 
specified. Phase 05 is the Lister scan 
phase, which analyzes the syntax of the 
COBOL source program. This phase inserts 
syntactic markers between the various 
elements of the source program. The 
syntactic markers are used by subsequent 
phases to produce the cross-references and 
to reformat the program for the Lister 
option listing. 



Input 



The input to phase 05 is the COBOL 
source program. If NOLIB is in effect, 
input is read from the card reader. If LIB 
is in effect, input is read from SYS004 
(output from the COPY preprocessor) . 



Output 



The output from phase 05 is written on 
SYS002. The output consists of the COBOL 
source program with syntactic markers 
inserted to identify the various elements 
of the program. Syntactic markers indicate 
such items as new statement, reference type, 
level number, identation, and qualifiers. 
If phase 05 detects syntax errors, the 
output also includes error and recovery 
markers, to indicate that the errors are to 
be identified in the Lister option listing. 



SYNTAX LANGUAGE SUMMARY 



The syntax analysis done by Phase 05 is 
a table-driven process whereby the table 
entries (called Y-instructions in the 
Phase 05 assembler listing) control the 
recognition of COBOL source and resulting 
generation of phase 05 output. 



W| / Reserved word 

[0|{ P HA(B|] •< Punetuatioa 
T j [ Operand term 



(iiee Note 3) 



• CUiue name 



G{nl • Text-type byte 
M(nl * Modifying byte 
C n • 

(see Note S) 

X * Exit routine name 



[0] [N] [1] / [ I number of items in clause ) 

( name of flnt statement beyond | 

(see Note 4) 



Notes: 



1. Syntax language is written as a sequence 
of statements, optionally named, each of 
which contains a sequence of items 
separated by commas. 

2. Syntax language items perform tests, 
define clauses, or control generation. 
These functions are denoted by an infixed 
period, slash, or asterisk, respectively. 

3. Tests may be: 

O optional (brackets) 

W testing reserved words 

P punctuation 

T generic terms 

For example, DATANAME, ALPHALIT, or 
"clauses" (nul) , such as "identifier" 
(IDFR) , and test may specify A margin 
(A) , B margin (B) , or both (AB) . 

4. Clause definition corresponds to the 
COBOL use of brackets, braces, and 
ellipses: 

is optional (brackets) 

N may be repeated (ellipses) 

1 select only one (braces) 

Information after the slash specifies 
end-of -clause; if omitted, the end of the 
current statement is assumed. 
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5. Generation (of IPTEXT) is implied by 
successful tests, and is explicitly 
ordered by G, the type -byte implies the 
length. M modifies one byte of already 
generated text. C changes an index to 
the current point of generation for 
possible subsequent use by M or C 
commands. X causes execution of an exit 
routine . 

6. Items in general return results in 
quaternary logic. "True" means a 
positive identification, "false" means a 
clear failure, "maybe" results from 
generation or from a failed optional 
test, and "disaster" results from a 
"true" test followed by a "false" within 
a clause where all items must be found. 



ERROR CONDITIONS 



Phase 05 terminates upon detecting a 
syntax error in the COBOL source program. 
When such an error is detected, phase 05 
issues an error flag to signal phase 08 
that the following source cards are to be 
passed on without processing. Phase 05 then 
treats the balance of the program as comment 
cards. 

In addition to the condition mentioned 
above, unusual termination of phase 05 can 
occur if the source program contains: 

• Too many (approximately 80 or more) 
consecutive * -comment cards. 

• Too many (approximately 100 or more) 
consecutive blank cards. 

If one of the above two conditions (of 
phase 05) occurs, the file written on SYS002 
is incomplete. 
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PHASE 06 



Phase 06 (ILACBL06), the Lister sort 
phase, inserts cross-reference information 
into the source program. Phase 06 makes 
two or more passes of the file created by 
phase 05. Based on the syntactic markers 
contained in the file, this phase inserts 
pointers into the source program as 
follows: 

• At the place of definition, pointers to 
the places where references to that 
item occur. 



Input 



The input for the first pass of phase 06 
is the file written on SYS002 by phase 05. 
Input for subsequent passes of phase 06 is 
the output of the previous pass. That is, 
input will be read alternately from SYS002 
and SYSOOU (beginning with SYS002). 



• At the places of reference, pointer' 
the place of definition. 



to 



During each pass of the file, phase 06 
resolves references and merges them into 
the source program; the number of passes 
depends on the amount of storage available 
and the number of cross-references to be 
processed. A partial dictionary of all 
definitions is used by all passes. The 
dictionary is continually updated by adding 
new definitions as space becomes available 
and deleting definitions that have been 
completely processed and are no longer 
needed. 



Output 



The output of phase 06 is written 
alternately on SYSOOU and SYS002. Output 
of the first pass of phase 06 will always 
be written on SYSOOU and output of the last 
pass will always be written on SYS002. The 
output file consists of the source program 
with cross-reference information embedded 
in it; the contents of the file will be 
formatted and printed by phase 08. 
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PHASE 08 



The functions of phase 08 (ILACBL08) are 
as follows: 

- Print the first page (preface) of the 
Lister listing 

- Print the body of the Lister IJLsting 

- Depending on the options specified 

— Punch the reformatted source progrcun 
deck on SYSPCH 

— Pass the reformatted source program, 
via SYS004, to phase 10 for 
compilation 



Input 



For the preface, phase 08 uses no input. 
For the remainder of the listing, phase 08 
reads input from SYS002. Input consists of 
the source program with embedded 
cross-reference information from phase 06. 



The Lister option listing is printed on 
SYSLST. The internal card-image source 
program, which may serve as input for 
subsequent compilation, is produced on 
SYS004 if the LSTCOMP option is in effect. 
The reformatted source deck is produced on 
SYSPCH if the Lister DECK option is in 
effect. 



Processing 



From the source program with embedded 
cross-reference information, phase 08 builds 
an entire page in storage. The phase 
reformats the source program and creates 
foptnotes as required. When the optimum 
place for a new page is reached, phase 08 
prints the created page on SYSLST and then 
deletes the page from storage. The process 
is repeated until all data from SYS002 has 
been processed. To produce the summary 
listing, phase 08 repositions SYS002 to the 
first record and reads it again. 



Output 



The output of phase 08 consists of: 

- The preface, which describes 

— The format of the listing 

— The use of statement numbers 

— The classification of reference 

— The use of footnotes in the listing 

— The method of indentation 

— The reformatted deck that can be 
obtained 

— The summary listing 

- The Lister option listing 

- An internal card-image COBOL source 
program 

- A reformatted source deck 



ERROR CONDITIONS 



It is possible that some footnotes on 
some COBOL programs may be lost. If a 
particular COBOL program requires a very 
large number of footnotes, there may not be 
enough storage space to contain the complete 
footnote table. In those cases not all of 
the footnotes will be printed in the 
Procedure Division of the Lister option 
listing. 

Upon encountering the error flag, 
phase 08 issues a message informing the 
user that Lister processing has terminated 
because of a source syntax error. The 
balance of the program is then printed (and 
passed on SYS004, if LSTCOMP) without 
reformatting or cross-referencing. 
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PHASE 10 



Phase 10 (ILACBLIO) reads the source 
statements for the Identification, 
Environment, and Data Divisions, except the 
Report Section. As it reads the card 
images, it performs the following major 
functions: 

• Encoding in Data IC-text (see "Section 
5. Data Areas"), and storing in tables 
and in cells of the compiler 
communications area (COMMON) 
information from the Identification, 
Environment, and Data Division source 
statements. 

• Analyzing the syntax of the statements 
read. 

• Writing, on SYSLST (SYS006 for LVL 
option) , the source program listing of 
the Identification, Environment, and 
Data Divisions (except the Report 
Section) if the LIST and NOLIB options 
are in effect. 

Phase 10 includes several major working 
routines and the division processing 
routines . 



MAJOR WORKING ROUTINES 



There are three routines in phase 10 
that are used extensively by more than one 
of the division processing routines. These 
are the GETWD, GETCRD, and GETDLM routines. 
These routines are also used by phases 11 
and 12. 



GETCRD Routine 



• Getting a logical unit from the input 
card image provided by the GETCRD 
routine, identifying and encoding it, 
and sending it to the calling routine 
for processing. A logical unit is 
defined as all the characters between 
one blank and the next. 

• Generating a card number for each input 
card, starting with 1. The current 
card number is kept in a halfword 
labeled CURGCN, 

• Making sure the next logical unit is 
valid for the division being processed. 

Each logical unit is analyzed and 
encoded into internal phase 10 code which 
tells the processing routine what type of 
item it is (COBOL word, qualified BCD name, 
etc.) . 



GETDLM Routine 



The GETDLM routine acts as the 
coordinator for the processing of the 
Identification, Environment, and Data 
Divisions. The major functions of the 
routine are: 

• Looking for delimiters (division 
headers, level numbers, etc.) and 
passing control to the proper division 
routines, 

• Recognizing literals that are level 
numbers and encoding them as such. 

• Causing termination of phase 10 when it 
recognizes the Report Section header, 
the end of the Data Division, or an 
end-of-file condition on the input 
device. 



The GETCRD routine reads the next card 
from SYSIPT, or from SYS004 if LIB or LST 
is in effect, stores its image into a work 
area called COMWRK, and writes a line on 
SYSLST (SYS006 for LVL option) if the LIST 
option was specified and no Lister options 
were specified. 



GETWD Routine 



The main functions of the GETWD routine 
are: 



IDENTIFICATION DIVISION 



The Identification Division scan routine 
(IDDSCN) is entered immediately after the 
phase 10 initialization routines. The 
input is scanned for an Identification 
Division header. When one is encountered, 
the cell for the next logical unit is 
filled by GETWD and checked to see whether 
it is PROGRAM-ID. If it is, the program 
name is saved in the PROGID field of COMMON 
(see "Section 5. Data Areas") to be used 
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later either as the CSECT name of the 
object module or to form the names of the 
segments in a segmented program. 

After the PROGRAM-ID has been saved, the 
Identification Division is written on 
SYSLST (SYS006 for LVL option) if the LIST 
option was specified or on SYS006 if LVL 
was specified. If a DATE-COMPILED 
paragraph is included in the Identification 
Division, the information in the paragraph 
is deleted and the current date is inserted 
from COMMON. 



ENVIRONMENT DIVISION 



When the Environment Division header is 
encountered, the Environment scan routine 
(ENVSCN) searches for the Configuration and 
Input-Output Sections and, as each is 
found, branches to the routines that 
process it. These routines produce the 
file definition portion of Data-IC text 
(for text formats, see Data Areas section), 
which is combined with the data definition 
portion later in phase 10. 



DECIMAL-POINT Clause ! The KDECML field is 
changed from "period" to "comma". 
Thereafter, when phases 10, 11, and 12 scan 
numeric and floating-point literals, commas 
instead of periods are recognized as decimal 
points. 

UPSI-n Clause ; Dummy dictionary entries are 
created from the data in each UPSI-n clause 
and are entered in the UPSTBL table. The 
dunrniy dictionary entries' are so constructed 
that phase 22 can enter into the dictionary 
an LD entry from each UPSI-n and each 
mnemonic-name, and a condition-nsune entry 
from each condition-name-1. 

Function-name IS Mnemonic-name Clause ; An 
entry is made in the SPNTBL table for each 
mnemonic-name, and in the ALPHTBL for each 
alphabet-name. These table entries are used 
by phase 11 during processing of the 
Procedure Division. When phase 11 scans 
ACCEPT or DISPLAY Statements, it replaces 
the mnemonic-name with the proper console or 
device name by checking this table. When 
phase 11 scans a WRITE. . .AFTER ADVANCING 
statement, it replaces the mnemonic-name 
with the proper carriage control word. When 
it processes any SORT or MERGE verb with 
COLLATING SEQUENCE specified, it checks the 
ALPHTBL for a valid name. 



CONFIGURATION SECTION 



The SOURCE-COMPUTER paragraph and the 
OBJECT-COMPUTER paragraph, including the 
SEGMENT-LIMIT clause and the SPECIAL-NAMES 
paragraph is processed in phase 10. 



SOURCE-COMPUTER Paragraph 



If the WITH DEBUGGING MODE clause is 
specified, the VZBUGON switch in COMMON will 
be set on. 



INPUT-OUTPUT SECTION 



The routines that process the 
Input-Output Section build and use the 
ENVTBL and QNMTBL tables. The QNMTBL table 
contains variable-length names; the ENVTBL 
table contains pointers to each entry in 
the QNMTBL table. These tables are 
released later in phase 10. Their formats 
are given in "Section 5. Data Areas". 



FILE-CONTROL Paragraph 



OBJECT-COMPUTER Paragrap h 



If PROGRAM COLLATING SEQUENCE, save the 
name to be checked for during SPECIAL-NAMES 
processing. 



SPECIAL-NAMES Paragraph 



CURRENCY-SIGN Clause ; The literal specified 
is checked for validity (based on the 
setting of LANGLVL) and then stored in the 
CURSGN cell of COMMON. Thereafter, whenever 
phase 20 scans a PICTURE clause, it 
recognizes the literal as the currency sign. 



The SELSCN routine produces one partial 
Data IC-text entry for each SELECT 
sentence. These entries contain only file 
information and are stored in the ENVTBL 
table. Later, during Data Division 
processing (see "File Section" in this 
chapter) , these entries are used to produce 
complete FD entries in Data iC-text. 

For each SELECT sentence, the file-name 
and other pertinent information are entered 
into the ENVTBL table. Variable-length 
names are entered into the QNMTBL table, 
and pointers to the QNMTBL entries are 
placed in the appropriate ENVTBL fields. 



40 Section 2. Method of Operation 



Licensed Material - Property of IBM 



The ALTSCN routine gains control from 
SAENT whenever ALTERNATE is found in a 
SELECT statement. ALTSCN first tests the 
FRSTALT bit switch, checking for ALTERNATE 
RECORD KEY under current SELECT. For all 
ALTERNATE RECORD KEY clauses, CHKSAR enters 
the data-name in QNMTBL. If the DUPLICATES 
option is present/ a bit is turned on in 
INDTBL for that key. When another ALTERNATE 
clause is found in NXTCOD, a chain bit is 
turned on in the INDTBL entry. Control is 
returned to SAENT after FRSTALT is reset. 



VSAM File Processing 



For FILE STATUS clause processing, 
SELSCN passes control to the file status 
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routine to enter the FILE STATUS dataname 
into the QNNTBL and to set a pointer to 
QHMTBL in the corresponding EHVTBL table 
field. A corresponding bit is also turned 
on in the EHVTBL to indicate that a FILE 
STATUS clause has been specified. 

For PASSWORD clause processing, SELSCN 
passes control to the password routine to 
enter the password into the QNMTBL and to 
set a pointer to QMHTBL in the 
corresponding EHVTBL table field. A 
corresponding bit is also turned on in the 
EHVTBL to indicate that a PASSWORD clause 
has been specified. 



Jl-O-Control Paragraph 



When the I-0-Control paragraph header is 
encountered » the EHVSCM routine calls the 
pertinent routines for processing the SAME, 
RBRUH, MULTIPLE FILE TAPE, and APPLY 
clauses. 

SAME Clause ; For each clause encountered, 
the files naaed are entered into one of the 
following tables: for SAME AREA, the SATBL 
table; for SAME RECORD AREA, the SRATBL 
table; for SAME SORT AREA, the SSATBL 
table. 

At the end of the Environment Division 
processing, a unigue number is assigned to 
each clause of each type (by means of 
incrementing counters) . For example, the 
first SAME AREA clause is assigned the 
number 1; the second SAME AREA clause is 
assigned the number 2; and so forth. 
Similarly, the first SAME RECORD AREA 
clause is assigned the number 1 ; the second 
SAME RECORD AREA clause is assigned the 
number 2; and so forth. The same procedure 
is followed for SAME SORT AREA clauses. 

The EHVTBL table is then searched for 
all the files named in the SAME clauses, 
and appropriate numbers are inserted into 
these entries of the EHVTBL table to 
identify the SAME clauses in which the 
files were named. For example, if three 
SAME RECORD clauses were specified, each 
file named in the first clause would have 
••1" in the SAME RECORD field of its BNVTBL 
table entry; each file named in the second 
clause would have "2" in the SAME RECORD 
field; each file named in the third clause 
would have »3" in the SAME RECORD field. 

The appropriate switches are set in the 
EHVTBL table entries. At this time, the 
SATBL, SRATBL, and SSATBL tables are 
released. 

RERUH Clause : Format 1: An entry for the 
file name is made in the CKPTBL table. In 



the EHVTBL table entry for this file, the 
CKPTBL bit is set to 1 and a pointer to the 
CKPTBL table entry is inserted. The RERUH 
bit in the PIOTBL table entry associated 
with the file-name is later set to 1 during 
Data Division processing. The RERUH switch 
in COMMOH is turned on. 

Format 2 (SORT-RERUH) : An entry is made 
in the CKPTBL table, with the IHTE6ER field 
set to zero. 

MULTIPLE FILE TAPE Clause ; The MULTIPLE 
FILE TAPE switch is set to 1 in the EHVTBL 
table entry for the file named in the 
clause. A number indicating the file's 
position on the tape is placed in the 
POSITIOH IHTEGER field. 

APPLY Clause : For each option, a switch is 
set in the EHVTBL table entry for the file 
named in the clause. 

Option 1: The WRITE-OHLY switch is set. 

Option 2: The EXTEHDED-SEARCH bit is 
set. 

Option 3; The WRITE-VERIFY switch is 
set. 

Option 4: The CYL-OVERFLOW switch is 
set. The number of tracks is converted 
to binary and placed into the 
CYL-OVERFLOW-TRACKS field. 

Option 5 (Format 1) : The MASTER -IHDEX 
switch or the CYLIHDER-IHDEX switch is 
set. The device-number is stored in the 
DEVICE-TYPE-CODE field. 

Option 5 (Format 2) : The CORE-IHDEX 
switch is set. The data-name is stored 
in the QHMTBL table, and a pointer to it 
is entered in the EHVTBL table entry for 
this file. 



DATA Division 



When the Data Division header is 
encountered, the 6ETDLH routine calls the 
DDSCH routine, which in turn calls the 
routines that process the File, 
Working-Storage, and Linkage Sections. If 
a Report Section is encountered, phase 00 
is called to load phase 12, which processes 
the Report Section. 

As the Data Division source statements 
are encountered, the following steps are 
taken to form Data IC-text: 

• File and record information is entered 
into a work area (ICTEXT) . 
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• Entries are made in the 0D2TBL, QNHTBL, 
FNTBL, and RCDT6L tables. 

• Information for PDs in the ICTEXT work 
area is merged with the corresponding 
ENVTBL table entry. 

• Data IC-text for PDs, LDs, and SDs is 
generated and written on file STS003. 
At this time, space is reserved in the 
PIOTBL table. 

Completed Data IC*-text is used in Phases 
22 and 21 to make dictionary entries for 
data-names and file-names and to generate 
Data A-text. 

The routines that process the Data 
Division use the ENYTBL and QNHTBL tables 
(additional entries are made in the QNMTBL 
table) and build the 0D2TBL, PNTBL, and 
RCDTBL tables (see "Section 5. Data Areas" 
for formats) . All of these tables except 
the ENVTBL and QMHTBL tables are passed to 
phase 11. The PIOTBL table is also used by 
phase 21, and the 0D2TBL table by phase 22 
and phase 25. The PIOTBL table entries are 
filled in by phase 11 during Procedure 
Division processing and indicate which OPEN 
options and input/output verbs are used for 
each file; the 0D2TBL table is used to 
generate Q-Routines (object module 
subroutines used to calculate variable 
lengths for OCCURS. . .DEPENDING ON fields 
and variably located fields following the 
variable-length fields) . The 0D2TBL table 
is also used in building the debug file if 
SYHDHP has been specified (see "Building 
the OBODOTAB Table" in the chapter "Phase 
25") . 



PILE SECTION 



After the Pile Section header is 
encountered, the DDSCN routine calls the 
appropriate routines to process PDs, SDs, 
and LD's in the source program. 



File Descriptj.on Entries 



Each Pile Description entry (PD) is 
analyzed, and information from the clauses 
is entered into the ICTEXT work area. This 
information, which includes the file-name 
and the LABEL RECORDS switches, is merged 
with some of the ENVTBL information and 
placed into the PNTBL table. This ENVTBL 
information includes the ACCESS RANDOM and 
mass-storage switches and the CKPTBL bit 
that were set during Environment Division 
processing. A PIOTBL table entry is set 
up, and pointers to this entry are placed 



in the PNTBL and ENVTBL tables. The PIOTBL 
table contains binary zeros at this time. 
Variable-length names such as LABEL RECORD 
data-nanes are entered into the QNMTBL 
table, and pointers to these entries are 
placed in the work area. 

Note that the REPORT clause in the PD 
statement requires special processing; this 
is described in the phase 12 chapter. 

When this processing has been completed, 
the ENVTBL entry and the file description 
information from the work area are merged 
into Data IC-text PD entries. Names from 
the QNMTBL table are located (from their 
ENVTBL table pointers) and inserted where 
needed. Each completed Data IC-text 
element is written out. When Pile Section 
processing has been completed, the QNMTBL 
table is released. 



Sort Description Eptpies 



Each Sort Description entry (SD) is 
placed in work area ICTEXT and is used to 
generate an SD entry of Data-IC text. 



Record Description Entries 



When a level-number entry (LD) is 
encountered, the DDSCN routine calls a 
routine to analyze the entry and store 
information from the clauses into work area 
LDTEXT. (This area is the same physically 
as ICTEXT.) If the OCCORS clause with the 
DEPENDING ON Option is included, the object 
of the clause and its qualifiers are 
entered into the 0D2TBL table (no duplicate 
entries are made) . A pointer to the entry 
is inserted later into the Data IC-text for 
the Record Description. (Each level-number 
results in a Data IC-text element in 
LD-text format. LD-text is an internal 
phase 10 text.) 

Por 01-level items, an RCDTBL table 
entry is made, consisting of a pointer to 
the most recent file-name entry in the 
PNTBL table, followed by the record name. 
As a result, each RCDTBL table entry 
contains a pointer to a corresponding PNTBL 
table entry, which in turn contains a 
pointer to a corresponding PIOTBL table 
entry (see "Section 5. Data Areas") . This 
relationship is used by phase 11 when 
processing WRITE and REWRITE statements to 
relate records to their associated files. 

When all the information about the 
data-name has been stored in LDTEXT, the 
contents are written out as an LD entry in 
Data IC-text on SYS004. 
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WORKING- STORAGE AND LINKAGE SECTIONS 



SYNTAX ANALYSIS 



The Record Descriptions in the 
Working-Storage and Linkage Sections are 
processed in much the same way as those in 
the File Section. However, since they are 
not associated with files, no RCDTBL table 
entries are made. 



Phase 10 performs a syntax analysis of 
the Identification, Environment, and Data 
Divisions during division processing. 
Included are such things as checking for 
division headers and making sure that the 
PROGRAM-ID clause appears in the first 
paragraph of the Identification Division. 
If user errors are detected during syntax 
analysis, E-text is generated. 
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PHASE 12 



Phase 12 reads the source statements of 
the Report Section of the Data Division, 
producing one complete Report Writer 
Subprogram (RWS) for each RD that it 
encounters. As it does so, it also: 

• Scans its input for errors and 
generates any necessary E-text. 

• Generates a listing of the Report 
Section on SYSLST (SYS006 for LVL 
option) , if the LIST and NOLIB options 
are in effect and no Lister options are 
in effect. 

• Records information for later phases in 
TAMER tables and in COMMON cells. 

Phase 12 reads its input from SYSIPT or 
from SYS 004 if the LIB or 1ST option is in 
effect. It writes its output, the RWS, in 
the form of Data IC-text on SYS003 and in 
PO-text on SYS002. Any E-text produced is 
also written on SYS002, intermingled with 
the PO-text. The input and output are 
simunarized in Figure 11. The RWS is 
described in Appendix C. 

If the VERB option is in effect. Listing 
A-text is generated and passed to phase 60 
or 64 so that the object program listing 
can include verb-names and procedure-names. 
Each text element is simply a word in 
EBCDIC format preceded by a code and a 
count. For every Listing A-text element 
written, a card number element is written 
in PO-text. This card number (passed on 
through the changing text forms) indicates 
to phase 60 or 64 when to read a Listing 
A-text element. 



OPERATIONS IN OTHER PHASES 



In addition to normal processing of the 
Data IC- and PO- texts, other phases perform 
related operations in response to elements 
of the source program or of the RWS. These 
elements include the REPORT clause, the 
Report Section header, USE sentences, the 
Procedure Division verbs INITIATE, 
GENERATE, and TERMINATE, control-field 
save-area names, and REDEFINES clauses. 



clause only) , sets a flag bit in the PIBTBL 
table (first REPORT clause only), and 
enters the report name into the RWRTBL 
table (each REPORT clause encountered). 
Phase 12 later checks the flag bit and, if 
it is not set, returns control to phase 00 
without producing an RWS. 



REPORT SECTION HEADER 



Upon encountering the Report Section 
Header, phase 10 sets the RPTWR bit in the 
PHZSW switch in COMMON, Routine INTIO of 
phase 00 later checks the bit and calls 
phase 12 when it is set. 



USE SENTENCES 



Upon encountering a USE sentence in the 
Declaratives Section of the Procedure 
Division, phase 11: 

• Generates REPORT-ORIGIN, a special 
Report Writer verb, to cause the 
address counter to be set to the first 
instruction in the RWS group routine 
resulting from the report group 
specified in the USE sentence. 

• Inserts, at that point in the RWS 
routine, a link to the USE routine. 

• Generates another Report Writer special 
verb, REPORT-REORIGIN, to reset the 
address counter. 

Note: Report Writer verbs are discussed 
under "Elements of a Report Writer 



REPORT CLAUSE 



When a REPORT clause in an FD statement 
is encountered, routine TBLRPT of phase 10 
primes the RWRTBL table (first REPORT 



Subprogram" in Appendix C. 



PROCEDURE DIVISION VERBS 



Upon encountering an INITIATE, GENERATE, 
or TERMINATE verb, phase 11 generates 
PO-text, and phase 51 later generates 
linkage between the main program and 
appropriate routines in the RWS. The 
INITIATE verb results in a link to the 
INT-ROUT routine, TERMINATE to the LST-ROUT 
routine, GENERATE report- name to the 
1ST- ROUT routine, and GENERATE detail-name 
to the DET-ROUT routine. 
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CONTROL-FIELD SAVE-AREA NAMES 



Upon encountering control- field 
save-area names (which are generated by 
phase 12), phase 22 generates a dictionary 
entry consisting of the "-nnnn" name and 
the attributes of the control field which 
had been previously defined in the Data 
Division. Further discussion of 
control- field save-areas is provided under 
"Nonstandard Data-names" in Appendix C. 



RWS group routines for all of the 01- level 
statements defined in the source program. 
Routine GNSPRT is then called on to 
complete the RWS by filling in the fixed 
and parametric routines and any necessary 
dummy group routines. Phase 12 then checks 
to see if the next logical record is an RD 
statement, in which case another RWS is 
needed and the process begins again with 
routine RDSCAN, or if it is the Procedure 
Division header, in which case phase 12, 
being finished, returns control to phase 
00. 



REDEFINES CLAUSE 



Upon encountering Data IC-text for a 
Report Writer REDEFINES clause, phase 22 so 
processes it that the E-point name data 
item generated from the COLUMN clause 
points to the relative location in the 
print-line work area, RPT.LIN, equal to the 
integer specified in the COLUMN clause. 
When an item is later to be moved to 
RPT.LIN, the location can be determined 
from the E-point name. The length is taken 
from the PICTURE clause information in the 
dictionary attributes for the item. 
E-Point and RPT.LIN are discussed under 
"Nonstandard Data-names" in Appendix C. 



PRODUCING THE REPORT WRITER SUBPROGRAM 
(RWS) 



Generating a complete subprogram is the 
task of five routines in phase 12: RDSCAN, 
PROCOl, PROC02, FLUSH, and GNSPRT. Routine 
GETDLM controls the flow of processing for . 
phase 12. That flow is tailored to the 
particular source program, but the 
following discussion explains the general 
concept. 

The RDSCAN routine processes the RD 
statement and is followed by routine 
PROCOl, which processes the Gl-level 
sentence. If that sentence is an 
elementary item, routine PROC02 is called 
upon to process each elementary-level 
clause until the entire sentence has been 
processed. At that point, the FLUSH 
routine is called to finish generating the 
group routine. If the sentence is the 
01-level statement of a group item, routine 
PROCOl processes the sentence, and routine 
PROC02 is called to process the elementary 
and lower-level group items following. 
When that is done, routine FLUSH is called, 
does its processing, and the compiler goes 
on to the next Ol-level statement. 

The PROCOl-FLUSH or PROC01-PROC02-FLUSH 
loops continue until phase 12 has generated 



ROUTINE RDSCAN 



The RDSCAN routine is responsible for 
processing the RD entry of the source 
program. After first ensuring that an RWS 
should be generated (by determining whether 
the RWRTBL table is primed) , it reads each 
logical unit of the RD and processes it- 
The routine operates in a loop-type scan, 
checking each item to see if it is a 
period, CODE clause, CONTROL clause, or 
PAGE clause. If it is none of these, it is 
treated as an error. 

Routine RDSCAN then sets appropriate 
switches and enters data into storage areas 
and tables. It then gets a new record and 
repeats the loop until it encounters a 
period. When this happens, control returns 
to routine GETDLM, which calls routine 
PROCOl. 



ROUTINE PROCOl 



•Routine PROCOl processes the 01-level 
record descriptions. Valid input for this 
routine includes the period and the NEXT 
GROUP, LINE, TYPE, and USAGE clauses. It 
operates in a loop-type scan and processes 
each clause in much the same way as the 
RDSCAN routine does. Since an 01-level 
elementary entry is permissible, other 
clauses can also be valid. Before assuming 
an error, routine PROCOl, therefore, 
branches to the PROC02 routine to check for 
and process elementary-level clauses. Once 
a valid clause is processed in one or 
another of these routines, control returns 
to the beginning of the loop in routine 
PROCOl. 

Processing of the TYPE clause marks the 
generation of the initial coding for the 
group routine. Since the compiler has, at 
that point, enough input to begin the group 
routine, the first part of that routine is 
generated here. 
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ROUTINE PROC02 



Routine PROC02 is entered when routine 
GETDLM encounters an 02-U9-level entry or, 
at entry point PR02A, during PROCOl's scan 
of an 01-level elementary item. Its 
operation is similar to that of routines 
RDSCAN and PROCOl, except that checks are 
made so that control returns to routine 
PROCOl when appropriate. 



ROUTINE FLUSH 



Generates any needed CTH-ROUT 
routines. A CTH-ROUT routine is 
needed for any control specified in 
the source program after the highest 
level (or FINAL) control. If the 
source program contains no TYPE IS 
CONTROL HEADING report description for 
such a control, routine GNSPRT 
generates a dummy group routine here 
to fill the need. 

Generates any needed CTF-ROUT 
routines. A CTF-ROUT routine is 
needed under circumstances like those 
for a CTH-ROUT routine. 



When routine FLUSH is called, all the 
information needed to complete one group 
routine is available in the form of table 
entries, contents of data areas in storage, 
and switch settings. Routine FLUSH 
generates the exit coding for the group 
routine, and then returns control to 
routine GETDLM. 



9. • Generates one SAV-ROUT routine and one 
RET-ROUT routine. 



GENERATING ERROR MESSAGES 



ROUTINE GNSPRT 



Routine GNSPRT is called when the GETDLM 
routine encounters a new RD or the 
Procedure Division header. At this point, 
all group routines defined in the source 
program have been written onto SYS002 (in 
PO-text) , and all data needed to complete 
the RWS is in storage. Routine GNSPRT 
first writes out the necessary Data IC-text 
on SYS003 and then, in order: 

1, Generates the WRT-ROUT routine. 



Coincident with producing the RWS, phase 
12 scans its input for syntax errors. 
Checks are made to ensure that each routine 
is both correct in itself and compatible 
with the rest of the RWS. If errors are 
detected, messages are written in E-text 
and recovery is attempted. When necessary, 
attempts to produce the particular RWS are 
abandoned. The E-text is written, 
intermingled with PO-text, on SYS002. 



GENERATING THE SOURCE LISTING 



2. Generates a dummy group routine for 
any of the following groups not 
defined in the source program: 
Control Heading Final, Control Footing 
Final, Page Footing, Page Heading, 
Report Heading, cind Report Footing. 

3. Generates the INT-ROUT routine. 



As each record is read from SYSIPT, a 
check is made to determine if the LIST 
option is in effect. If so, the source 
statement is copied out onto SYSLST (or 
SYS006 for LVL option). 



4. Generates, if a PAGE LIMIT clause was 
specified in the source program, an 
ALS-ROUT routine and an RLS-ROUT 
routine. If no PAGE LIMIT clause was 
specified, the RWS contains neither of 
these two routines. 

5. Generates one USM-ROUT routine for 
each TYPE IS DETAIL group specified 
under the RD statement being 
processed. 

6. Generates in order, one each of the 
following routines: CTB-ROUT, 
RST-ROUT, IST-ROUT, LST-ROUT, and 
ROL-ROUT. 



INFORMATION FOR LATER PHASES 



During its processing, phase 12 stores 
various types of information for later 
phases to use. For example, phase 12 
builds the ROUTBL table, which contains the 
specific GN numbers assigned to certain RWS 
routines. Phase 11 needs this information 
in order to process INITIATE, TERMINATE, 
GENERATE, and USE BEFORE REPORTING 
statements. Such items are stored in TAMER 
tables and in cells in COMMON. For more 
details on this subject, refer to Figure 10 
and to "Communications Region" and "Table 
Formats" in "Section 5: Data Areas." 
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PHASE 11 



Phase 11 (ILACBLll) reads the source 
statements of the Procedure Division. It 
is entered via phase 00 when phase 12 
encounters the Procedure Division header, 
or when the GETDLM routine in phase 10 
encounters an end-of-file condition. As it 
reads each card in the Procedure Division, 
phase 11 does the following: 

• Encodes the Procedure Division into 
PO-text. 

• Enters procedure-names into the 
dictionary. 

• Writes the Procedure Division on SYSLST 
(SYS006 for LVL option), if the LIST 
and NOLIB options are in effect and no 
Lister options are in effect. 

• Generates error text (E-text) for 
syntax errors it encounters. 

The phase 11 routines first process the 
out-of-line procedures contained in the 
Declarative Sections. (Processing 
—declaratives is described later in this 
chapter.) Then the in-line program is 
processed. 

Tables passed from phase 10 and used by 
phase 11 include the PIOTBL, FNTBL, RCDTBL, 
PIBTBL, and SPNTBL tables. Tables passed 
from phase 12 and used by phase 11 are the 
DETTBL, RNMTBL, ROUTBL, and RWRTBL tables. 
The PNTABL and PNQTBL tables are built 
during phase 11. If the VERBREF or VERBSUM 
option is in effect, phase 11 will create 
the VERBDEF Tamer table. Formats for 
tables, text entries, and dictionary 
entries are given in "Section 5. Data 
Areas . " 

Phase 11 functions are performed under 
the control of the PDSCN routine and the 
two major working routines GETCRD and GETWD 
(which supply input to PDSCN). The GETCRD 
and GETWD routines are described under 
"Major Working Routines" in the phase 10 
chapter. These and all other routines used 
by both phases do not remain in storage 
from phase 10, but are reloaded with phase 
11. 

If the VERB, VERBREF, or VERBSUM option 
is in effect. Listing A-text is generated 
and passed to phase 60 or 6U so that the 
object program listing can include 
verb-names and procedure-names. Each text 
element is simply a word in EBCDIC format 
preceded by a code and a count. For every 
Listing A-text element written, a card 



number element is written in PO-text. This 
card number (passed on through the changing 
text forms) indicates to phase 60 or 64 
when to read a Listing A-text element. 



ENCODING THE PROCEDURE DIVISION 



A major activity of phase 11 is writing 
PO-text. This text is, roughly, the source 
program Procedure Division encoded into a 
form acceptable to later phases. Logical 
units (source program character 
configurations) are processed, encoded, and 
written out one at a time. Some 
information, such as card numbers, is 
generated for PO-text. All user-assigned 
names are passed unchanged (preceded by 
code and count fields) from the source 
text. Verbs and other COBOL words are 
replaced by unique 2-byte codes. For the 
complete text formats, see "Section 5. 
Data Areas. " 



PROCESSING PROCEDURE -NAMES 



At its point of definition, each 
procedure- name (paragraph- name or 
section-name) is given a PN number. The 
point of definition is that point at which 
the name appears in Area A of the source 
program, PN numbers are assigned 
sequentially, starting with 1, from cell 
PNCTR in COMMON. The procedure-name is 
entered into the dictionary and written in 
PO-text. Some dictionary attribute bits 
are set when the entry is made, and others 
are moved in from the PNTABL or PNQTBL 
tables later when the attributes are known. 
The building of the PNTABL and PNQTBL 
tables is described below under "Processing 
Verbs." Entering PNTABL and PNQTBL 
information into the dictionary is 
described later in this chapter. 



Priority Checking for Segmentation 

For each section-name, the segmentation 
priority is entered into the dictionary. 
If no priority number was specified,, zero 
is entered as the priority (in a 
nonsegmented program, all sections are 
given a zero priority) . If a priority 
number was specified, its value is compared 
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to the value of the SEGLMT cell in COMMON 
(this cell either was set by phase 10 when 
processing the SEGMENT-LIMIT clause or 
contains a default segment- limit of U9). 
If the priority number of the section-name 
is less than SEGLMT, it means that the 
section is part of the root segment. In 
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this case, the priority number of the 
section-name is entered into the dictionary 
as zero. If the priority number exceeds 
SEGLHT, the specified number is entered 
into the dictionary. 

Each time a section-name is found whose 
priority exceeds the yalue of SEGLHTf a 
phase 11 switch is turned on. If, at the 
end of Procedure Division processing, this 
switch still contains zero, it means that 
the program is not segmented and SE6LHT is 
set to hexadecimal *P?*. If the switch is 
on, SEGLHT is left as it was. The value of 
SEGLHT is used by later phases to determine 
whether or not the program is segmented. 



PROCESSING VERBS 



All verbs are encoded and written as 
PO-text. In addition, the verbs discussed 
below require special handling. 



Procedure Branching Verbs 



When the procedure branching verbs 
(ALTER, EXIT, 60 TO, and PERFORM) are 
processed, information about how a 
procedure-name is used is entered into the 
PNTABL or PNQTBL table. If the 
procedure-name to be entered is qualified 
by a section-name, the procedure-name and 
its qualifier are entered into the PNQTBL. 
If the procedure -name is not qualified, it 
is entered into the PNTABL. Entries from 
the tables are used to set some of the 
attribute bits in the dictionary entries 
for the procedure-names. A unique bit is 
turned on in the attributes field for the 
procedure-name according to their use. 

GO TO ; The left-hand name (the 
procedure-name appearing in Area A, not the 
object of the GO TO) is entered into the 
PNTABL table. If the DEPENDING ON option 
is used, no entry is made. 

EXIT ; The left-hand name is entered into 
the PNTABL table. 

ALTER ; The procedure-name following the 
word ALTER and the procedure-name following 
the phrase TO PROCEED TO are entered in the 
PNTABL table. 

PERFORM.. .THRO ; The procedure-name 
following the THRO is entered into the 
table. If the THRO option is not used, the 
procedure-name following PERFORM is 
entered. 



Input/OutPUt Verbs 



Switches are set in the PIOTBL table 
entry for the file named in input/output 
verbs. These switches tell phase 21 how 
the file was used. In addition, the 
following processing takes place. The 
REDSVB routine also checks for the word 
NEXT in the READ verb. If it is present, 
the routine turns on the appropriate bit in 
the PIOTBL table. 



OPEN; If the label or error-processing 
declaratives were written for this file, 
GNs (generated procedure names) for the 
declaratives are encoded into the PO-text 
following the file-name in the OPEN 
statement. The handling of these 
declaratives is described under "Processing 
Declaratives" in this chapter. 

DELETE ; The FILSVB subroutine checks that 
the filename specified in the DELETE verb 
was previously specified in a SELECT 
statement. The subroutine turns on the 
appropriate bit in the PIOTBL table if the 
file>name is valid. 

START ; The STTSVB subroutine checks that 
the file name specified in the START verb 
was previously specified in a SELECT 
statement . The subroutine turns on the 
appropriate bit in the PIOTBL table if the 
fileneune is valid. The subroutine also 
checks for a KEY of REFERENCE and/or an 
INVALID KEY clause. If either or both are 
found, the subroutine turns on the 
appropriate bit (A) in the PIOTBL table. 



WRITE. REWRITg ; The record name is sought 
in the RCDTBX. table; the RCDTBL entry 
contains a pointer to the FNTBL table, 
which is used to find the file-nane. The 
file-name is then included in the PO-text 
entry (in the form "WRITE file-name 
record-name") . if the ADVANCING option of 
the WRITE statement is used with the 
mnemonic-name option, it is sought in the 
SPNTBL table and replaced with the proper 
function-name. 



Other Verbs 



ACCEPT. DISPLAY ; If a mnemonic name is 
used, it is sought in the SPNTBL table and 
replaced by the proper function -name. 

DEBOG ; The attribute bits in the 
dictionary entry for the paragraph referred 
to are set. 
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EXHIBIT ; A special EXHIBIT data-name is 
generated* 

READY ; The TRACE switch in COMMON is set. 

SORT/MERGE ; If the OSING or GIVING option 
is specified, the appropriate bits are set 
in the PIOTBL table entries for the files 
named. If these files are also specified 
in label or error processing declaratives, 
the GNs for the declaratives are appended 
to the file-name. 

If the COLLATING SEQUENCE phase is 
specified/ the ALPHTBL is scanned to ensure 
that the phase is valid. 

Report Writer Verbs ; See "Appendix C: 
Report Writer Subprogram. " 



PROCESSING DECLARATIVES 



When a Declaratives Section is 
encountered/ the section-name (and any 
paragraph-names as they are encountered) 
are entered into the dictionary. A PNTABL 
entry is made for the section-name; the 
declarative bit and the bit identifying the 
type of declarative are set. Every 
paragraph-name in the section is also 
entered into this table, with only the 
declarative bit set. These bits are used 
later to set dictionary attribute bits. 

Each label or error declarative is given 
a GN (generated procedure-name) number. 
These numbers are assigned sequentially, 
starting with 1, from the GNCTR cell of 
COMMON. If the USE sentence specified ON 
file-name, the GNs are entered into the 
appropriate fields of the FNTBL entry for 
the file. If the USE sentence specified 
INPUT, ON OUTPUT, or ON I-O, the GN number 
is entered into a particular OPEN option 
work area. 

For each file-name specified in an OPEN 
statement, the corresponding FNTBL table 
entry is inspected. If GNs were entered 
into the FNTBL during declarative 
processing, they are inserted into the 
PO-text. Otherwise, the work areas for the 
particular OPEN option are searched for the 
appropriate GNs for this file. For an error 
declarative, if a GN for ON INPUT is found 
in the work area, the GN number is inserted 
into all OPEN INPUT PO-text entries. The 
GNs for label declaratives are appended only 
for files whose FD entries include a LABEL 
RECORD IS data-name clause. OUTPUT and 1-0 
GNs are handled the same way. 



The USESVB routine builds the GVNMTBL 
table containing the fully qualified 
data-names uaed in the GIVING option of the 
STANDARD EjXROR/EXCEPTION PROCEDURE 
declarative for VSAM files. The routine 
also builds the GVFNTBL table when a VSAM 
file has been specified in the ON option of 
the declarative. 

For a USE FOR DEBUGGING declarative, the 
USEGEN label is used for the DEBUG 
processing code, and will be entered only 
from DCLSCN at the start of the 
declaratives. Following USEMSG, a branch 
will be inserted to label USEGNl. At label 
USEGNl, a check is made for FOR followed by 
DEBUGGING; if found, the USEDBG code is 
executed; otherwise, the USE verb code 
(USECON) is restored to CURCOD and a branch 
is taken to continue processing at USEGNl. 

The USEDBG verb is generated if a USE FOR 
DEBUGGING declarative has at least one valid 
operand. USEDBG checks the V2BUG0N switch. 
If V2BUG0N is not on, USEDBG ignores all 
code for this USE section and scans to the 
next section-name, USE verb, or END 
DECLARATIVES. If V2BUG0N is on, USEDBG 
checks for ALL PROCEDURES; if found, 
BGALLPRC is tested to see if it has been 
specified before. If so, a message is 
produced indicating that the second 
occurrence of ALL PROCEDURES is ignored. If 
valid, a procedure-name number for the 
section-name, prior to USE, is entered in 
BGALLPN and its priority number is entered 
in BGALLPRI, and a USEDBG verb is generated. 
V2BUGDCL is set on to indicate a valid USE 
FOR DEBUGGING declarative has been found. 
Control is transferred to USEBCD, which 
checks the BCD-name operand. USEBCD 
generates an alphanumeric literal 
representing the BCD-name operand. If it 
is a qualified-name, it goes to QLTABL to 
generate an alphanumeric literal for up to 
30 bytes containing the name and its 
qualifiers, separated by OF. If it is a 
BCD-name, the contents of CURBCD can be 
used. Then the name is generated and 
end-of -sentence is checked for; if so, exit 
is to VRBENT, if not, return to search for 
more operands. If no operands are found for 
the USE verb, a message is produced and the 
USE sentence is discarded. 



ENTERING PROCEDURE-NAMES IN THE DICTIONARY 



A dictionary entry is made for all 
procedure-names (PNs) upon their point of 
definition (appearance in Area A) in the 
source program. The entry's 2-byte 
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characteristics field is later filled in 
from the flag field of either the PNQTBL or 
PNTABL table if the PN (1) follows the 
PEFFORH in a PEBFORH. . .THROUGH statement, 
(2) follows the PERFORM in a PERFORM 
stateoent without the THROOGHr (3) is 
altered by an ALTER statement, (4) follows 
TO PROCEED TO in an ALTER statement, (5) 
precedes a 60 TO or an EXIT statement, (6) 
is referred to or defined in a DEBUG 
paragraph, (7) is a dummy name, or (8) 
appears in the Declaratives Section. The 
three fields are identical. 

Each time such a PN is encountered, the 
PVOTBL table (if it is a qualified name) or 
the PHTABL table (if it is not) is searched 
to find an earlier entry for it. If one is 
found, the flag bytes are modified; if not, 
a complete entry is made. At the end of 
the Procedure Division, or the section 
currently being processed if the Procedure 
Division is divided into sections, a search 
is made in the dictionary. When an entry 
is found for that PN, the characteristics 
field is modified, and the PNTABL or PNQTBL 
entry is deleted. A new table entry is 
made for that PN if it is encountered in a 
later section. 

Whenever the Procedure Division is 
divided into sections, the technique used 
to search the dictionary is affected. 



Phase 11 calls the appropriate TAMER ACCESS 
routine, giving it the name of a particular 
Procedure Division section. All PNs 
entered in the dictionary from that section 
are then searched. If the search is for a 
PN from the PNTABL table and the dictionary 
has been searched without finding the PN, a 
search bit is turned on in the table entry. 
The next time the dictionary is searched 
for this PN, only entries from the newly 
processed section will be searched. In the 
case of the PNOTBL table, the table entry 
contains the section-name qualifier. Thus, 
if the section named in the table entry has 
been processed, the dictionary entry is 
found among the entries for that section. 
If the section-name has not yet been 
encountered, no search is made, and no 
search bit, therefore, is needed. 

Figure 11 shows an example of such a 
search. Note that the figure does not show 
the entry formats. Dictionary formats and 
table formats are shown in "Section 5. 
Data Areas." 



DUMMY ENTRY FOR PHASE BQ 

Phase 11 places a dummy element after 
the source statements; this dummy element 
is used by phase 80. 
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DICTIONARY 



Point of definition 
is in section 



Procedure 
name 



PNI 
P1f2 



PUB 
PN6 



PNTABL 



r 



Section 
of Table 
Entry 



Procedure I 
Name | 

+ 



Action Taken 



PN2 I Dictionary entry found on first search. Table entry is deleted. 



PN6 



On first search r the dictionary entry not yet made, so search bit is 
set. On second search, only entries froo section 2 are searched. 
Since the name is still not entered in the die- tionary, the search 
bit remains on. On third search, only entries from section 3 are 
searched. Entry is found and the table entry deleted. 



PN5 I On the third search, the whole dictionary is searched for this name, 
I which is in the table for the first time. Dictionary en- try is 
{found and the table entry is deleted. 



PNQTBL 



I 1 r 

I Section | Qualified | 
I of Table I Procedure I 
I Entry JName j 



Action Taken 



H 



4- 



-I- 



I 2 |PN1 in I On the second search, the entries from section 1 are immediately 
I I I searched. The entry is found and the table entry deleted. 
■ ■ « 

Figure 11. Entering PNTABL and PNQTBL Information into the Dictionary 
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PHASE 20 



Phase 20 is the third of five phases 
that process the Data Division. It follows 
phase 11, overlaying it in storage. After 
it is loaded, storage contains phase 00 
(including COMMON) , the TAMER table and 
dictionary area, and phase 20. The primary 
concerns of phase 20 are the VALUE and 
PICTURE clauses of the data descriptions, 
which it translates from Data IC-text into 
ATF-text. 

Phase 20 processing is initiated and 
controlled by the BEGIN routine. It reads 
each Data IC-text element and, from each LD 
entry, it computes and writes a partial 
dictionary entry to be passed to phase 22. 
After completing the partial entry, phase 
20 writes it on SYSOOft (the format of the 
entry is called ATF-text) and reads the 
next Data IC-text element, continuing until 
STS003 has been exhausted. All Data 
IC-text for FDs, SDs, and keys for table 
handling and any E-text encountered is 
copied unchanged onto SYS004. 

Phase 20 also scans its input for syntax 
compatability and error conditions, 
producing any necessary E-text it produces 
and passes two tables, the VALTRU and the 



VAL6RP, to later phases. The input and 
output for this phase are summarized in 
I Figure 12 . 



TRANSLATING LD ENTRIES INTO ATF-TEXT 



Routine BEGIN first determines whether 
the element read is an LD element; that is, 
one resulting from a source program record 
description entry of level 01 -t 9, 66, 77, 
or 88. If so, BEGIN stores the current 
input card number into a halfword in COMMON 
called CURCRD and calls on routine LDTBXT. 
LDTEXT copies the elementfrom the input 
buffer into a work area, called ATFTXT, 
reads the next record (Data IC-text 
element) into the buffer, compares the 
current level number to the next element's 
level number to determine whether it is a 
group or an elementary item, and calls the 
appropriate routines to create the 
ATF-text. 



SYS003 



Data IC-text 
E-text 



COMMON 



Storage (TAMER Area) 

I Tables built by phase 20 

LA6TBL table 
VALGRP table 
VALTRD table 



Storage (In phase 00) 



Phase f- 
20 I 



SYS004 



->l 



Incomplete Data A-text |To 

Data IC-text 

ATF-text 

E-text 



j phase 
|22 



Storage (In phase 00) 



I 
->l 



COMMON 



Storage (TAMER Area) 

f 

VALTRU table 
VALGRP table 



Figure 12. Phase 20 Input/Output Flow 
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PROCESSING ELENENTABY ITEMS 



For an elementary item, the LDTEXT 
routines described below produce a portion 
of an ATF-text element that contains fields 
identical to a dictionary entry except for 
the addressing parameters. Routine DICTBD 
of phase 22 fills these in later. 



If there was a PICTURE flag in the Data 
IC-text for the elementary item, the LDTEXT 
routine calls routine GSPICT to distribute 
the PICTURE into work areas. The kind of 
character is stored in work area IPT and 
the number of occurrences of that character 
in IPLT. Subroutines, depending on the 
type of the PICTURE, determine the length 
of the item and its attributes. The 
attributes are entered in the variable 
information field of the ATP-text element. 



If V2BUGDCL is on in COMMON, an implicit 
LD-text for DEBUG- ITEM data structure is 
produced as if it were part of the 

LINKAGE-SECTION . 



PROCESSING GROUP ITEMS 



For a group item, the LDTEXT routines 
produce a portion of an ATF-text element 
that is identical to a dictionary entry 
except for the addressing parameters and 
the length of the group. These are later 
filled in by phase 22. 

The processing is the same as that for 
elementary items with two exceptions. 
Routine 6USAGE saves the USAGE, in area 
GUI, to verify the USAGE of the elementary 
items. Routine SRCRTB passes the keys, if 
any, unchanged to phase 22. 



An indication of how many subscripts are 
needed to refer to the item is set in the 
text element by subroutine BHBSRN. The 
REDEFINES bit is set from the REDEFINES 
flag in the Data IC-text, and the object of 
the REDEFINES clause is saved for 
processing by phase 22. (If the REDEFINES 
clause is internal, that is, generated for 
the Report Section, and the subject of the 
clause is a name plus a displacement, phase 
22 adjusts the addressing parameters of the 
object of the clause to reflect the 
displacement.) The major code, which is 
changed only when a new section header is 
encountered, is moved from a work area to 
an ATF-text field. In addition, the level 
numbers are normalized as an aid to phase 
30. 

If there was a COPY flag in the Data 
IC-text, routine COPYRN picks up the name 
from the text so that the data-name of the 
entry can replace the COPY library-name in 
the copied entry. 

Routine BUS AGE utilizes the USAGE 
information in the Data IC-text to 
determine the size of the elementary item 
if there was no PICTURE. It provides 
enough information to set the minor code 
field in the ATF-text element to the type 
of the entry and to fill in the variable 
information field with a description of the 
item. If there was a PICTURE, the USAGE 
information, together with the PICTURE, 
provides enough information to set the 
minor code and variable information fields. 

If a RENAMES clause is associated with a 
data item, no partial dictionary entry 
exists in the ATF-text element, and all 
processing is done by phase 22. The BCD 
names are passed on unchanged from the Data 
IC-text element. 



PRODUCING INCOMPLETE DATA A-TEX T 



Phase 20 generates incomplete Data 
A-text elements for constants defined by 
VALUE clauses. Information for 
constructing this text comes from the Data 
IC-text read from STS003. For LD entries 
with VALUE clauses, the value is given in 
the Data IC-text element and is entered 
directly by routine VAL6EN into the 
incomplete Data A-text element. Constants 
defined by VALUE IS SERIES clauses are 
discussed under "Building Tables for Later 
Phases*' in this chapter. For the formats 
of Data A-text and Data IC-text, see 
"Section 5, Data Areas." 



PROCESSING FILE SECTION ENTRIES 



When it encounters the File Section 
header, the BEGIN routine transfers control 
to routine FILEST, which controls the 
processing of the section. Routine FILEST 
uses the BSUBRN routine to read the Data 
IC-text elements. For a critical program 
break or EOF, routine FILEST returns 
control to routine BEGIN. 



PROCESSING ERRORS 



As phase 20 processes Data IC-text, the 
clauses are checked to determine whether 
they are allowed to be used together. The 
following is an example of the checking 
that is performed. 
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When routine LDTEXT processes Data 
IC-text elements for LD entries, some of the 
clauses are processed before a determination 
is made of whether the item is a group or an 
elementary item. Then, when the LDTEXT 
routine determines whether the item is a 
group or elementary item, it eliminates any 
invalid clauses. For example, if a PICTURE 
clause is given for a group item, routine 
LDTEXT processes it. Then, when it 
determines the item is a group item, routine 
ERRTN issues E-text for the invalid PICTURE 
clause. 
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PHASE 22 



Phase 22 Is the fourth of five phases 
that process the Data Division. (For an 
overview of that processing, refer to 
Figure U of the introduction to this book 
and to Diagram 1 in the Diagrans section.) 
Phase 22 follows phase 20, overlaying it in 
storage. Its najor functions are: 

• Producing dictionary entries. 

• Completing Data-A text. 

• Generating Q-routines. 

Phase 22 processing is initiated and 
controlled by the DIRECTOR routine. A Data 
IC-text or ATF-text element is read from 
SYS004 and distributed to work areas. 
Routine DICTBD then completes fields in the 
entry and places it in the dictionary. 
While building the dictionary entry, phase 
22 also checks for syntax compatibility and 
error conditions. After phase 22 has 
completed the dictionary entry for a given 
text element, it picks up the next element 
for processing, continuing until STS004 has 
been exhausted. All Data IC-text for FDs 
and SDs and any E-rext encountered is 
copied unchanged onto SYS003. 



Incomplete index-name entries (prefix 
04) are entered into the dictionary by 
routine PEADF4 when they are encountered. 
Later, information is filled in by routine 
XTEN, a subroutine of DICTBD. 



The input and output for this phase are 
summarized in Figure 13. 



BUILDING DICTIONARY ENTRIES 



entries and assigns them to the RENAMES 
item. The routine then places the 
completed entry for the RENAMES item into 
the dictionary. The entire dictionary 
entry for a RENAMES item is formulated by 
the RENAMS routine. 



LP Entries ; Before the dictionary build 
routine is called to complete the 
dictionary entry for an elementary item, 
routine LDTXT obtains a dictionary pointer 
for the item by calling an ACCESS routine, 
GETPTR. (ACCESS routines are described in 
"Appendix A. Table and Dictionary 
Handling.") 



A delimiter pointer is needed for group 
items. Level-8B entries are put into the 
dictionary directly by the input routine 
READF4. 

The DEBUG- ITEM dictionary entries are 
made if V2BUGDCL in COMMON is on. At the 
end of the phase, the ELL number and VLC 
number for DEBUG ITEM are saved in BUGBLLNO 
and BUGVLCNO respectively in COMMON. 



FD Dictionary Entrf.es ; A skeleton 
dictionary entry is created by routine 
FSTXT. This entry contains only the file 
name; the attributes are filled in by phase 
21. The length of the file attributes is 
determined by the access method specified; 
phase 22 determines that in making the 
skeleton dictionary entry. Routine FSTXT 
assigns the next DTF number to the file and 
writes the Data IC-text for the FD on 
SYS003. Phase 22 determines if there is an 
ISAM file which has no RESERVE NO clause 
and is opened INPUT or I-O. 



Phase 22 stores the current card number 
for each input card in a halfword in COMMON 
labeled CURCRD. It then calls the 
appropriate routine for preprocessing of 
the data item, and after the preprocessing 
is finished, it calls routine DICTBD to 
complete the entries. 

The routine makes either complete or 
dummy dictionary entries. 

DICTIONARY PREPROCESSING 

RENAMES Entries : If a RENAMES clause is 
associated with a data item, routine BENAHS 
goes to the dictionary and locates the data 
item or items being renamed. The routine 
picks up the attributes and addressing 
parameters for the dictionary entry or 



Since phase 21 processes the Data 
IC-text for FDs, routine FSTXT passes this 
text to SYS003 (the same file on which 
phase 22 writes Data A-text) except for 
user label record Information. 



A dictionary pointer is obtained and 
processing of the entry is completed by 
routine DICTBD and its subroutine FSTOOO. 

A skeleton dictionary entry is also 
created for any LINAGE-COUNTERs specified 
for an FD. 
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Partial RD Dictionary Entries : Routine 
RDTXT does most of the processing for the 
RD dictionary entry. At the end of this 
processing, the entry is complete and 
entered in the dictionary by routine 
DICTBD, 

SD Dictionary Entries ; SD entries are 
handled like FD entries. Routine SDTXT 
perforins this processing. 



COMPLETING DICTIONARY ENTRIES 



The dictionary build routine, DICTBD, 
completes these dictionary entries which 
were begun in phase 20 by filling in 
addressing information. Each data item is 
addressed by a base locator number and a 
displacement. 

The addressing parameter field has three 
parts, called i, d, and k, where i 
specifies the type of base locator (BL, 
BLL, or SBL) , d specifies the displacement 
of the item from the beginning of the area 
controlled by the base locator, and k 
specifies the base locator number. 

A base locator number is assigned to the 
beginning of each major data area, such as 
the Working-Storage Section, and to each FD 
and SD entry. Then the displacement of 
each item in these areas from the beginning 
of the area is calculated. If the items in 
the area occupy more than U,096 bytes, a 
second base locator number is assigned to 
the second 4,096 bytes, etc- (In this 
case, RD entries are considered to be an 
extension of the Working-Storage Section 
and the same base locators are used. ) 

There are three types of base locators 
(BL, BLL, and SBL) depending on the type of 
data area. Base locator numbers are 
assigned sequentially from counters in the 
COMMON area. 



Type 
BL 



Counte r Use 
BLCTR 



BLL 



SBL 



BL niambers are assigned to 
the Working-Storage Section, 
the Report Section, and to 
each file (FD, RD, and SD 
entry) . 



BLLCTR BLL numbers are assigned to 
the Linkage Section, the 
DEBUG-ITEM special register, 
and to label records. 

SBLCTR See "Q- routine Generation" 
in this chapter. 



Completing Working-Storage Section Entrie s ; 
The Working- Storage Section contains only 
LD entries. Routine DICTBD completes the 



LD dictionary entries by filling in the 
addressing parameter field for group and 
elementary items and by determining the 
length and the delimiter pointer for group 
items . 

Routine DICTBD assigns a base locator 
number to the beginning of the 
Working-Storage Section. The type of the 
base locator number is BL, and the base 
locator number is the next available number 
from field BLCTR in COMMON. The d part of 
the addressing parameter is obtained from 
the LOCCTR counter in COMMON. Each time a 
Data A- text element is written out, the 
counter is incremented by the nimnber of 
bytes the element will occupy at object 
time. 

Routine DICTBD uses the GPLSTK table to 
keep track of the length of group items. 
It enters the length and the delimiter 
pointer (the dictionary pointer of the 
group delimiter) in the dictionary entry 
for the group. It also deletes the GPLSTK 
table entry for the group. 



Note: The lengths of 77-level items are 
not added to the GPLSTK table since they 
are independent items. 

If an item contains a REDEFINES clause, 
routine DICTBD calls routines REDEF and 
RDSYN to process the item using tables 
RDFSTK and RNMTBL. The REDEF routine makes 
an entry in the RDFSTK table, giving the 
length of the REDEFINES object and the 
level number and current addressing 
parameters of the REDEFINES subject. Then 
the REDEF routine assigns the addressing 
parameters of the REDEFINES object to the 
REDEFINES subject. An entry is also made 
in the RNMTBL table, giving the level 
number, dictionary pointer, and length of 
the object of the REDEFINES. 

When an item is encountered with a level 
number less than or equal to the last level 
number in the RDFSTK table, it is assigned 
the addressing parameters from the entry. 

The length of the REDEFINES object is 
saved in the RDFSTK table. If the 
REDEFINES subject is a group item, its 
length is determined by the GPLSTK table. 
If it is an elementary item, routine RDSYN 
determines its length. 

Table RNMTBL is also used if there are a 
series of items with REDEFINES clauses. 



Completing File Section Entries : Routine 
DICTBD uses its subroutine FSTOOO to 
complete dictionary entries for FDs. 
Subroutine FSTOOO performs two major 
functions: 
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• It resolves the previous FD, if any. 

• It completes the processing of the 
current FD, if any. 

Routine DICTBD processes SD entries in 
the same way it processes FD entries. 

Completing Linkage Section Entries ; 
Linkage Section entries are processed the 
same as Working-Storage Section entries 
except that the type of base locator number 
assigned is BLL. For a label record item, 
the first BLL is assigned. For other items 
in the Linkage Section, BLL numbers are 
assigned starting with the second BLL. All 
level-77 items and all group items starting 
with level- 01 in the Linkage Section are 
assigned unique BLL numbers. 

Completing Report Section Entries ; Routine 
DICTBD adds no information to Report 
Section entries before it puts them in the 
dictionary. 

DOS UPSI Feature Names ; When routine INIT 
first receives control, it checks to see if 
phase 10 created the UPSTBL table. If so, 
it calls routine UPSI to enter the 
function-names, mnemonic-names, and 
condition-names into the dictionary. 



GENERATING DATA A- TEXT 

Phase 22 completes the incomplete Data 
A-text elements passed to it by phase 20 by 
adding the location counter values. The 
two prefix bytes (the X'lO' indicator and 
the length count affixed by phase 20) are 
left to serve as an indicator to phase 21 
that the text element needs no further 
processing. Phase 21 deletes the first 2 
bytes and then passes it unchanged to Phase 
60 and selects the Data IC-text elements 
(for FDs and SDs) for translation into Data 
A-text. 

Phase 22 generates five types of Data 
A-text elements itself. While doing so, it 
prefixes them with the same two bytes of 
information discussed above. The four 
types are: 

• Working-Storage Section address 
elements. 

• Constants from VALUE clauses. 

• Data-name DEF elements. 

• Verb DEF elements. 

• Q-routine identification elements. 

To create these elements, phase. 22 uses 
information stored in COMMON, tables 



GPLSTK, VERBDEF, and VALGRP, Data IC-text 
created in phase 10 or 12 and passed by 
phase 20, and ATF-text created by phase 20. 
The format of COMMCN, the tables, and the 
texts are described in "Section 5. Data 
Areas. " 



Q-ROUTINE GENERATION 



Phase 22 uses the following tables to 
generate Q- routines: 0D2TBL, QFILE, QVAR, 
OBJSUB., QITBL, and QRTN. The 0D2TBL table 
is created by phase 10 and the other tables 
by phase 22. The QFILE and QVAR tables are 
passed on to phase 30; the 0D2TBL, OBJSUB, 
QITBL, and QRTN tables are released by 
phase 22. (When the SYMDMP option is in 
effect, however, the QITBL and QRTN tables 
are passed to Phase 25.) The 0D2TBL table 
contains the qualified names of objects of 
OCCURS... DEPENDING ON clauses. 

Routine QVARBD combines the information 
contained in the 0D2TBL, the QRTN, the 
OBJSUB, and the QITBL and QFILE tables into 
the QVAR and QFILE tables for phase 30. 
The routine then releases the 0D2TBL, QRTN, 
and QITBL tables. (When SYMDMP is in 
effect, it releases only the 0D2TBL table.) 

If phase 10 created an 0D2TBL table, 
phase 22 checks each elementary item that 
it processes to see whether or not it is in 
the 0D2TBL table. If it is, phase 22 sets 
the dictionary entries of the item and all 
its groups to reflect that they are objects 

of OCCURS... DEPENDING ON clauses. If it is 
a group item, routine XTEN performs the 
processing; if it is an elementary item, 
routine ELIPR handles the processing. 
Routine ELIODO then places the dictionary 
pointer for the item and a pointer to the 
related 0D2TBL entry in the QITBL table. 

If an object of an OCCURS DEPENDING ON 

clause is encountered while processing the 
File Section, its 0D2TBL table displacement 
is placed in the OBJSUB table. 

When phase 22 encounters an ATF-text 
element for an LD entry with a pointer to 
the OD2TBL table (that is, the item was 

described with an OCCURS DEPENDING ON 

clause) , routine INTVLC marks all the group 
items currently in table GPLSTK as variable 
in length by assigning a VLC 
(Variable- length cell) number from field 
VLLCTR in COMMON to each item. If a 
subject of an OCCURS. . .DEPENDING ON clause 
is encountered while processing the File 
Section, its GN number is placed in the 
OBJSUB table. 

In addition, if an item follows a 
variable-length field and is not a new file 
or record, it is variably located. To each 
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of these items, phase 22 assigns an SBL 
(secondary base locator) number from field 
SBLCTS in COKHOM. At execution time, there 
are secondary base locator cells (one for 
each SBL number) in the Task Global Table 
that contain the current location of the 
variably located field. Phase 22 generates 
Coroutines to calculate initial values and 
changes in these secondary base locator 
cells. 

Whenever phase 22 generates Q-Routine 
text, a determination is made to see 
whether it is the first time that Q-Routine 
text has been generated for this record. 
If it is the first time, a 6N number is 
generated and routine QBOILD places it in 
front of the Q-Routine text for 
identification. This routine then makes an 
entry in the QRTM table containing the 6N 
and the pointer to the 0D2TBL table. If it 
is not the first time, the QRTN table is 
checked to see whether or not the pointer 
to the 0D2TBL table is there. If the 
pointer is missing, it is put in. 

Data A-text Q-routine identification 
elements are generated for each Q-routine 
and placed on the Data A-text data set. 
These indicate that the Q-routines are to 
be executed during initialization 
processing at execution time. 



EBCDIC names for keys (prefix 01 or 02) 
are entered into the SRCHKY table by 
routine READF4 while the dictionary is 
being built. This table is used for syntax 
checking whenever the names are 
encountered. 

If CSTNTAX is specified and an error is 
detected, the syntax option bit in COMMON 
is forced on and conflicting options are 
forced off. 



BOILDIWG TABLES FOB LATER PHASE S 



Phase 22 builds eight tables for later 
phases. In addition, it uses the VALTRU 
table for syntax checking of the VALOE IS 
SERIES clause, but then leaves that table 
in main storage for phase 30. The VALTRO 
table is built by phase 20 and described 
under that heading. 

The OVAR and OFILE tables are built 
during Q-Routine generation and stored for 
use by phase 30. They are discussed above 
under "Q-routine Generation." 

During predictionary processing 
(described above) , routine SRR200 creates 
the INDKET table. 



PROCESSING ERRORS 



As Phase 22 processes Data IC-text and 
ATF-text, a check is made of the clauses to 
be sure that they are allowed to be used 
together. 



The FDTAB table is built for phase 21. 

If the STMDHP option is in effect, phase 
22 primes and builds as many as four 
tables, depending on the clauses in the 
source program, for phase 25: the OCCTBL 
table, the MASTODO table, the VARLTBL 
table, and the RFNAHTB table. 
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PHASE 21 



When phase 21 is loaded into storage, all 
data items except FDs and SDs have been 
translated from Data IC-text into Data 
A-text, and the dictionary is complete 
except that the FD and SD entries and the 
LINAGE-COUNTER special register are dummy 
entries without data attributes written by 
phase 22. After phase initialization, 
routine BEGINPH is given control. This 
routine reads each record from SYS003 and 
determines the action to be taken. For an 
A-text or E-text element, the two-byte 
prefix attached in phase 20 or 22 is 
removed, and the element is copied onto 
SYS004; FD and SD elements are selected for 
processing by phase 21; all other records 
are copied unchanged onto SYS004. 

From the FD and SD Data IC-text elements 
and from information stored by previous 
phases in the DICOT, PIOTBL, and FDTAB 
tables, phase 21: 



DTF, and selects the proper DTF generator. 
Each DTF generator then determines the 
number of DTFs required, reserves space for 
additional file information in the XPRE-DTF 
(for sequential file only) and the Pre-DTF, 
fills in certain fields of the XPRE-DTF and 
the Pre-DTF, and develops the body of the 
DTF itself. 

CLAUSE COMPATIBILITY 



The compatibility testing performed by 
phase 21 is primarily a check to determine 
if the clauses specified are compatible 
with the file description. For example » an 
APPLY COPE INDEX is acceptable only for an 
ISAM file. 



COMMON PARAMETERS 



- Completes the dictionary entries. 

- Completes LINAGE-COUNTER entries. 

- Generates the required DTFs. 

- Generates input/output areas (buffers) . 

- Writes the Data A-text for the DTFs and 
buffers onto SYS004 and PO-text for 
VCONs onto SYS002. 



Certain parameters are common to many or 
all types of DTFs and are determined before 
entry into the DTF generator. The 
remaining parameters are established by the 
particular DTF generator specified. Of the 
common parameters » the size and form of the 
records of a file are most important. 



COMPLETING DICTIONARY ENTRIES 



Record Size 



When phase 21 encounters an SD record, 
routine SORTPROC reserves space for a 
buffer according to the maximum record 
size, generates a BL to point to the sort 
area, and fills in the SD dictionary entry. 
When the phase encounters an FD record, 
routine SETDIC fills in all fields of the 
dictionary which can be picked up directly 
from that record. Routine ACCMODE 
determines the access method specified and 
enters it into the dictionary. 

Phase 21 builds the FD dictionary 
entries, the Pile Information Block (FIB) , 
and the IND2TBL table (indexed file only) 
for VSAM files. 



Routine RECCONT processes the RECORD 
CONTAINS clause. With only one exception 
the record size is the maximum size of any 
record described as a data record in the 
File Description. This value is determined 
in phase 22, and is passed to phase 21 in 
the FDTAB table. The one exception to 
using the maximum calculated size is the 
case where the clause RECORD CONTAINS Nl TO 
N2 CHARACTERS is specified, the value of N2 
is less than the maximum calculated size, 
and there is more than one OCCURS clause 
with the DEPENDING ON option in the record 
description. In this case, the value of N2 
is used as the maximum possible record 
size. 



GENERATING REQUIRED DTFs 



Record Form 



To develop a DTF, phase 21 checks the FD 
for clause compatibility, collects the 
parameters common to more than one type of 



Prior to any attempt at determining the 
record form, the BLOCK CONTAINS clause is 
checked by routine BLKCTNS for basic 
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compatibility. If any errors are found, 
the clause is either dropped from further 
consideration or altered to an assuned 
acceptable fornat. 



Every supportable DTP used in Full 
American National Standard COBOL requires 
an entry for its SBCFOBM parameter. The 
allowable entries are selected from the six 
possible kinds shown in Figure 14. 





1 1 

ICLASSs 


CLASS= 1 
• 0T» 1 


- - — 1 

CLASSe 1 
•DA» 1 




Card 
and 
Printer 


Tape 
and 
Sequen-! 
tial 
Disk 


Direct 
Access 
Method 


1 1 

Indexed | 
Sequen- 1 
1 tial 1 
1 Hethod 1 


1 FIX UNB 
J 


1 Yes 


Yes 


Yes 


Yes 1 


1 FIX BLK 
1 


1 No 


Yes 


No 


Yes 1 


1 VAR UMB 
1 


1 Tes 


Yes 


No 


1 No 1 


1 YAB BLK 
1 


i No 


Yes 


No 


1 No 1 


1 UNDEF 
1 


1 Yes 


Yes 


Yes 


1 No 1 


1 SPANNED 


1 No 

1 j 


Yes 

1 1 


Yes 

1 


1 No 1 

L- - , J 



I Figure 14 . RECFORM Parameters Supported 

The four factors which influence the 
selection of the record form are: 



1. RECORDING MODE Clause. This clause 
has fiye possibilities: omitted, F, 
V, D or S. 

2. RECORD CONTAINS Clause. This clause 
has three possibilities: omitted, N1 
TO N2 CHARACTERS, or N2 CHARACTERS. 

3. BLOCK CONTAINS Clause. This clause 
has five possibilities: omitted, N1 
TO N2 RECORDS, N2 RECORDS, N2 
CHARACTERS, or N1 TO N2 CHARACTERS. 

U. Variability of the record descriptions 
found during phase 22 processing. 
This value is found in table FDTAB, 
referred to as YARIND and is either 
set or clear (FIXED or VARIABLE) . 

There are 150 possible combinations 
within these four factors. Host of the 
combinations are errors, but each is 
checked by routine CHKHODE, and a message 
is issued in E-text, if appropriate. 



These four factors are encoded into a 
single byte which is used as an index 
(displacement) into a 156-byte error table, 
nODTAB. The referenced byte in the MODTAB 
table contains, in coded form, the assumed 
record form, an indicator to show if an 
error has occurred, and four bits to 
indicate the clause or clauses which are to 
be ignored. 

After checking the table results, the 
recording mode can be determined, making 
assumptions where an error condition 
exists. If CHARACTERS or more than one 
record is specified in the BLOCK CONTAINS 
clause, the file is assumed to be blocked. 
If the block contains only one record, the 
file is assumed to be unblocked. 



SELECTING THE DTF GENERATOR 



After establishing the variables, phase 
21 determines which DTF generator to use: 
GENDTFCD, GENDTFPR, GENDTPHT, GENDTFSD, 
6ENDTFDA, GENDTFIS, GENDTFDD. The 
generator checks the OPEN options specified 
for the file to determine what type of DTF 
to generate. The OPEN options 
corresponding to each type of DTF are shown 
in Figure 15. Descriptions of the DTFs will 
be found in VSE/Advanced Functions Macro 
User's Guide . 

Each DTF generator makes entries in two 
tables, the BLTABL and the BDFTAB. The 
BLTABL table contains an entry for each FD 
in the program. It is used later in the 
phase, when buffers are generated, to 
determine how to initialize the base 
locator (or locators) for the file. The 
BUFTAB table contains an entry for each 
buffer area address constant which must be 
filled into a DTP. This table is also used 
when the buffers are generated. The 
formats of these tables are shown in 
"Section 5. Data Areas." 

Phase 20 assigns a DTF number for each 
file. Every file having more than one DTF 
has secondary DTF numbers assigned 
consecutively. Counters located in COMMON 
are incremented each time a new number is 
assigned. At execution time, pointers in 
the TGT and PGT indicate the particular DTF 
for the file being processed. If all 
necessary DTFs have been generated for a 
file, routine ENTDIC enters the attributes 
of the file in the dictionary area reserved 
by Phase 22. When the next FD record is 
encountered, variables are again 
determined. This process continues until 
all the input has been processed. 
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r— 1 1 1 

|DTP Type IPile | Options | 
1 JType 1 1 


IDTFCD ICard | Input 1 


IDTFCD ICard 1 Output 1 


IDTFPR 1 Printer | Output 1 


IDTPMT iTape 1 Output 1 


IDTPMT ITape | Input | 


IDTFMT ITape | Input, Reversed j 


IDTPSD IMass |Seguential, Input 1 
1 1 Storage | 1 


IDTPSD IMass | Sequential, Output | 
1 1 Storage | 1 


IDTPSD IMass | Sequential, I-O | 
1 {Storage | I 


JdtFDA IMass 1 Direct, Sequential j 
1 {Storage j Access, Input j 


IDTFDA IMass | Direct, Random Access,! 
I 1 Storage | Input j 


IDTFDA IMass {Direct, Random Access,! 
1 1 Storage | Output I 


IDTFDA IMass {Direct, Random Access,! 
1 (Storage {1-0 I 


(DTFIS (Mass (Indexed, Sequential j 
(Load (Storage (Access, Output ( 
(Mode j j ( 


(DTFIS (Mass (Indexed, Sequential ( 
(Retrieve (Storage (Access, Input, 1-0 j 
(Mode { { { 


(DTFIS (Mass (Indexed, Random j 
(Retrieve (Storage (Access, Input ( 
{Mode ( ( { 


(DTFIS (Mass (Indexed, Random ( 
(Retrieve (Storage (Access, l-o^ ( 
(Mode { ( { 


(DTFIS (Mass (Indexed, Random ( 
(Add/ (Storage (Access, 1-02 j 
(Retrieve j j j 
(Mode ( i ( 


(DTPDU {Diskette (Input Sequential, ( 
( (Unit (Output Sequential ( 


{»If there are no WRITE verbs for this | 
( file. ( 
(2If there are WRITE verbs for this file. ( 



DETERMINING THE NUMBER OF DTPS 



The number of DTFs is determined by the 
number and type of OPEN statements for each 
file. The DTF generator determines this 
from entries in the PIOTBL table. For a 
DTFCD or DTFPR file, only one DTF need be 
generated. For a DTFMT file, a maximum of 
four DTFs may be needed — one for each 
INPUT, INPUT REVERSED, and OUTPUT and one to 
restore the DTF at close time. DTFSD files 
may also require three DTFs, one each for 
INPUT, OUTPUT, and I-O, Only one DTF is 
needed for a DTFDA file. It may be used for 
INPUT, OUTPUT, and I-O. Only one DTF is 
needed for any ISAM file description. 



PRE-DTF AREA 



Before phase 21 develops the body of a 
given DTF, it reserves space immediately 
preceding the DTF in storage for PNs, 
pointers, pointer for XPRE-DTF for 
sequential file, and file description 
information. In some cases, phase 21 fills 
in certain fields of this space. The area 
is known as the Pre-DTF. 



XPRE-DTF AREA 

For DTFCD, DTFPR, DTFMT, DTFSD, and 
DTFDU, a fixed length extension to the 
Pre-DTF (XPRE-DTF) control block is added 
immediately preceding the Pre-DTF for each 
sequential file. This is necessary to 
support sequential I/O with FILE STATUS and 
LINAGE clauses. 



DTFMT and DTFSD Pre-DTF s 



For magnetic tape and sequential disk 
files, a 40-byte Pre-DTF is reserved in 
front of the DTF. The contents of this 
Pre-DTF are shown in Figure 16. 



DTFDA, Random Access, Pre-DTF 



For a file whose organization is direct 
and which will be accessed randomly, a 
variable-length Pre-DTF is reserved in 
I front of the DTP. Figure 17 shows the 



Figure 15. OPEN Options and DTFs 
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ontents of the Pre-DTF for a file with 
bsolute addressing; Figure 18 shows the 
ontents for a file with relative 
ddressing. 



31-byte Pre-DTF is reserved in front of the 
DTF. Figure 19 shows .the contents of the 
Pre-DTF for a file with absolute addressing; 
Figure 20 shows the contents for a file with 
relative addressing. 



iTFDA/ Sequential Access / Pre-DTF 

For a file whose organization is direct 
ind which will be accessed sequentially, a 
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1 r 

Length 
(Bytes) 



Location 



Contents 



DTF-40 
DTP - 26 

DTP - 2U 

DTP - 23 

DTP - 22 

DTP - 20 

DTP - 16 

DTP - 12 

DTP - 8 

DTP - a 

DTP - 3 



Address of the XPRE-DTF. 

Length of nonstandard label if present. 

Number of nonstandard-labeled reels if specified in the system-name. 

Counter used by the ILBDHSLO subroutine. It is initially set equal to byte 
DTP-2U. Thereafter, it is decremented each time a nonstandard-labeled reel is 
processed, and so indicates the number yet to be processed. 

Maximum record length, if the file is variably blocked without an APPLY WRITE 
ONLY clause specified. 

Address of the PN for a OSE declarative to process BOV labels. The OSE 
statement has either the beginning reel or the BEGINNING UNIT option. 

Address of the PN for a OSE declarative to process BOV labels. The OSE 
statement has either the ENDING REEL or the ENDING ONIT option. 

Address of the PN for a OSE declarative to process trailer labels. The OSE 
statement has the ENDING PILE option. 

Address of the PN for a OSE declarative to process header labels. The OSE 
statement has the BEGINNING FILE option. 

Pre-DTP Switch. Por the format of this switch, refer to "Pre-DTP Switch" in 
this chapter. 

Address of the PN for a USB declarative to process standard errors. Pornat 2 
of the USE declarative is used. 



Notes: 

1. If any of the 

2. Phase 21 fills 



options concerned are not specified, the field contains Os. 
• in only the four bytes beginning at DTP - 2tt. 



I Figure 16. Pre-DTF for DTFMT and DTFSD 



j Location 



IDTP - n 

I 

I 

I 

I DTP - 26 

I 

I DTP - 18 

I 

I 

I 

I DTP - 16 

I 

I DTP - 12 

I 

I 

IDTP - 8 

I 

I 

IDTP - a 

I 

I 

IDTP - 3 

I 

I 



Length 
(Bytes) 



n - 26 
(9-263 
bytes) 

8 

2 



Contents 



ACTOAL KEY. This field is present only for COBOL WRITE statements. 



SESK address, in the form HBBCCBBR. 

Error bytes. This area is reserved for the DOSASE Supervisor and assigned 
the name ERRBYTE. For a complete discussion, refer to VSE/Advanced Fun ctions 
Macro User ' s Guide . "^ 

Pointer to area where extent information is saved. 

Address of the PN for a OSE declarative to process trailer labels. The OSE 
statement has the ENDING PILE option. 

Address of the PN for a OSE declarative to process header labels. The USE 
statement has the BB6IMIII1I6 PILE option. 

Pre-DTP Switch. Por the format of this switch, refer to "Pre-DTP Switch" in 
this chapter. 



Address of the PN for a OSE declarative to process standard errors. 
of the OSB declarative is used. 



Pormat 2 



11. If any of the options concerned are not specified, the field contains Os. 
|2. Phase 21 fills in only the four bytes beginning at DTP - 16. 



Figure 17. Pre-DTF for DTFDA, Random Access, Absolute Addressing 
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I 
(Location 



I- 



IDTP - n 



I 

I DTK - 26 

I 

I DTP - 22 

I DTP - 19 

I 

I DTP - 18 

I 

I 

I 

)DTP - 16 

I 

I DTP - 15 

I 

I DTP - 12 

I 

I 

|DTP - 8 

I 
I 
IDTP - « 

I 

I 

|DTP - 3 

I 



Length 
(Bytes) 



n - 26 
(5-258 
bytes) 



Contents 



iCTOAL KEY. This field is present only for COBOL WSITB stateaents. 
Standard c 

SBBK address, in the for* TTTR. 

Last extent used, in the form TTT. 

Mot used. 

Error bytes. This area is reserved for the DOS/VSE Supervisor and assigned 
the name ERRBYTE. For a complete discussion, refer to VSE/Advanced Functions 
Macro User ' s Guide . 

Index to the last extent nsed in the disk extent table in the DTP. 

Pointer to the disk extent table in the DTP. 



Address of the PH for a OSB declarative to process trailer labels, 
stateaent has the BWDING PILE option. 



The DSE 



Address of the PH for a USB declarative to process header labels. The USB 
stateient has the BEGINNIRG PILE option. 

Pre-DTP switch. Por the forsat of this switch, refer to "Pre-DTP Switch" In 
this chapter. 



Address of the PH for a USB declarative to process standard errors, 
of the USE declarative is used . 



Poraat 2 



I • ' ' 

I Hotes ; 

|1. If any of the options concerned are not specified, the field contains Os. 

|2. Phase 21 fills in only the four bytes beginning at DTP - 16. 



Figure 18. Pre-DTF for DTFDA, Random Access, Relative Addressing 



1 

1 Location 
1 


Lenath 
(Bytes) 


Contents j 


IDTr - 31 


8 


SEEK address, in the form MBECCHER. | 


IDTP - 23 

1 


5 


Address of the next record to be read, in the form CCHHP. This area is named | 
IDLOC. 1 


IDT? - 18 

1 
1 


2 


Error bytes. This area is reserved for the DOS/VSE Supervisor and assigned | 
the name ERRBYTE. Por a complete discussion, refer to VSE/Advanced Functions | 
Macro User's Guide. I 


1 

IDTP - 16 


4 


Pointer to area where extent information is saved. | 


IDTP - 12 

1 


4 


Address of the PN for a DSE declarative to process trailer labels. The DSE | 
statement has the ENDING PILE option. j 


IDTP - 8 

1 


4 


Address of the PN for a USE declarative to process header labels. The DSF | 
statement has the BEGINNING PILE option. j 


IDTP - ^ 

1 
1 


1 


Pre-DTP Switch. Por the format of this switch, refer to "Pre-DTF Switch" in j 
this chapter. | 


IDTP - 3 
1 


3 


Address of the PN for a USE declarative to process standard errors. Format 2 | 
of the USE declarative is used. | 


INotes: 
|1. If ai 
|2. Phas< 


ly of th< 
5 21 fil] 


» options concerned are not specified, the field contains Os. | 
Ls in only the four bytes beginning at DTP - 16. 1 



I Figure 19. Pre-DTF for DTFDA, Sequential Access, Absolute Addressing 
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1 r 

Length 
(Bytes) 



Location 



Contents 



DTP 
DTP 
DTP 
DTP 



DTP 
DTP 



31 
27 
2H 
23 



DTP - 19 
DTP - 18 

DTP - 16 



15 
12 



DTP - 8 
H 
3 



DTP - 



DTP - 



SEEK address, in the form TTTR. 

Last extent used, in the form TTT. 

Not used. 

Address of the next record to be read, in the form TTTB. This area 
is named IDLOC. 

Mot used. 

Error bytes. This area is reserved for the DOS/VSE Supervisor and 
assigned the neune ERRBYTE. For a complete discussion, refer to 
VSE/Advanced Functions Macro User's Guide . 

Index to the location in the disk extent table in the DTP where the 
last extent is stored. 

Pointer to the disk extent table in the DTP. 

Address of the PM for a USB declarative to process trailer labels. 
The OSE statement has the ENDING PILE option. 

Address of the PN for a USE declarative to process header labels. 
The OSE statement has the BEGINNING PILE option. 

Pre-DTP Switch. Por the format of this switch, refer to "Pre-DTP 
Switch" in this chapter. 

Address of the PM for a USE declarative to process standard errors. 
Format 2 of the USE declarative is used. 



Notes : 



1. If any of the options concerned are not specified, the field contains Os. 

2. Phase 21 fills in only the four bytes beginning at DTP - 16. 

I ■ ., ■ ,, , , ■ ., , . ,, ... 

Figure 20. Pre-DTF for DTFDA, Sequential Access Relative Addressing 



Location 



DTP - 8 
DTP - 6 



DTP - 4 



DTP - 3 



Length 
(Bytes) 



Contents 



Unused. 

Displacement of record 
key within record. 

Pre-DTP Switch. Por the 
format of this switch, 
refer to "Pre-DTP 
Switch" in this chapter. 

Address of the PN for a 
USE declarative to 
process standard errors. 
Format 2 of the USE 
declarative is used. 



Figure 21. Pre-DTF for DTFIS 



DTPIS Pre-DTP 



Por a file whose organization is 
INDEXED, eight bytes will be reserved in 
front of the DTP. The contents of the 
Pre-DTP are shown in Figure 22. Only the 
displacement of the record key within the 
record is filled in by phase 21. 



DTFDU Pre-DTP 



For a file that is assigned to a 3540 
Diskette unit device, 40 bytes will be 
reserved in front of the DTF. The contents 
of the pre-DTF are shown in Figure 22. None 
of the bytes of the pre-DTF are filled in 
by phase 21, except for the address of 
XPRE-DTF . 
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I 

I Location 

I- 



JDTF - 401 

|DTF - 8 
I 

I DTP - a 
I 

IDT? - 3 



Length | 
(Bytes) I 
h 



Contents 



4 j Address of XPRE-DTF 

4 I Unused 

I 
1 IPre-DTP switch. 

I 
3 I Address of ERROB 

I declarative PN. 



Figure 22. Pre-DTF for DTFDU 



Pre-DTF Switch 

This switch provides communication 
between the executing program and its 
input/output subroutines at execution time. 
The entire byte may be set to X»PP» to 
indicate that the file was closed with lock 
and cannot be reopened. Otherwise, the 
switch is used as follows: 

Bit Meaning, if ON 

DTPSD output file. The entire 
DTP was saved for subsequent 
OPEN OUTPUT statements. 

1 DTPDA or DTPSD, and OPEN I-O. 

2 This call is for BOV, rather 
than BOP, processing. The bit 
is set OPP when a file is opened 
to indicate to the ILBDUSLO 
library subroutine that BOP 
labels are to be processed. 
That subroutine sets the bit ON 
after BOP processing to indicate 
that all subsequent calls will 
be for BOV label processing. 

3 A test must be made by the 
ILBDVBLO library subroutine to 
determine whether the present 
block is full. This bit is 
turned OFF when a file is opened 
and ON for all WRITES after the 
first. 

*» DTPDA, spanned records. 

5-6 Not used. 

7 This bit is tested in the 

transient routine $$BFCMUL. If 
this bit is not on, it means the 
information in the PUB pointer 
field in the DTF minus X'08' is 
incorrect, and exit is made 
immediately. 



COBOL INDICATORS IN DTPS 



Certain bits within the DTPs are used as 
indicators at execution time. These 
indicator bits are the REWIND and the 
COBOLRWD bits in the DTPMT, Which are set 
by phase 21, and the COBOL bits in the 
DTPMT and DTPSD, which are set as described 
in this chapter under "COBOL Bits." 



REWIND and COBOLRWD 



Phase 21 sets the COBOLRWD indicator 
(bit 6 of byte 31 of the DTPMT DTP) to 1 to 
force a rewind and unload at automatic 
end-of -volume. A setting of indicates 
that LIOCS should check the REWIND 
indicator to find out what action is to be 
taken. 

Phase 21 sets the REWIND indicator (bits 
2 and 3 of byte 32 of the DTPMT DTP) to 00 
to indicate rewind, to 01 for no rewind, 
and to 10 for rewind and unload. After the 
OPEN is executed, REWIND is set to 01 to 
ensure that the last reel is not rewound 
when the end-of-file condition is detected. 

Before a CLOSE REEL (PEOV) is executed, 
REWIND is set to the specified option and 
COBOLRWD to 00. After an PEOV, REWIND is 
set to 1 and COBOLRWD to 01. Before a 
CLOSE for the file, REWIND is set to the 
specified option. 

A summary of the REWIND and COBOLRWD 
settings and their meanings is shown in 
Figure 23. 



1 


SETTING 


—I 1 

1 1 


1 COBOLRWD 


1 1 

REWIND 1 MEANING | 

1 ' ' 


1 1 




00 


• ... ^ 

1 Setting at compile time | 


1 1 




01 


lOPEN NO REWIND | 


1 1 




01 


1 Setting after any OPEN | 
1 until next verb j 


1 




00 


1 CLOSE REEL | 


1 




01 


1 CLOSE REEL NO REWIND | 


1 1 




01 


1 Setting after any CLOSE | 
1 REEL 1 


f 1 




00 


1 CLOSE 1 


1 1 




01 


1 CLOSE NO REWIND I 


1 1 




10 


1 CLOSE LOCK 1 


1 1 




00 


1 Setting after CLOSE or | 
1 CLOSE NO REWIND | 



Figure 23. COBOLRWD and REWIND bits 



COBOL Bits 



There are six COBOL bits in DTPs. Their 
locations and meanings are shown in Figure 
2U and the notes following it. 
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1 1 1 

1 DTP IBYTE 
1 1 


BIT 


1 — -1 

MBANIHG, IP ON 


1 1 

NOTEI 


IDTFMTI 
1 1 
1 1 


16 


2 


Pile is assigned I6N 
on the ASSIGN 
control card 


1 1 


IDTPMTI 
1 1 


16 


3 


Read BOP labels at 
CLOSE time 


2 1 


IDTPMTI 
1 I 


36 


1 


Do not write a user 
label 


3 1 


IDTPSDI 
1 1 


16 


2 


Pile is assigned I6N 
on the ASS6N 


1 1 1 


1 1 






control card 




IDTPSDI 
1 1 


16 


5 


Read trailer labels 
at CLOSE time 


1 2 1 


IDTPSDI 
1 1 


16 


1 7 


COBOL End-of-Extent 
option 


'* 1 



Pigure 24, COBOL bit settings 



WRITING DATA A-TEXT AND Pl^TEXT 

Phase 21 produces buffers, PIBs, and 
DTPS as a series of Data A-text elements 
(see "Section 5. Data Areas*' for the 
format) . Bach element created is one of 
the following: 

• DTP address element 

• Secondary DTP address element 

• Constant definition element 

• Block address element 

• PIB address element 

• BL reference element 

• BLL reference element 



Notes; 



The bit was set to 1 by the DOS system 
OPEN transient routine if the file was 
assigned IGN. In that case, a branch 
is taken to the AT END address instead 
of executing a READ. This test is 
generated by phase 51 before all READ 
statements. 



Por each DTP, the DTP generator creates 
an address element consisting of the 
location from field LOCCTR in COMMON and 
the DTP number. Por each additional DTP 
for the same file, a secondary DTP address 
element, consisting of the location from 
field LOCCTR in COMMON and the secondary 
DTP number, is issued. 



2. COBOL always requires that user EOF 
labels be read at CLOSE time. Since 
the DOS system LIOCS routine normally 
reads these labels at EOP time, phase 
21 sets this bit to 1 to indicate that 
the COBOL procedure must be followed 
if the file is labeled. 



3. COBOL requires that user labels be 
written selectively (header labels, 
but no trailer labels, for example) . 
Since the DOS/VS system LIOCS routine 
normally writes at least one user 
label when user labels are specified, 
this bit is used to indicate that the 
COBOL procedure is to be followed. 
The bit is set to 1 by the COBOL 
library subroutine, ILBDUSLO, if there 
is no user label to be written. 



Constant definition elements record the 
values of constants to be filled into 
fields of the DTP. 



As phase 21 creates buffers (see "Buffer 
Generation") , a block address element is 
also created for each PD. The element 
contains 'the location of the first byte of 
data information in the buffer and the size 
of the data element in words. 

Phase 21 creates an PIB address element 
for each PD entry that describes a VSAM 
file. 



In addition to the Data A^text elements, 
phase 21 writes a virtual definition 
element of PO-text on SIS002 for each VCON 
needed. Phase 51 later writes it on STS003 
as Optimization A-'text input for phase 00. 



4. Phase 51 generates code to set this 
bit to 1 for all output files. Nhen 
it is so set, the DOS system LIOCS 
routine transfers control to the 
end-of -extent address (INVALID KEY 
address) in the DTP when there are no 
more available extents. 



DTPS Por Associated Piles 



When a 5425, 3525 or 2560 unit record 
device with optional read and print 
features has been specified as an 
associated file, phase 21 generates a 
unique DTP for each function to be 
processed by the device. Routine GENDTPCD 
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and 6ENDTFPB read the Data IC-text elements 
created by phase 10 for each associated 
file and build the ASCTAB table. After all 
of Data IC~text has been read , routine 
6ENASC uses the table to generate the Data 
A-text elements used to create the DTP»s. 
Figure 25 shows the way in which these DTFs 
are chained together. 



1 r 
• >| 

L. 


READ ] 


DTF 


-1 
1 

-1 


1 

1 








1 

I 


1 

1 _ 






-I 
-1 




• >l 


PONCH 


DTP 


1 








1 

1 

1 


1 

1 

1 _ 






-1 
1— 

-J 




1 r 
1 >| 

L. 


PRINT 


DTF 





Figure 25. 



DTF Chaining for an Associated 
File with Three Functions 



File Information Block t?lB) 



6UF6EN selects a buffer to be generated 
from the BUFTAB table established by the 
DTF generators. This routine allocates a 
buffer area according to the maximum size 
given in the table. (The size of each 
buffer includes any control fields reguired 
for a particular access method, for 
example, COUNT and KEY fields for direct 
access.) BUF6EN then determines the 
beginning of the buffer area so the data 
portion of each record is aligned on a 
doubleword boundary. After the buffer 
space has been allocated, the addresses of 
the lOAREAs are filled into the DTF, and 
buffer area addresses are issued as Data 
A-text block address elements. 



Entries in the BDFTAB table indicate 
which files are associated by SAME AREA or 
SANE RECORD AREA clauses. For SAME RECORD 
AREA, lOAREAs are assigned in the above 
manner, and an additional work area is also 
assigned. The size of this work area is 
the size of the largest record area plus 
the size of the largest pre-record area of 
any of the files specified in one SAME 
RECORD AREA clause. The SRA generator 
routine builds the SRATBL, SRAM AX, and 
SDSRATBL tables to calculate the length and 
location of the SAME RECORD AREA work area 
in the object module. All files with a 
SAME AREA clause will share the same buffer 
area. 



Phase 21 creates the File Information 
Block (FIB) for VSAM files. The FIB work 
area is generated by means of the GENFIB 
macro. The AMTXT routine fills in fields 
of the FIB, and the BEGIN routine writes 
the FIB as Data A-text. 



Using the BLTABL table formed by the DTF 
generators, routine PUTBL determines how to 
initialize the base locator or locators for 
the file. 



BUFFER GENERATION 

Buffer areas are determined after all 
the text processing is completed. Routine 



Processing continues in this manner 
until the BUFTAB table is exhausted. After 
all input/output areas are generated, the 
tables are released, and control passes to 
phase 00. 
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PHASE 25 



Phase 25 is loaded only if the 5YHDNP 
option has been specified on the C6L card. 

The major functions of phase 25 are: 

• Building the OBODOTAB table and writing 
it on the debug file (SYS005) if the 
program contains any OCCURS. . .DEPENDING 
ON clauses 

• Building the DATATA6 table and writing 
it on the debug file (SYS005) . 

The operations of phase 25 are described 
in Diagram 3. 



PHASE 25 PROCESSING POR THE DEBUG PILE 



To build the OBODOTAB and DATATAB 
tables, phase 25 uses the following tables 
passed from phase 22: 

• The DICOT table which contains 
information about the COBOL dictionary 

• The QITBL table which contains a COBOL 
dictionary pointer for every object of 
an OCCURS... DEPENDING ON clause 

• The QRTN table which contains a COBOL 
dictionary pointer for every subject of 
an OCCURS... DEPENDING ON clause 

• The RENAHTB table which associates 
renamed data*names with their renamers 

• The OCCTBL table which contains 
information about each subject of an 
OCCURS clause 

• The MASTODO table which identifies all 
data-names which do not contain an 

OCCURS... DEPENDING ON clause 

themselves r but one of whose 
subordinate items at the next level 
does 

• The VARLTBL table which contains an 
entry for each variable-length item. 

There is a DATATAB table entry for each 
data item in the Data Division. There is 
also a DATATAB table entry for some of the 
compiler-generated names associated with 
the Report Writer feature. There is an 
OBODOTAB table entry for each unique object 
of an OCCURS... DEPENDING ON clause. 



The OBODOTAB and DATATAB tables list the 
characteristics of data items in the Data 
Division. (See "Section 5. Data Areas" 
for the format of the OBODOTAB and DATATAB 
tables.) 

Entries for either the OBODOTAB or 
DATATAB table are built in a work area 
(NRKAREA) in phase 25. Each entry in the 
OBODOTAB and DATATAB tables is moved 
directly into the debug file buffer as soon 
as it is completed. OBODOTAB table entries 
are entered in the debug file on fullword 
boundaries. DATATAB table entries are not 
aligned. 

Certain of the DATATAB entries contain 
pointers to OBODOTAB entries. Each DATATAB 
entry for the subject of an 
OCCURS.. .DEPENDING ON CLAUSE contains a 
pointer to the OBODOTAB entry for its 
corresponding object. The pointer consists 
of the relative block number within the 
OBODOTAB table and the displacement into 
the block (in fullwords) . Each DATATAB 
entry for a data-name subordinate to the 
subject of an OCCURS. . .DEPENDING ON clause 
also contains a pointer to the OBODOTAB 
entry for the object of that 
OCCURS... DEPENDING ON Clause. 



Building the OBODOTAB Table 



The OBODOTAB table lists the 
characteristics of each unique object of an 
OCCURS... DEPENDING ON Clause. For details 
on how the OBODOTAB table is built, see 
Diagram U. 



Building the DATATAB Table 



The BE6PASS routine controls building of 
the DATATAB table entries, using the 
SYHDICT DSECT, It performs the following 
functions : 

• Calls LOCNXT to read dictionary 
entries. 

• Calls GETDEP to get generated card 
number for data-name from DEP-text. 
RENAMES items are ignored. 

• Calls BLDRD to process RD level 
entries. 
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Calls SETNAN to build fixed portion of 
entry. SETNAM calls PROCESLD to build 
variable portion of entry for LD under 
FD, SD, Working-Storage, Linkage 
Section. 



Branches to TESTSUBS to determine 
subscripted items. TESTSDBS uses the 
0CCT6L table for subscripting 
information, and calls ENTRDATA as 
above . 



Calls PROCBENH to process RENAMES items 
for data-name. PROCRENM calls ENTRDATA 
to move completed entry in output 
buffer. 



ENTRDATA routine calls WRITES to write 
buffer on STS005 at end of buffer. PHASEHD 
routine releases tables and repositions 
STS004 when the dictionary processing is 
complete . 
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PHASE 30 



By the time Phase 30 (ILACBL30) is 
loaded into storage » almost all information 
on source program-names in the PO-text has 
been concentrated in the attributes of the 
dictionary entries. Supplementary 
information is stored in the QVAR, QFILE, 
INDKEY, and YALTBD tables. Phase 30 can 
now replace each name with its attributes, 
as well as add information to verb strings 
such as SEARCH and OPEN. 



Phase 30 also performs any other 
processing that reguires the dictionary. 
In this manner r storage space for the 
dictionary and for dictionary ACCESS 
routines is freed for later phases. 



There are four main categories of phase 
30 processing, all dependent upon the 
dictionary : 



• Building a Data Division glossary of 
all source program data^names. 

• Replacing source program-names with 
their attributes. 

• Performing special processing on 
procedure names in segmented programs, 
READ and SEARCH verb strings, and verb 
strings with CORRESPONDING options. 

• Performing any syntax analysis that 
reguires the dictionary. 

Code in the phase 30 load module is 
organized as follows: 

• EQUATE statements for. COKHON, 
registers, ACCESS routines, TAMER 
routines, and miscellaneous values. 

• Phase initialization headed by the 
PHINIT routine and including the 
dictionary ACCESS routines. 

• Phase control for the translation stage 
(PHCTRL routine) . 

• Main processing routines, including 
utility routines for acguisition and 
movement of data. 



PHASE 30 METHOD OF OPERATIONS 



Diagram 5 shows the overall flow of 
phase 30 operations. Phase 30 input 
consists of PO-text and E-text on SYS002, 
the dictionary, and the OFILE, QVAR, 
IND2TBL, INDKEY, and VALTRU tables in 
storage. Its output consists of Pl-text and 
E-text on SYS003, DEF-text on SYS004, the 
glossary on SYSLST (or SYS006 for LVL 
option) , and the DTAB table in storage. 



After the PHINIT routine receives control 
from phase 00 and performs initialization 
for the phase, operations occur in two 
stages: glossary building under the control 
of the GLOSRY routine, and translation of 
PO-text into Pl-text under the control of 
the PHCTRL routine. During translation, 
special processing is performed on READ verb 
strings; OPEN verb strings; SORT and MERGE 
verb strings; ADD, SUBTRACT, and MOVE verb 
strings with the CORRESPONDING option; 
SEARCH verb strings; source progreun-names 
and special registers; and syntax errors. 
If USE FOR DEBUGGING declaratives exist in 
the source program, additional special 
processing is performed on procedure names 
and ALTER verb strings. 



GLOSSARY BUILDING 



The PHINIT routine determines from the 
SYM bit of the PHZSH1 switch in COMMON 
whether a glossary has been requested. If 
it has not, the PHINIT routine branches to 
the TSTWRO routine. Por each file 
definition entry in the dictionary in which 
the WRITE-ONLY switch is on, the TSTWRO 
routine sets the major code to 7 in all the 
data -name entries associated with the file. 
When all the WRITE-ONLY files have been 
processed, the TSTWRO routine branches to 
the GLORET routine, which initializes the 
translation stage of processing, reads in 
the first block of PO-text, and branches to 
the PHCTRL routine. 



• Glossary-building routines, headed by 
the GLOSRY routine and including 
utility routines for placing elements 
in a print buffer. 

• Constants. 



If a glossary has been reguested, the 
PHINIT routine branches to the GLOSRY 
routine, which prints out the glossary on 
SYSLST (SYS006 for LVL option) and 
simultaneously takes the same course of 
action as the TSTWRO routine. 
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The 6L0SRY routine scans the dictionary 
with the use of the DICND1 field in COMMON 
(pointing to the last Procedure Division 
entry placed by phase 11) and the DICND2 
field (pointing to the last Data Division 
entry placed by phase 22) . As each 
data-nane is encountered in the dictionary, 
it is placed in location PRLINE along with 
pertinent information from its attributes. 
Phase 00 is then called to print the 
contents of PRLINE. When necessary, the 
6L0SRY routine converts numbers in the 
attributes from one mode to another. 



TRANSLATION PROM PO-TEXT TO PI -TEXT: 
PHCTRL ROUTINE 



Before the 6L0RET routine branches to 
the PHCTRL routine for the translation 
stage of phase 30 operations, it stores the 
address of the first PO-text element in 
location PNTIN. The 6ETNXT routine moves 
the identification code of the element (the 
first half word) into location GOTTEN. The 
PHCTRL routine then tests GOTTEN to 
determine the processing that should be 
performed. 

If the element is a READ or RETURN verb, 
the PHCTRL routine calls the READPN routine 
to insert the appropriate record-name after 
the file-name. 

If the element is a MERGE or SORT verb, 
the PHCTRL routine calls the SMER6E routine 
to process these verbs. 

If the element is an ADD, SUBTRACT, or 
MOVE verb followed by an element for 
CORRESPONDING, the PHCTRL routine copies 
out the entire statement as PI -text, using 
the SEARCH routine to determine the 
unigueness of the operands. It then 
branches to the CORRTN routine to break 
down the statement into simple statements, 
each using one of the matching pairs of 
elementary items. 

If the element is a source program name, 
the PHCTRL routine calls the SEARCH routine 
to determine whether it is unique and then 
calls the 6EN0P routine to replace the name 
with its dictionary attributes and write it 
out as P1-text. If the name is a special 
register, however, the SEARCH routine 
generates the appropriate Pl-text element. 

If the PHCTRL routine encounters a 
SEARCH verb, it calls the STSRCH routine. 
If the element is a source card number, the 
PHCTRL routine places the number in CURCRD 
and then writes the element unchanged on 
STS003. All remaining elements are also 
written on SYS003 unchanged. 



If the element is a file-name in an OPEN 
verb string, the 6EN0P routine adds 
information for label and error processing 
to the string. 

If the element is a VSAH file-name, the 
PTLENM routine initializes the KEY CLAUSE 
work area. This information is used by the 
PHCTRL routine to determine that the file 
specified in the KEY clause is a VSAM file 
and by the DATANM routine to determine that 
th6 data-name specified in the KEY clause 
was specified as a RECORD KEY data-name. 

The READPN, CORRTN, and STSRCH routines 
each process the entire string associated 
with its special condition. They use the 
SEARCH routine to determine whether the 
names in their verb strings are unique. 

All these routines use the 6EN0P routine 
to replace the names with their dictionary 
attributes and write them as P1-text 
elements. The 6EN0P routine also generates 
DEP-text for procedure-names. 

The processing routines perform any 
diagnostic analysis that requires the 
dictionary. When a routine detects an 
error that requires action parameters which 
only a subsequent phase can determine, it 
substitutes an error symbol for the element 
in error. 

When it detects an error condition for 
which it can provide an entire message, it 
calls the ERROR routine with appropriate 
error parameters before returning to the 
PHCTRL routine. 

When the PHCTRL routine detects an 
end-of-file condition, it branches to the 
EOP routine, which releases tables and 
returns to phase 00. 



READ Verb Strings; READPN Routine 



The READPN routine checks the next 
PO-text element in the input buffer after a 
READ or RETURN verb to see if it is a 
file-name. If not, the READPN routine 
writes the verb element unchanged on SYS003 
and returns to the PHCTRL routine. Phase 
40 can detect the error without the 
dictionary . 

If a file-name does follow the READ verb 
element, the next dictionary entry after 
the file -name entry is checked to see if it 
is a record name. If it is, the 6EN0P 
routine is used to build a Pl-text 
data-name reference element for the record 
and write it out after the file-name. In 
the case of multiple records, the 
attributes of the longest record in the 
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file are used. An error symbol is 
substituted for the record nane attributes 
if the dictionary entry following the 
file-name is not a record name. 



MERGE/SORT Verb Strings; SMBRGE Routine 



literal) , the CORRTN routine substitutes 
an error symbol for the operand in 
Pi -text, calls the ERROR routine to put 
out error text, and reads in the next 
PO-text element. When phase 40 finds 
this error, the error symbol tells it 
that phase 30 has already produced an 
error message. 



The SHERGE routine enters file-names 
specified in the USING clause into the 
USNGT6L table. At the end of USING clause 
processing, the routine produces OPEN INPUT 
strings for each file-name. In the case of 
file-names being repeated, the SHERGE 
routine produces an error message. 



statements with CORRESPONDING Options; 
CORRTN Routine 



If operand-1 is not a group item, error 
text is generated, an error symbol is 
substituted for the operand, and the 
next PO-text element is read. Phase 40 
does not find this error. 



If operand-1 is valid and operand-2 is 
neither an EBCDIC name nor a data 
operand, an error symbol is substituted 
for operand-2 and a PI -text string is 
produced as follows: 



The CORRTN routine checks to determine 
whether the operands in the source 
statement are valid. It then matches the 
subordinate, lower-level data-names defined 
within the source statement hierarchies, 
and writes a Pi-text statement for each 
matching pair. This, in effect, breaks 
down the CORRESPONDING option source 
statements into a series of similar 
statements, all of which together 
explicitly represent the operations implied 
by the source statement. 

Two sample CORRESPONDING PO-text 
statements are given in Figures 26 and 27 
along with the resulting Pi-text. The step 
numbers given on the left in these figures 
refer to the procedure sequence discussed 
below: 



Step 1 : If the source statement is a MOVE, 
the PHCTRL routine writes out only the 
first object hierarchy operand as Pi -text. 
If there are others, the CORRTN routine 
processes them separately after the 
subject-object pairs. The source 
statements are put out so that phase 40 can 
perform a syntax check on them. 

Step 2 : Operand-1 and operand-2 are 
checked to make sure that they are both 
group items and valid data-names. Various 
procedures are followed, depending on what 
the checks reveal: 

If operand-1 is not an EBCDIC name or 
data operand, no more processing is done 
on the statement, and the next PO-text 
element is read in. Phase 40 finds this 
type of error. 

If operand-1 is not an EBCDIC name but 
is a data operand (for example, a 



verb, attributes, preposition, 
error symbol 



The word CORRESPONDING is written after 
the string, and then the next PO-text 
element is read. The string tells phase 
40 that no matching pairs were put out 
because of an invalid operand-2. , 



If operand-1 is valid and operand-2 is 
not a group item, then error text, a 
PI -text string containing an error 
symbol, and the word CORRESPONDING are 
all written out, and the next PO-text 
element is read in. 



Step 3 ; Assuming that both operands are 
valid, the subject (operand-1) hierarchy in 
the dictionary is scanned for corresponding 
items at the same relative level in the 
object (operand-2) hierarchy. 



Since the source statement operands have 
already been checked by the dictionary 
handling routines, the CORRTN routine knows 
which operand has the highest level 
dictionary pointer. Before initiating the 
object hierarchy search, it makes sure that 
the subject hierarchy pointer is at a lower 
level than that of the object hierarchy. 
If this is not the case, the operand-2 
group becomes the subject hierarchy. This 
is done to optimize the scan, since the 
dictionary handling routines look for the 
latest entry first using the HASH table 
(see the "Appendix A. Table and Dictionary 
Handling" 
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IPO-text: ADD CORRESPONDING R TO K 



f 

I Pi-text ; 



I Step 1 

I 

I Step 5 

I 
IStep 5 

I 

IStep 5 

I 

IStep 5 

I 
IStep 5 

I 

IStep 5 

I 
IStep 5 

I 
IStep 6 



ADD CORRESPONDING R TO K 
ADD R TO K 
ADD R1 TO K1 
ADD R2 TO K2 



ADD Rn TO Kn 
CORRESPONDING 



Figure 26. Pi-text Resulting from an ADD 
CORRESPONDING Option 



If a group item in the subject hierarchy 
does not have a matching name at the same 
level in the object hierarchy, the rest of 
the items in the group are skipped. This 
is done because there is no possibility of 
finding a match for any of the items in the 
group. 



Step 4 1 The subordinate items in the 
hierarchies are checked for conformity to 
the source language regulations. (For 
example, does the item contain a REDEFINES 
clause or an OCCURS clause with a DEPENDING 
ON option? If it does, ignore the item.) 
No error symbols or messages are generated 
if a match is found for any of the subject 
hierarchy items. If no match is found, a 
PI -text string (verb, error symbol, 
preposition, error symbol) is written to 
tell phase 40 that there were no matching 
items. 

Step 5 ; When a correspondence is found, 
assuming both items are valid. Pi-text 
statements similar to the source statement 
are generated. 

Step 6 ; If there are no more corresponding 
items, a Pi-text element for CORRESPONDING 
is written, and the next PO-text element is 
gotten. The word CORRESPONDING tells phase 
HO that the previous element was the last 
of a complete CORRESPONDING statement. 

Step 7 ; If the source verb is MOVE and the 
next PO-text element is another operand, 
the procedure is started over again. For 
Step 1, SAME is used for operand-1, the 
current PO-text element is used for 
operand-2, and CORRESPONDING is omitted. 



1 PO-text: 


MOVE CORRESPONDING A 
B, undefined (x) , D. 


(1) TO 1 


1 






1 

1 Pi-text: 


MOVE CORRESPONDING A 
MOVE A (I)-*- TO B+ 




IStep 

IStep 
1 


1: 
5: 


(1) TO B| 


IStep 
1 


5: 


MOVE A (1) « TO B( 




IStep 
1. 


5: 


• 




IStep 
1 


5: 


• 




IStep 
1 


5: 


• 




IStep 
1 


5: 


MOVE A (1)0 TO BO 




IStep 


6: 


CORRESPONDING 




1 

1 Steps 761: 

1 
1 


MOVE SAME TO error 
symbol (x) 




1 
IStep 

1 
1 


2: 


MOVE error symbol TO 
error symbol 




IStep 


6: 


CORRESPONDING 




IStep 
1 


7: 


MOVE SAME TO D 




IStep 


5: 


MOVE A (1)+ TO D+ 




IStep 
1 


5: 


MOVE A (1) < TO DC 




1 

IStep 

1 


5: 


• 




IStep 
1 


5: 


• 




IStep 
1 


5: 


• 




IStep 
1 


5: 


MOVE A (1) TO DO 




IStep 
1 


6: 


CORRESPONDING 




INote 


: The term "undefined" means 
ind is not an EBCDIC name or 
?nt; the term "error symbol" 
signaling an error. 


i the 1 


1 oper< 
|elem( 
{code 


data 1 
is a 1 



Figure 27. Pi-text Resulting from a MOVE 

CORRESPONDING Option 



SEARCH Verb strings; STSRCH Routine 



For each table to be searched, there is 
an entry in the INDKEY table containing 
literals expressing such information as the 
length of the table, as well as pointers to 
attributes in the dictionary for all the 
data items associated with the table. The 
STSRCH routine adds some of these literals 
and attributes to the SEARCH verb string. 

The STSRCH routine first writes the verb 
element on SYS003 and then examines the 
element that follows. This element should 
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be the EBCDIC name for the table that is to 
be searched. If it is not, the STSRCH 
routine abandons processing the text as a 
SEARCH string and returns to the PHCTRL 
routine to process it in the nornal manner. 
No error text is put out, since phase 40 
detects the error later on. 



If the element is an EBCDIC name, the 
STSRCH routine uses the SEARCH routine to 
determine that the name is unique. During 
its processing, the SEARCH routine places 
the pointer to the dictionary entry for the 
name in location ID1PTR. The STSRCH 
routine uses this pointer as an argument to 
find an entry in the INDKEY table that 
contains the same pointer. This entry in 
turn contains pointers to entries in the 
dictionary for all the index-names, keys, 
and OCCURS... DEPENDING ON objects 
associated with this SEARCH verb string. 
Figure 28 shows the P1-text output for a 
verb string of format 1 of the SEARCH 
statement with the VARYING option. Figure 
29 shows the output for a verb string of 
format 2 of the SEARCH statement. 



Note that, although in the source 
program the SEARCH statement may continue 
beyond the AT END through a number of 
conditional and imperative statements, the 
STSRCH routine stops processing before the 
AT END and returns control to the PHCTRL 
routine to handle the rest of the 
statement. 



Determining the Uniqueness of a Name 
SEARCH Routine 



The SEARCH routine moves the source 
program-name it is to analyze from the 
input buffer to the location NKAREA. It 
determines if the name is unique. If it 
is, the SEARCH routine returns to the 
PHCTRL routine to replace the name with its 
dictionary attributes and put the result 
out as Pi-text, 



Special Registers : If the name is not in 
the dictionary, the SEARCH routine looks 
for it in the SPCREG area, which contains 
the names of the special registers. 
Associated with each name is a pointer to 
dummy attributes in the RE6ATT area. The 
SEARCH routine replaces the special 
register name with its dummy attributes and 
calls the 6ENDAT routine to have them 
written as Pi -text. 

Qualified Names ; In PO-text, a name and 
its qualifiers are in reverse order of 
their appearance in the source program. 
When the SEARCH routine finds that a name 
is a qualifying name, it calls the QUALIF 
routine. The QUALIF routine searches the 
dictionary for each name in the string of 
qualifying and qualified names. If the 
qualified name is truly unique, it is 
returned through the SEARCH routine to the 
PHCTRL routine. Its qualifiers are 
discarded. 



Phase 11 Output Phase 30 Output Meaning of Element 
I 1 1 I 1 1 Verb, SEARCH format-1 



|44|5E| 
' » « 



I 1 1 

|44|5E| 



Data-name, identifier-1 



II ' "I I I I 

1 23 1 EBCDIC Name I 1 30 | Attributes | (table to be searched) 

' ■ ' I 1 ■ .I 



I I ■ I 
1541881 



I 1 1 Data-name, object of 

I 30 I Attributes I OCCURS. . .DEPENDING ON 
I I I 



OR 



I 1 1 Represents maximum 

1 32 1 Literal | number of occurrences 



I I 1 

I 50 1 88 1 
' ■ ' 



VARYING 



Processipq py Phase 30 
Copied out unchanged 



Name replaced by its dic- 
tionary attributes 



Attributes taken from dic- 
tionary, using pointer in 
INDKEY table entry that 
contains pointer to 
identifier-1 dictionary 
entry 

Literal taken from INDKEY 
table entry that contains 
pointer to identifier-1 
dictionary entry 

Copied out unchanged 



Figure 28. Pi-Text for SEARCH Format-1 (Part 1 of 2) 
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Phase 11 Output Phase 30 Output Meaning of Eleaent 



Data-name for 



I 23 I EBCDIC Name I 1 36 attributes | index-name-1 that 
I 1 1 I 1 1 belongs to table 



OR 



23 I EBCDIC Name I 



OR 



r— T 1 

I 23 I EBCDIC Name I 
I 1 I 



54 1 70 1 
I ■ I 



—I 1 

54|A1| 
__j I 



Data-name for 
index-name-1 that does 
not belong to table, 
if specified 

Data-name for 



I 1 > 

1 36 1 Attributes I index-name-1 that 
' » • belongs to table 



|5tl|88t 
I I I 



I 36 I Attributes I 
I I I 



VARYING 



Data-name for 
index-name-1 that does 
not belong to table, 
if specified 



Data-name for 
identifier-2 not 
belonging to table, if 
specified 

Data-name for 



1 361 Attributes I index-name-1 that 
' • » belongs to table 



|54|88| 
I I I 



I 1 1 

1 30 I Attributes I 
I 1 1 



5t»|70 



54|A1 
I 



VARYING 



Data-name for 
identifier-2 not 
belonging to table 
if specified 

AT 



END 



Processping bv Phase 30 

Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry for 
identifier-1 



Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry for 
identifier-1 

Added for phase 4 con- 
venience 



Name replaced by attributes 
found in dictionary 



Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry for 
identifier-1 

Added for phase 40 
convenience 



Name replaced by attributes 
found in dictionary 



Copied out unchanged by 
PHCTRL 

Copied out unchanged by 
PHCTRL 



Figure 28. PI -Text for SEARCH Pormat-1 (Part 2 of 2) 
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P ^^ase 11 Output 



|44|5F| 
I I I 



r • — I 1 

I 23 I EBCDIC Name I 
I I 1 



|54|70| 
I 1 f 



r— I 1 

|5(||A1| 



P ^ase 30 Output Meaning of Element 

Verb, SEARCH format-2 



I I 



— I 1 

30 1 Attributes I 

' I 



BB I Literal 



Data-name f 
identifier- 1 (table 
to be searched) 

Literal representing 
number of keys 



— I 1 

30 {Attributes I key 



Attributes of first 



r— T 

1 30 1 Attributes | key 



T Attributes of last 



I 1 1 First index-name 

j 36 1 Attributes I attached to table 



Data-name, object of 



I I " ' ■ t 

1 30 i Attributes I OCCURS. . .DEPENDING ON 

I I I 



OR 



I 1 1 Literal representing 

j 32 1 Attributes j maximum number of 
' ' • occurrences 



rioTTol 

I I I 



I 1 1 

|54|A1| 
I I > 



AT 



END 



Processing ^y Phase 30 
Copied out unchanged 



Name replaced by its dic- 
tionary attributes 



Literal taken from INDKE7 
entry that contains pointer 
to identifier-1 dictionary 
entry 

Name replaced with dic- 
tionary attributes pointed 
to in entry containing 
pointer to identifier- 1 
dictionary entry 



Name replaced with 
dictionary attributes 
pointed to in entry 
containing pointer to 
identifier-1 dictionary 
attribute 

Name replaced with dic- 
tionary attributes pointed 
to in entry containing 
pointer to identifier-1 
dictionary attribute 

Attributes taken from 
dictionary using pointer in 
INDKEY table entry that 
contains pointer to 
identifier-1 dictionary 
entry 



Literal taken from INDKET 
table entry that contains 
pointer to identifier-1 
dictionary entry. 
Copied out unchanged by 

PHCTRL 



Copied out unchanged by 
PHCTRL 



Figure 29. Pi-Text for SEARCH Format-2 
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Replacing Names with Dictionary Attributes; 
GEHOP Routine 



The PHCTRL routine calls the GENOP 
routine to replace a name with its 
dictionary attributes and then write the 
result in Pl-text format through the GENDAT 
routine. 

Except for condition-names and special 
registers, the pointer to the dictionary 
entry itself is appended to these 
attributes. Although the dictionary does 
not exist after phase 30 operations. Phases 
50 and 51 use the pointer as an argument in 
syntax analysis, and phase 60 uses it as an 
identification code. 

The GENOP routine determines from the 
attributes what kind of P1-text elements 
should be generated. Special processing 
for particular types of names is described 
below. 

Data -names ; Data-name reference elements 
are generated for data-names. If the 
Q-routine bit in the attributes is on, the 
QVAR table pointer is used to find the GN 
number to be added to the attributes. In 
the case of an elementary item, the GN 
number in the entry pointed to is used. In 
the case of a group item, the GN number in 
the entry for the next subordinate item is 
used. 

File-names ; Pile-name reference items are 
generated for file-names. If the Q-routine 
bit in the attributes is on, the QFILE 
table is searched, using the pointer in the 
attributes for a GN number to be added to 
the attributes. 

If the verb is an OPEN verb, the GENOP 
routine looks for the GN numbers following 
the file-name element for label and error 
processing. These numbers are inserted 
between the attributes and the dictionary 
pointer in the resulting P1-text element 
for the file-name. 

If the file is a VSAM file, a VSAM 
file-name reference element is generated. 

Procedures-names ; When the name is a 
procedure-name definition in a segmented 
program, the GENOP routine inserts a 



segmentation control break after the 
generated PI -text element each time it 
encounters a section-name with a different 
priority . 



When the name is a procedure name 
reference, the GENOP routine searches the 
dictionary for the section in which the 
name is defined. It then adds the priority 
number of the section to the attributes of 
the procedure-name reference. 



Condition-^ames ; When the GENOP routine 
encounters a condition-name, it creates a 
PI -text string that associates the 
elementary item with the values for which 
it is to be tested. It uses pointers in 
the dictionary attributes of the 
condition-name to find the dictionary 
attributes of the elementary item, as well 
as to find the test-values in the VAtTRO 
table. Figure 30 shows the PO-text input 
and Pi-text output for a condition-string 
without a VALUE... THRU clause. Figure 31 
shows the PO-text and Pi-text for a 
condition-string with a VALUE... THRU 
clause. 



Debugging 



in 



DEBUG-ITEM references are only valid 
USE-FOR-DEBUGGING declaratives. During 
phase 30 processing/ when the last such 
declarative has been processed (END 
DECLARATIVES or nort-USE-FOR-DEBUGGING 
declaratives encountered) , the dictionary 
entries for a DEBUG-ITEM are invalidated 
(ENDDBG routine) . Further references will 
result in diagnostics. The ENDDBG routine 
invalidates dictionary references to fields 
of the DEBUG-ITEM special register by 
inserting an invalid character as the first 
character of each debugging special register 
in the dictionary. ENDDBG will guarantee 
that Procedure Division references to any 
DEBUG-ITEM field will be flagged. 



If ALL PROCEDURES was specified in any 
USE-FOR-DEBUGGING declarative, DTAB is 
primed and DTAB entries created for all 
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procedure -names encountered, except those in 
USE-FOR-DEBUGGING declaratives. PN 
definition handling is processed by the 
procedure-name handling routine (PRONAM) . 
If the program has WITH DEBUGGING MODE 
specified, and one of the debug declaratives 
has been specified ALL PROCEDURES, and this 
PN definition is not a debug procedure, then 
build and add an entry to the DTAB for 
phase 35. 

The ALTSCAN routine appends a BCD literal 
element after each target PN in an ALTER 
statement. Phase 35 uses this routine to 
build a debug verb for ALTER procedure-names. 
ALTSCAN will loop until an error or all 
clauses of the ALTER statement are 
processed. Process for each iteration: 

- Expects first PO element to be PNl. 

- Checks for and skips by TO PROCEED TO. 

- Expects next PO element to be PN2. 

- If valid ALTBCD, builds and generates 
BCD literal. For PN2 after PN2 in 
Pl-text. 

- Any deviation causes exit from ALTSCAN. 



Error Processing; ERROR Routine 



The processing routines branch to the 
ERROR routine when E-text for a complete 
diagnostic message can be generated. The 
parameter list following each branch 
consists of the message number, the severity 
code, a count of the parameters if any, and 
the addresses of the pareuneters. The ERROR 
routine builds E-text for a message in 
location ERMSG, calls phase 00 to write it 
on SYS003 along with Pl-text, and then 
returns to the calling routine. The format 
of E-text and the manner in which diagnostic 
messages are later generated from it are 
described in the chapter on phase 70. 

If CSYNTAX is specified and an error is 
detected, the syntax option bit in COMMON is 
forced on and conflicting options are forced 
off. 
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p^iase 1 1 Output Phase 30 Output Meaning of Eleaent 

IP 



|5U|07| 
I I 1 



I 1 1 

1 5a 1 07 1 
I I I 



I II 1 
I 23 1 ♦* I EBCDIC Name I 
I I I 1 



r — f ■ T 



Condition-nane 



Conditional variable 



30|**Uttri- I 
I I butes i 



50 1 06 1 
,__j I 



EQUALS 



— I 1 1 First value to be 

* I** I Literal I tested for 



Jl L, 



■— T 1 

54|5Ei 



501061 
—..J I 



OR 



EQUALS 



— I 1 1 Last value to be 

* I** I Literal I tested 
' ■ I 



Imperative 
statement 



Imperative 
statement 



Processing bv Phase 30 
Copied unchanged by PHCTRL 



Uses pointer in dictionary 
entry for condition -name to 
find entry for elementary 
item 

Writes conditional variable 
attributes from its diction- 
ary entry replacing its 
dictionary pointer with that 
of the condition-name 

Generated by GEVDAT 



Taken from YALTRU table 
entry pointed to in con- 
dition-name attributes 

Generated by 6ENDAT 



Generated by GENDAT 



Taken from VALTBU entry 
pointed to in condition- 
name attributes 

6BH0P returns to PHCTRL to 
handle remaining processing 



*Code indicating type of literal, as follows: 



Code 
32 
33 
3H 
39 



Type of Literal 
Numeric 

Floating-point 
Alphanumeric 
ALL constant 



♦♦Count indicating number of bytes in following field 



Figure 30. Pi-text Written for Condition-String Without VALUE... THRU Clause 
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Phase 11 Output Phase 30 Output Meaning of Element 

IP 



r— — 1 1 

I 54 1 07 I 
I i I 



f I 1 

15^1071 
I I I 



I 1 I 1 

1 23 I ♦* I EBCDIC Name I 



I 1 r 



|30|**|Attri- I 
I i Ibutes I 



Condition-name 



-I Conditonal variable 



I ,1, t, 



|52|00| 

I,,,,. JL • 




|54|5C| 




|50|0A| 




1 * 1**1 Literal 1 




|54|5D| 




|54|5C| 




1 501 081 




1 BB 1**1 Literal 1 




|52|01| 
1 I 1 



Imperative 
statement 



Imperative 
statement 



Left parenthesis 
NOT 

LESS THAN 

First value in 
series 

AND 
NOT 
GREATER THAN 

Last value in series 
Right parenthesis 



Processing by Phase 30 
Copied unchanged by PHCTRL 



Uses pointer in dictionary 
entry for condition-^name to 
find entry for elementary 
item 

Writes conditional variable 
attributes from its diction- 
ary entry replacing its 
dictionary pointer with that 
of the condition-name 

Generated by GENDAT 



Generated by GENDAT 



Generated by GENDAT 



Taken from VALTRU entry 
pointed to in condition- 
name attributes 

Generated by GENDAT 



Generated by GENDAT 



Generated by GENDAT 



Taken from VALTRU table 
entry pointed to in 
condition-name attributes 

Generated by GENDAT 



GENOP returns to PHCTRL to 
handle remaining processing 



*Code indicating type of literal, as follows: 



Code 
32 
33 
34 
39 



Type of Literal 
Numeric 
Floating-Point 
Alphanumeric 
ALL constant 



**Count indicating number of bytes in following field. 



Figure 31. Pi-text Written for Condition-String with VALUE... THRU Clause 
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PHASE 35 



Phase 35 (ILACBL35) processes the 
Procedure Division for debugging. It first 
scans the Declaratives Section for USE FOR 
DEBUGGING verbs and their operands, then 
adds to the source program's text the verb 
necessary to cause invocation of the 
USE FOR DEBUGGING declaratives. Phase 35 is 
invoked only if WITH DEBUGGING MODE is 
specified, and at least one USE FOR 
DEBUGGING declarative is present. At 
completion of processing, all tables are 
released, and control is returned to 
phase 00. 

Phase 35 is invoked by phase 00 to 
process USE FOR DEBUGGING declaratives, 
verifying each operand. Phase 35 scans 
Procedure Division IC-text for 
procedure-names for which debugging is 
specified, and generates debugging text for 
processing by later phases. 

ILACBL35 first scans the Declaratives 
Section for USE FOR DEBUGGING verbs, 
analyzes each verb, and makes an entry in 
the DTAB for each valid operand. If at 
least one valid operand exists in a USE FOR 
DEBUGGING sentence, a USE FOR DEBUGGING verb 
is generated into the PlA-text. Upon 
reaching the end of the debug declaratives, 
the DTAB is complete and the rest of the 
program is scanned for references to 
USE FOR DEBUGGING operands. 

Two types of debugging verbs are 
generated as references to an operand of a 
USE FOR DEBUGGING declarative are 
encountered : 

1. The DEBUG transfer of control verb 
consists of a verb code and an option 
byte. Zhe option byte indicates the 
type of transfer of control. Phase 35 
generates DEBUG transfer verbs for the 
situations listed below: 

- Prior to a procedure-name definition, 
if it is a USE FOR DEBUGGING operand, 
but not if it is a declarative section, 
nor if it is preceded by a COBOL 
conditional sentence, unconditional GO 
statement, END-DECLARATIVES control 
break, or an EXIT verb. 

- Prior to a GO statement. 

- Prior to an I/O and/or conditional 
sentence . 

- Following a conditional sentence. 



2. The DEBUG verb that later causes a call 
to the DEBUG subroutine (ILBDBUG) to be 
made. Each call to ILBDBUG causes at 
least one DEBUG declarative to be 
invoked. The operands of this verb are 
the procedure-name number and priority 
number for the declarative to be invoked, 
an alphanumeric literal that will be the 
contents of the DEBUG-NAME, a dummy 
dictionary attributes item, or an 
alphanumeric literal giving the contents 
of DEBUG-CONTENTS , and an optional byte 
giving additional information about the 
USE FOR DEBUGGING operand reference. 

When specified as a USE FOR DEBUGGING 
operand, the following items cause a DEBUG 
verb to be generated: 

- A Procedure-name reference that is the 
first operand of an ALTER verb. 

- A procedure-neune definition. 

In general, the DEBUG declaratives are 
invoked prior to the execution of a 
procedure-name and after the execution of 
a verb. 

Source output (Pl-text) and DEBUG output 
are accumulated in separate tables until the 
proper time (usually end-of-verb) when both 
tables will be generated to PlA-text. 



Note ; At any given generation moment, only 



one DEBUG verb will be put to PlA-text per 
unique USE FOR DEBUGGING operand referenced. 



TABLE HANDLING 



PlTEXT : Phase 35 creates this table and 
uses it to accumulate each verb string 
until debug processing for it has been 
completed, at which time the text in this 
table is generated. Phase 35 deletes PlTEXT 
upon completion of processing. 



DTAB : Phase 35 builds or adds to the DTAB 
table, saving the data descriptions of all 
valid operands found in the USE FOR 
DEBUGGING sentences. Upon completion of 
building DTAB (at end of DEBUG declaratives 
or END declaratives) it scans the remaining 
Pl-text for operands that match the entries 
in DTAB. Whenever a match occurs. 
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information from the DTAB entry is used to 
build a debug verb for the operand. 
Phase 35 deletes DTAB upon completion of 
processing. 

DBGTXT ; Phase 35 creates this table and 
uses it to accumulate DEBUG verb text while 
processing an input verb string. Phase 35 
deletes DBGTXT upon completion of 
processing. 

VRBDN : Phase 35 creates this table and 
uses it to describe each operand encountered 
by the current input in Pl-text verb string. 
Phase 35 deletes VRBDN upon completion of 
processing. 

PH35VRBS ; An internal table used when 
analyzing a verb string for USE FOR 
DEBUGGING operands. PH35VRBS defines the 
proper syntax analysis routine for a 
specific verb, and its initial process 
control flag settings. Each entry in 
PH35VRBS contains the COBOL code for the 
verb, initial analysis process control flag 
settings, address of the verb analysis 
subroutine (VRBANALZ) , and the length of 
the entry. 

When phase 35 encounters a verb in the 
Pl-text input stream, the PH35VRBS table is 
searched for the proper entry corresponding 
to the verb. The entry, with its initial 
settings, is then copied into a work area, 
VRBINFO, which is utilized by phase 35 
during verb analysis. 



PROCESSING ROUTINES 



PHCTRL ; The Phase Controller routine 
(PHCTRL) controls the processing of phase 35, 
Upon entry to phase 35, PHCTRL performs the 
following initialization functions: 

- Prime the DTAB table if not previously 
done by phase 30 

- Prime the PlTEXT table 

- Prime the DBGTXT table 

- Prime the VRBDN table 

PH35INIT ; A subroutine of PHCTRL, 
initializes processing, including Tamer 
table priming. PHCTRL transfers control to 
the ANLZUFDS routine, which analyzes the 
USE FOR DEBUGGING sentences and builds a 
DTAB table entry for each valid operand. 
When control is returned to PHCTRL (no more 
USE FOR DEBUGGING sections) , it will 
determine the category of the next input 
element and transfer control to one of two 
routines: GOTAVERB (processes all verbs 



encountered) , or PNDEFRTN (checks a PN 
definition for debugging and may generate a 
debug transfer verb as well) . 

ANLZUFDS : A subroutine of PHCTRL, is called 
to scan for USE FOR DEBUGGING declaratives 
until the end of all debug declaratives, or 
END DECLARATIVES is found. The VRBANALZ 
routine is used to handle syntax variations, 
GETDI is used to build the necessary VRBDN 
entries and debug text, and GENTXT is used 
to generate the contents of the PlTEXT and 
DBGTXT tables to output. The Pl-text is 
read until the first section definition in 
the declaratives is found. For each USE FOR 
DEBUGGING declarative, the USE FOR DEBUGGING 
sentence is examined. A USE FOR DEBUGGING 
statement must begin with a section 
definition. Each operand is checked for 
validity. ANLZUFDS invokes CKUFDOPS for 
each USE FOR DEBUGGING declarative. In 
turn, CKUFDOPS invokes CKUFDOP for each 
operand in the sentence. CKUFDOP verifies 
the operand as a valid and unique PN, then 
adds an entry to the DTAB table via the 
DTABADD routine. If a PN, the BGALLPRC bit 
in COMMON must be tested to verify that ALL 
PROCEDURES had not been specified. If so, 
the PN must be diagnosed as invalid and 
discarded. The PN will be entered as FF, 
plus the PN number in the DICTPTR field of 
the DTAB entry. 

If at least one operand in the sentence 
is valid, a USE FOR DEBUGGING verb is 
generated. Then input text, up to the next 
declarative section or END DECLARATIVES, is 
generated to output unchanged. When 
END-DECLARATIVES or a non-USE FOR DEBUGGING 
declarative section is encountered, control 
is returned to PHCTRL. 

GOTAVERB : determines the verb and passes 
control to ANLZVRBS. 

ANLZVRBS : ANLZVRBS is a subroutine of 
PHCTRL that processes complete Pl-text verb 
strings for debugging. This subroutine 
searches each verb string looking for 
operands that were specified in a USE 
sentence. VRBANLZ routines are invoked to 
handle specific syntax and processing 
variations. ANLZVRBS will find verbs in 
the internal phase 35 table (PH35VRBS) and 
copy the initial VRBANALZ control flags 
from the table. (PH35VRBS defines the 
proper syntax analysis routine for a 
specific verb and its initial process 
control flag settings.) Each operand 
produces only one debug verb for its use in 
a given verb string. 

Pl-text is kept in the PlTEXT table as 
it is being read. The debug verb text is 
also accumulated in the DBGTXT table as 
debugging operands are matched in the verb 
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string. The PITEXT table, and the DBGTXT 
table are generated when end of verb is 
determined. 

VRBANALZ : The VRBANALZ subroutines are 
invoked by ANLZVRBS at entry point based on 
the address in PH35VRBS. The major 
objective of each VRBANALZ subroutine is to 
process a given verb's Pl-text string, 
locating and generating debug text for 
USE FOR DEBUGGING operands encountered, 
with minimal dependency on syntax analysis 
(VRBANALZ subroutines only perform as much 
syntax checking as necessary for location 
verification) . 

Some VRBANALZ subroutines look only for 
specific keywords that will give information 
about operands encountered before and/or 
after the keywords. Others may perform 
more complex operations. 

Because of the generality of the 
VRBANALZ subroutines, it is possible to 
combine the processing of several similar 
verbs in one routine. Most of the VRBANALZ 
subroutines may be invoked several times 
while ANLZVRBS is processing a particular 
verb string. On each invocation, most will 
process what they recognize, or copy what 
they know is unimportant (such as 
extraneous COBOL words) , then return to 
ANLZVRBS, which may determine analysis for 
the current verb string if finished, and/or 
pass on the current PI element to GETDI, 
which checks if it is a USE FOR DEBUGGING 
operand . 

Input to VRBANALZ is the current PI 
element addressed by PITXTPTR. Three sets 
of control flags (switches) are: 

- PH35FLGS: phase control flags 
maintained continuously throughout 
phase 35. 

- CURVFLGS: verb control flags. Original 
settings copied from PH35VRBS entry for 
the current verb and maintained 
continuously throughout the current 
verb's processing. 

- ADDVFLGS: Additional verb control flags 
initialized prior to the current verb 
processing and maintained continuously 
throughout the current verb ' s 
processing. 

Output from VRBANALZ is Pi-Text and 
DEBUG-Text saved in their respective Tamer 
tables. Pl-text and DBGTXT (some VRBANALZ 
subroutines) will generate these tables to 
PIA-TEXT when analysis deems it necessary. 
Input flags (switches) may be reset. 



PNDEFRTN: The PNDEFRTN routine checks 
procedure-name definitions for debugging. 
PNDEFRTN determines if the PN definition is 
is a USE declarative header. If so, any 
debug text for a PN definition is saved in 
the DBGTXT table later to be generated 
following the Pl-text for the USE verb. 
For any other PN definition, the debug text 
will be saved in the PITEXT table. If this 
is any PN definition not immediately 
following an END DECLARATIVES, a 
conditional sentence, an EXIT verb, or an 
unconditional GO statement, a DEBUG 
transfer verb is generated. The PN 
definition element is saved in the PITEXT 
table. Later, when PN analysis is 
complete, GENPITT is called to generate the 
PITEXT table, including the PN definition 
element, and possibly the DEBUG verb text 
for the PN definition. 



ERROR : The ERROR subroutine builds and 
produces E-TEXT for error messages and 
associated parameters, and terminates 
compilation, if necessary. If error was 
disaster level, phase and compiler 
terminate via phase 00. 



EOFRTN ; The EOFRTN routine receives 
control at end-of-file to release the 
tables and to terminate phase processing, 
EOFRTN guarantees that text tables have 
been generated, and releases all Tamer 
tables used by this phase. 



NON-DEBUGGING DECLARATIVE CONSIDERATIONS 



Collecting information about various 
items encountered in a verb string as 
potential debugging operands is handled by 
the VRBDN table in phase 35. Each entry in 
the VRBDN table corresponds to a potential 
debugging operand in the verb string. 
Information stored includes whether the 
operand: 1) was found in the DTAB, or 
2) is unique. Additionally, the entry 
identifies the offset in the DBGTXT table 
where the debug verb, if any was built for 
this operand, is stored. When text is 
generated from the DBGTXT table, phase 35 
references each entry of the VRBDN table to 
determine if its corresponding debug verb 
should be generated and where in DBGTXT it 
is located. 



Phase 35 80.3 



Licensed Material - Property of IBM 



Output 

There are two types of output produced 
by phase 35: 

1. DEBUG transfer of control verb 

4483 DEBUG transfer 
2401nn option byte 

where nn has the following settings: 

#G0 GO 
#FALLTHRU FALL THROUGH 



2. DEBUG verb: 

448A 
DO... 



DEBUG verb 

PN reference of USE FOR 

DEBUGGING declaratives 



34... DEBUG-NAME 
35... DEBUG-CONTENTS 
24nnxx* option byte 

* bit will be set on if this is the last 
DEBUG verb in a series. 

XX has the following settings: 

#ALTER ALTER 

#PN PN 

#LASTDBG last DEBUG verb in a series 

Later phases use the DEBUG transfer verb 
to generate code that updates the Task 
Global Table with DEBUG-LINE and type of 
transfer of control. These fields are used 
by the ILBDBUG subroutine to set up 
debug-i terns. 
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Phase 40 (ILACBLUO) continues the 
transformation of a source program 
Procedure Division into machine-language 
instructions. Its main functions are: 

• Transforms Pl-text into P2-text. 

• Analyzes syntax and checks for errors 
in the Pl-text statements. 

• If COUNT is in effect, converts all 
verbs and procedure-names to Data 
A-text and defines verb-block nodes 
with a counter in both the COUNT table 
(Data A-text) and P2-text. 

During phase 40, the compiler-generated 
card number of the statement currently 
being processed is kept in a halfword 
labeled CARDNO. 



TRANSLATION OF PI-TEXT TO P2-TEXT 
PROCEDURE-NAMES 

Pl-text is read by routine IDENT. If 
IDENT determines that an element is a 
procedure-name definition, it calls routine 
IDLHN to process the element. 
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PHASE 40 



five operands are required by a single 
verb, a continuation string is put out. 
See the discussion of the DISPLAY statement 
in the chapter on phase 51 for an example 
of a cpntinuation string. 

When phase 40 encounters an UNSTRING 
verb, it first puts out P2-text for the 
verb. All other information is put out on 
SYS002 in the form of ATM-text for phase 45 
to process. Phase 40 sets a bit (PH45BIT) 
in the SWITCHl cell in COMMON to indicate 
that phase 45 is to be called to process 
the UNSTRING verb, and passes the ATM-text 
to it. If phase 4 encounters a Q-Routine 
control break and the PH45BIT is on, it 
writes all Q-Routine text on SYS002. 

The following sections give examples of 
phase 40 processing for several types of 
verbs. These examples show the general 
pattern of analysis for all the verbs and 
use all of the phase 4 tables except the 
SETTBL table. The SETTBL table is used to 
accumulate index-names or identifiers which 
may precede the COBOL words TO, UP, or DOWN 
in the SET statement and multiple receiving 
fields in arithmetic statements. 



EXAMPLES 



VERB STRINGS 

If the element encountered is a verb, a 
verb analyzer is called. There is a 
separate verb analyzer routine for each 
COBOL verb. 

The verb analyzer routines use a number 
of tables while building a verb string. 

The STRING table is used by most verb 
analyzers that produce output. It holds an 
output string while it is being built. The 
string is held in the table, rather than 
being put out in parts as it is built, for 
the following reasons: 

• A string is not issued unless it is 
free of errors. This cannot always be 
determined. until the entire string is 
produced. 

• sometimes the information which appears 
at the end of a Pl-text statement (for 
example, UPON CONSOLE in a DISPLAY 
statement) is put at the beginning of 
the string as an aid to phase 50 or 51. 

A string of P2-text is put out with a 
maximum of five operands. If irore than 



MOVE Statement — Subscripting 

Phase 4 processing for the MOVE 
statement consists simply of putting out a 
MOVE string which gives the number of 
operands and names the operands. For the 
input elements: 

MOVE A TO B 

Phase 40 generates the string: 

MOVE (2) A B 

The operands of a MOVE statement may be 
subscripted. When subscripted operands are 
encountered in any statement, the 
generating routine first issues a SUBSCRIPT 
string for each subscripted operand and 
then issues the string for the verb. The 
following MOVE statement exemplifies the 
building of SUBSCRIPT strings : 

MOVE A(6) TO B(C,D,E). 

Processing for this statement is 
illustrated by Figure 32, which shows the 
contents of tables built for the statement 
and the P2-text strings produced. 
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r T T 1 



STRING 
Table 

MOVE (2) 


Jdefsbs Table] Output 
.+ + 

1 SUBSCRIPT ( 3) 1 SUBSCRIPT (3) A 6 
1 1 SSIDl 


SSIDl 


|A 1 SUBSCRIPT (5) 

J 1 B C D E SSID2 


SSID2 


|6 1 MOVE (2) 

1 1 SSIDl SSID2 




1 SSIDl 1 




1 SUBSCRIPT (5) 1 




|B 1 




|C 1 




|D 1 




|E i 




ISSID2 1 



L X X J 

Figure 32. Tables and Output for a MOVE 
statement 



EXPLANATION ; The MOVE verb, with 2 to 
indicate the number of operands, is placed 
in the STRING table. Then the first 
subscripted operand is processed. For this 
operand, a SUBSCRIPT string is built in 
table DEFSBS. (SUBSCRIPT is a special 
COBOL verb used only within the compiler; 
table DEFSBS is similar to the STRING 
table, but it is used only to hold 
subscript information. ) 



The SUBSCRIPT string is used by phase 50 
to resolve the subscripted reference. The 
first SUBSCRIPT string shown in Figure 32 
means: "Compute the address of the sixth 
occurrence of A; place thiat address into a 
temporary cell called SSIDl." At execution 
time, the address of the data item to be 
moved is held in SSIDl; therefore SSIDl 
becomes the operand of the MOVE verb. The 
same applies to the second operand. 



When the period ending the statement is 
encountered, all three strings are written 
on SYSOOl. 



DEBUG Card 



If a procedure-name is referred to on a 
DEBUG card, phase 40 produces a CALL 
string. 

The output generated for debugging 
procedures is illustrated in Figure 33,. 

When routine IDLHN analyzes a PN 
definition, it determines from the 
attributes that this PN is referred to on a 
DEBUG card. Routine IDLHN first issues a 
PN definition element. Then it obtains a 
GN number from GNCTR in COMMON and issues a 
CALL string with this GN as its operand. 
The PN number and the GN number are saved 
together in table DBGTBL. 

When a DEBUG card is encountered, the 
DBGTBL table is searched for a PN number 
that matches the one on the DEBUG card. In 
the table, this PN number has a 
corresponding GN number, and a GN 
definition element is issued for this GN, 
Therefore, the GN defines the location of 
the debugging procedure. 



ALTER Statement 



For each ALTER statement in a program, 
two statements require ALTER processing: 
the ALTER itself, and the GO TO statement 
named in the ALTER. Either of these 
statements may be encountered first. When 
one statement of an ALTER/GO TO pair is 
encountered, a VN number is assigned, and a 
string of P2-text is written using this VN 
number. A VNTBL entry is made, giving the 
VN number and the PN number to which it 
corresponds. When the second statement of 
the pair is encountered, this VNTBL entry 
supplies the VN number for this statement's 
P2-text output. 



Input Statement 



DBGTBL Table 



Output 

PNl. CALL GNl ADD... 

PN2. CALL GN2 MOVE.., 
GN2. DEBUG PN2 
GNl. DEBUG PNl 



1 PNl. 


ADD. . . 


1 PN2. 


MOVE. . . 


1 DEBUG 


PN2 


1 DEBUG 


PNl 



PNl 
PN2 



GNl 
GN2 



Figure 33, DBGTBL Entries and P2-text for DEBUG 
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1 K 

1 Input Statement I YNTBL 


"r 


- ■ ■■■ ■ ' — — -. . ■ . -. . J 

Output 1 

• 


|(1)PN1. 


GOTO PUB. 1(4) PN1 


VN1 10 

1© 


PN1. 


GO VN1. 1 
EQUATE VH1 PN3 | 


1© 


ALTER Pllft TO PROCEED TO PN6.|(D PHU 


VN2 1 




HOVE PN6 VN2 | 


1 PN2. 






PM2.. 






GO TO PN1. 1 


GO TO PN1. I 


1 PN3. 




1® 


PN3. . 




j® 


ALTER PH1 TO PROCEED TO PN2. I 




MOVE PN2 TO VN1 | 


1 PN4. 


GO TO PN5. 1 




PN4. 


GO V1I2. 1 
EQUATE VN2 PW5 | 


1 PN5. 






PN5.. 
PM6.. 




1 PN6. 




• • • • 1 



Pigure 34. Table Entries and Output for ALTER Statements 



At execution time, each PN is assigned a 
cell in the PGT (Program Global Table) . In 
this cell, the address of the first 
instruction for the PM is permanently 
stored. Each VN is assigned a cell in the 
VN field of the T6T (Task Global Table) ; 
however, the contents of these cells are 
not permanent. When a go TO instruction is 
modified by an ALTER statement (or a 
PERFORM statement, as described later in 
this chapter) , the address contained in the 
VN cell is changed. 

Figure 34 gives an example of phase 40 
processing for the ALTER statement. 

(^ In this example, the first statement 
read is PN1. When routine IDLHK 
examines the definition of PN1, it 
determines from the attributes that 
this statement is a GO TO statement 
referred to by an ALTER statement 

(3) (The ALTER statement follows PN3) 

^4^ Then the 60 verb analyzer processes 
the statement. It obtains a VN 
number, which it stores with PN1 in 
the VNTBL table, and it puts out two 
strings. 

(e) The GO VNl string means that, when 
this branch is executed, the address 
to be branched to is obtained from a 
uniquely identified VN cell in the 
TGT. 

(2) EQUATE VNl PN3 means that, at 

execution time, the initial content 



of this VN-I cell is the address of 
PN3. Until the value is changed by 
an ALTER statement, the cell is 
unchanged, and any execution of PN1 
branches to PN3. The equated address 
is also placed in a VN cell in the 
PGT. 

(In a segmented program, the VN is given 
the same priority as the PN to which it is 
equated.) 

^) When the ALTER PN1 statement is read, 
the VNTBL table is searched for PN1. 
Since an entry is found, the 
corresponding VN number (VNl) is used 
as the receiving field of the MOVE. 

^) At execution time, this MOVE takes 
the address of PN2, stored in a PN 
cell in the PGT, and places it in the 
VN cell for VNl. 

The execution -time operation of this 
ALTER/GO TO pair is illustrated in Figure 
35, The flow of control resulting from 
this ALTER is shown in Figure 36, 

Figure 34 illustrates a second ALTER/GO 
TO pair. 

CZ/ In this case, the ALTER statement 
(ALTER PN4) is read first. 

^^ A search of the VNTBL table reveals 
that no entry for PN4 has been made, 
so the ALTER analyzer obtains a VN 
number and enters that VN number with 
PN4 in the table. 
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1 - ■ -"1 

1 COBOL Source 


Simplified Assembler code 






1 


1 PN1. GO TO PN3. 


L 
BR 

L 
ST 


REG,VN 
REG 

m 
m 

• 

0,PN2 
0,VN 

• 
• 


PN (cells of PGT) 


-1 
1 

1 






a(PNl) 




1 • 


a(PN2) 






H 

1 

-J 




1 ALTER PN1 TO PRO- 
1 CEED TO PN2. 

1 • 
1 • 
1 • 


a(PN3) 




VN (cells of TGT) 






a(PN3) 


1 

J 






A 

1 

L. 




1 1 



Figure 35. Execution of an ALTER Statement 



I Beginning | 
I of I 
I program | 
I , I 




Specijal Processing for Optimization : 
When OPT has been specified, most PN cells 
are eliminated from the Program Global 
Table (PGT) . Phases 62, 63, and 6U develop 
a different method for addressing these 
PNs, using Procedure Block base locators 
for this purpose. Some 6N and PN cells 
remain unchanged by the optimizer phases. 
Phase HO generates P2-text Optimization 
Information elements (changed to 
Optimization A-text elements by phase 50) 
to identify what type of element follows. 



PERFORM Statement 



The processing of a PERFORM statement 
resembles that of an ALTER statement.. 



The return from a performed procedure is 
a GO string with a VN as its object. This 
GO string is placed at the end of the 
performed procedure; that is, just before 
its delimiter. 



Figure 36. Flow of Control for Statements 
in Figure 35 

Note: Assuming that no other ALTER or GO 
TO statements occur in this program, the 
flow of control follows the single-line 
path the first time through and the 
double-line path every time after. 



Phase 40 uses the VNTBL and PFMTBL 
tables to keep track of the VNs. Figure 37 
gives an example of the use of these 
tables. 
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1 — — — —————————————— 

1 Procedure Statement 


1 YNTBL Table 


1 '■ 1 

PPMTBL Table 


1 
1 Output 1 

• 


1 SN1 SECTION. ... 






SN1. 


• • • 1 


I© S»2 SECTION. ... 


1 Q) SN2 VN1 


(3)SNa VN1 


SN2. 


• • • 1 


I PN3. ... 






PNi. 


GO VNI 1 
lEOUATE VN1 SN^ | 


1® SVH SECTION. ... 






0SN4. 


.... 1 


I® PN5. PERFORM SN1 THRO 
1 SN2. 






®PN5. 
6N1. 


MOVE VNI PPMSAV1I 

HOVE 6N1 VN1 1 
GO SN1 1 

MOVE PPMSAV1 VN1| 


t PN6. ADD... 






PN6. 


ADD... t 



Figure 37. Effect of a PBHPORH statement 



^^ The dictionary attributes of 

section-name SN2 indicate that it is 
the object of the THRU option of a 
PERFORM statement. 

Q) Routine IDLHN obtains a VN number 
from cell VNCTR in COMMON and enters 
VN1 and SN2 in table VNTBL. 

(?) In table PFMTBL, it enters VN1 and 
the delimiter of SN2, which is SN4. 

\^ When section name SN4 is encountered, 
routine IDLHN knows it is the 
delimiter of the performed procedure 
because it is in table PFMTBL. 
Therefore, before the procedure-name 
definition element for SN4 is issued, 
routine IDLHN sets up the return from 
the performed procedure. 

(^ It obtains the VN number from the 
PFMTBL entry and issues a GO string 
to go to VN1. 

\6) It Issues an EQUATE string to equate 
VN1 to SNa. 

(t) It then issues the procedure-name 
definition for SNU. 

@ When the PERFORM Statement identified 
by PN5 is encountered, verb analyzer 



© 



routine PERFORM sets up the return 
from the performed procedure before 
it issues a 60 string to go to it. 



It obtains a PFMSAV number from cell 
PSVCTR in COMMON and issues a MOVE 
string to save VN1 by moving it to 
PFMSAV1. (There are PFMSAV cells in 
the T6T to hold these values at 
execution time.) Then it obtains a 
generated procedure-name (6N) number 
from cell 6NCTR in COMMON and issues 
a MOVE string to alter VN1 with 6N1. 
This 6N is issued as a GN definition 
for a MOVE statement to restore VN1 
after the performed procedure is 
executed. 



At execution time, the performed 
procedure is executed first in-line; that 
is, the return from it is the next 
sequential statement SN4. Then, when PN5 
is encountered, the performed procedure is 
executed again. This time the return from 
it is GNl (where the normal return of SNU 
is restored) . Then the next statement 
(that is, PN6) is executed. 

Figure 38 gives an example of how a 
PERFORM statement operates at execution 
time. Figure 39 illustrates the flow of 
control for the program shown in Figure 36, 
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Source statement (COBOL) : 
PERFORM SEC2 THRO SEC3. 



SEC1 SECTION. 



SEC2 SECTION. 



SEC3 SECTION. 



SEC4 SECTION. 
60 TO SEC1. 



Resulting code (Simplified Assembler Language) : 



6N 



SEC1 



SEC2 



SEC3 



SEC4 



L 


0,VN 


ST 


0,PPMSAV 


L 


0,6N 


ST 


0,VN 


L 


REG,PN+4 


B 


REG 


L 


0,PPMSAV 


ST 


0,VN 



Save initial value of VN=A(SEC«) 
Set up value of VN=A(GN1) 



Branch to SEC2 



Re-initialize cells in T6T 



L RE6,?N 

B REG 

L RE6,PN 

B REG 



LOAD A (SEC4) 

Branch 

LOAD A(SEC1) 

Branch 



Resulting code if OPT is specified (Simplified Assembler Language) : 



GN1 

SEC1 
SEC2 
SEC3 

SEC4 



L 

ST 

LA 

ST 

B 

L 
ST 



OrVN 

0,PPMSAV 

0,DISP(11) 

0,VN 

DISP(11) 

CPFMSAV 
0,VN 



Save initial value of VN=A(SEC«») 
Set up value of VN=A(GN1) 
Branch to SEC2 
Re-initialize cells in TGT 



Reg,VN 

Reg 

DISP(11) 



Load A (SECA) 

Branch 

SEC1 



Note; 



j^ PN and GN are cells in the Program Global Table (PGT) ; VN and PFHSAV are cells 
in the Task Global Table (TGT) . The TGT and PGT are discussed in "Appendix B. Object 
Module." 

Figure 38. Execution of a PERFORM Statement 



86 Section 2. Method of Operation 



Licensed Material - Property of IBH 





->| SEC2 
-> I SEC3 

L. 



A A. 



TT 



V V 



|re- 

I initialize | < 




no 



V V 



SECU 



Figure 39. Flow of Control for Statements 
in Figure 38 



Wote r Assuming that no other procedure 
branching statements occur in this program » 
the flow of control follows the single-line 
path the first time through and the 
double-line path every time after the 
first. 



COMPPTE Statement 



Verb analyzer routine COMPDT, in 
conjunction with its major subroutine 
FOBHLAy breaks down the arithmetic 
expression of a COMPUTE statement into a 
series of simple arithmetic strings. It 
uses two tables, PMOUNT and PSIGNT, in the 
processing. PNOUNT contains the nouns 
(that is, operands) of the arithmetic 
expression. PSI6NT contains the signs 



(that is, operators and parentheses) of the 
expression . 



These two tables are needed because the 
hierarchy of arithmetic operators may 
necessitate a rearrangement of the 
expression. The operators, in order of 
first -performed to last-performed 
operations, are: 

unary + and - 

* and / 
•»■ and - 

For example, the statement COMPUTE 
X=A-B*C reguires arithmetic strings in the 
order: 

MULT C B IR1 
SUB IR1 A IR2 
STORE IR2 X 

where IR1 and IR2 are intermediate results. 

Figure 40 gives an example of the use of 
tables PMOUNT and PSI6NT in evaluating the 
following statement: 

COMPUTE X=A+(C-D/E)*F-6. 

It shows which elements are added to or 
deleted from these tables as a result of 
reading a new input element, and which 
strings are placed in table STRING as a 
result of encountering this element. Each 
row in the figure shows table contents 
after processing the input element to the 
left 

Phase 40 builds a single arithmetic 
string when the signs in table PSIGNT 
indicate that the arithmetic hierarchy of 
operators reguires a string. To build a 
string, the last operator in table PSIGNT 
is made into a verb, the last two nouns in 
table PNOUNT are used as operands, and an 
intermediate result is appended as the 
temporary result. (The intermediate result 
is placed in table PNOUNT as an operand.) 
The following paragraphs give the rules for 
building a string. The numbers of the 
explanatory items correspond to the circled 
numbers in Figure UO. 

1. If a right parenthesis is encountered, 
all strings up to the left parenthesis 
are built . 

2. If an operator is encountered that (in 
the hierarchy of arithmetic operators) 
is lower than or egual to the last 
sign in PSIGNT, a string is built, 

3. If there are no more input elements, 
all remaining strings are built.. 
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1 1 r— — ■ 1 — — 1 

1 (Table 1 Table | i 
1 Input IPNODNT IPSI6NT | Strings Stored | 
1 Element 1 Contents) Contents! in Table STRING! 


1 A 1 A 1 ! 1 


1 -^ 1 A 1 ••- 1 ! 


1 ( 1 A 1 + 1 ! 
111(1 t 


1 C 1 A 1 + 1 1 

1 1 c 1 ( ! 1 


1 - 1 A 1 + 1 1 
1 1 C 1 ( 1 1 


! D 1 A 1 -t^ ! 1 
1 1 c 1 ( ! 1 
1 1 D 1 - ! 1 


1 / 1 A 1 + ! 1 
1 1 c 1 ( 1 1 

I 1 D t - 1 1 

II 1 / 1 1 


1 E 1 A 1 -t- 1 1 
1 1 C 1 ( 1 ! 

1 1 D 1 - 1 1 
1 1 E 1 / 1 1 


1 ) ^^ 1 A 1 + |DIV E D IR1 1 
1 ©I C 1 ( 1 1 
1 1 IR1 1 - ! 1 


1 ! A 1 ••- !SUB IR1 C IR2 1 
1 1 IR2 1 1 1 


1 « 1 A 1 + 1 ! 
1 1 IR2 1 ♦ ! ! 


1 F 1 A 1 -t- 1 1 
1 1 IR2 1*1 1 
1 1 F 1 1 ! 


1 -^^>. 1 A 1 + !MDLT P IP2 IR3 | 
1 V£; 1 IR3 1 I 1 


1 1 IR4 1 - lADD IR3 A IR4 I 


I G 1 IR4 1 - 1 1 
1 1 G 1 1 1 


1 .^^ ! 1 !SUB G IRU IRS ! 
1 Cj) 1 1 I STORE IRS X 1 


INote: The circled numbers in the figure | 


1 refer to explanations in the text.| 



Figure 40. Evaluation of a COMPOTE 
statement 



Figure 41 gives the final output from 
the statement. 



1 EVAI 


DM«IX 


— — — — ■ ' ■ 1 

DCUEREWT X... | 


1 DIV 


E r, IR1 (- 


•c) 1 


! SDB 


I!E!1 C 


IR2 


(*F) 1 


1 HOLl 


' F IR2 IR2 


( (+A) 1 


1 ADD 


IR3 A 


IR4 


(-G) 1 


1 SDB 


6 IR4 


IRS 


(ST X) ! 


! STORE IRS 

L 


X 


1 



Figure 41. Strings Resulting from a 
COMPOTE Statement 

As an aid to phase SO, an EVAL string is 
issued preceding the arithmetic strings. 
The EVAL string contains information such 
as the saxinum number of decimal places in 
an operand, the number of decimal places in 
the result, and the presence of ROONDED 
and/or ON SIZE ERROR clauses. Appended to 
any string containing an intermediate 
result is an indication of the use of that 
intermediate result. For example, IR1 is 
used in a subtraction with C. 



MULTIPLE RESULTS IN ARITHMETIC STATEMENTS 

For COMPUTE with multiple operands 
before the equal (=) , and for ADD, 
SUBTRACT, MULTIPLY, and DIVIDE with 
multiple GIVING operands, SETTBL is used 
to save the result operands. After 
determining whether SIZE ERROR is present, 
and analyzing the arithmetic expression for 
COMPUTE, SETTBL is used as the input stream 
to produce the store into each result. The 
routine STORAN is called once for each 
result. 



IF Statement 

The IF verb analyzer, assisted by its 
major subroutine PFINDL, evaluates IP 
statements. It issues strings consisting 
of a relational verb, two operands to be 
compared, and a third operand. This last 
operand is a generated procedure-name (GN) 
to which a branch is to be made if the next 
statement, or the next test in a compound 
IF statement, is to be bypassed. The 
following list shows the verb string issued 
from a simple IF statement. 

statements Strings 

IP A=B DISPLAY C. IP-NOTEQ A B 6N1 



ADD. .. 



DISPLAY C 
6N1. ADD... 



Note that the condition is reversed in the 
string to minimize the number of branches 
reguired . 

The tables PNOONT and PSI6NT are used in 
evaluating arithmetic expressions in IF 



88 Section 2. Method of Operation 



Licensed Material - Property of IBM 




1 1 •• 1 1 

1 Procedure | Status of | | 
i Statement JPSHTBL Table | Output String | 


1 IF A=B 1 GN1 1 IF-NOTEO A B 6N1 | 


1 IP C-D 1 GN1 1 IP NOTEQ C D 6N2 I 
1 1 6N2 1 1 


1 IF EsP 1 GN1 1 IF-HOTEQ E F GH3 | 
i 1 GN2 1 1 
1 1 GV3 1 1 


1 STOP 'O* 1 GN1 1 STOP 'O* | 
1 1 G1I2 1 60 GMa 1 
1 i 6N3 1 1 


1 ELSE STOP •3» 1 GH1 | GH3 . STOP •3« | 
1 1 6N2 1 60 GVH. 1 


1 ELSE STOP •2» 1 GH1 | GN2. STOP •2» | 
1 1 1 60 GNU 1 


1 ELSE STOP M» 1 1 GUI. STOP M* | 


1 ADD ... 1 1 GVa. ADD ... | 

1 L 1 1 



Figure 42. Evaluation of a Nested IF Statement 



statements. The strings produced are the 
same as for COMPOTE statements except that 
the last string is a relational string (for 
example, IF-EQ or IF-N0T6T) instead of a 
STORE string* 

In addition, tables PSHTBL and PTRPLS 
are used in evaluating IF statements. 
Table PSHTBL collects branches to ELSE 
statements in nested IP statements. Table 
PTRPLS collects branches within compound IF 
statements. 

Nested IP Statement ; Figure 42 shows how 
table PSHTBL is used in evaluating the 
following statements: 

IP AsB THEN IP C=D THEN IP E=P STOP 'O* 

ELSE STOP *3* ELSE STOP •2» ELSE STOP M*. 
ADD.... 

IF and ELSE statements are paired from the 
inside outward. Table PSHTBL saves the 
procedure-names generated for branching to 
the ELSE statements. When an ELSE is 
encountered, the last generated name in the 
table is issued as its procedure-name 
definition. 



SEARCH ALL Statement 



The SEARCH ALL statement is executed by 
an object-time subroutine. (For a 
description of the subroutine see the 
publication IBM D0S/V5 COBOL Subroutjine 



Library Program Logic . Therefore, phase 40 
does not generate statements to perform the 
search. Instead, it produces a parameter 
list for the object-time subroutine (the 
actual call to the subroutine is generated 
by phase 50) , and it creates verb strings ' 
for the imperative statements following AT 
END and WHEN clauses. 



Figure 43 gives an example of phase 40 
output for SEARCH ALL. The example shows 
the P-2 text that would be produced for the 
following statement: 

SEARCH ALL TABLE-K AT END GO TO NOT-POOND 
WHEN KEY-1 (INDEX-K) = 5 AND KEY-2 
(INDEX-K) = 10 AND 
KEY-3 (INDEX-K) = DATANAME-K3 
MOVE TABLE-K (INDEX-K) TO ENTRY -POUND. 

(1) The SEARCHALL verb analyzer first 
receives TABLE-K and the maximum 
number of occurrences as Pi-text 
input and saves them. 

(2) Then it receives a count of the 
number of keys, followed by the keys 
themselves. The dictionary pointer 
for each key is entered into table 
KEYTBL with a flag byte of 00. 

If any of the keys are found to be 
floating-point, a C-level E-text element is 
generated, and the statement is processed 
as if it were a format 1 of the SEARCH 
statement. At the same time, WHEN 
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conditions are processed by the IF analyzer 
and no special WHEN statements are 
generated. 



After the table has been built , the 
SEASCHALL analyzer transfers control to the 
SEARCH analyzer to scan the WHEN and AT END 
clauses. 



To generate verb strings for the 
imperative statements following AT END and 
WHEN clauses, the SEARCH verb analyzer 
calls other verb analyzers. However, the 
IF analyzer is not called to generate 
conditional statements. Instead, SEARCH 
returns control to SEARCHALL to do special 
WHEN processing. If the AT END and NHEN 
imperative statements do not provide exits 
from the search, phase 40 generates a 60 TO 
NEXT SENTENCE statement. 



^) In the example, this is accomplished 
via the GO 6N4 statement. 



Figure HH is a generalized diagram 
showing the flow of execution into and out 
of the SEARCH ALL subroutine. 



Phase 40 checks WHEN conditions for 
conformity to language rules by using the 
KEYTBL table. 



When the first part of the WHEN 
condition is processed, the dictionary 
pointer for the key named in the condition 
is compared to that of the first key in the 
KEYTBL table. If it matches, the flag byte 
is set to 01 and the condition is valid. 
The second part of the condition should 
name a key matching the second entry in the 
KETTBL table, and its flag byte will be 
set. 



If keys in the WHEN clause are specified 
in any order other than the order of 
KETTBL, E-text for a conditional error 
message is issued, and the SEARCH routine 
is given control to produce a SEARCH 
format-1 statement instead of SEARCH ALL. 



If, in any part of the WHEN condition, 
none of the operands named is a key, or if 
any other error condition is detected, 
E-text is issued, and no P2-text is 
produced . 



60 6N1. 

60 PN50. (PN50 is the PN number 
of NOT-POOND) 

WHEN (3)* 

TABLE-K 

num-occur** 

6N2 

EVAL DMAX DCURRENT 

KEY-1. 

EOOATE 5 KET-1. 



6N2. 
6N3. 

® 



® 



EVAL DNAX DCURRENT 
KEY-2. 

EQUATE 10 KEY-2. 

EVAL DMAX DCURRENT 
KEY-3. 

EQUATE DATANAME-K3 
KEY-3. 



Information 
used for pa- 
rameter list 



ENDWBEN. 

SUBSCRIPT 
SSID1. 



(3) TABLE-K INDEX-K 



® 

6N1 



MOVE (2) SSID1 ENTRY-FOUND, 
60 6N4. 
60 eN3. 



6N4.I Next sentence. 



*If KEY-1 required two levels of 
subscripts or indexes, the first 
subscript would be put out as the 
fourth operand of the WREN verb. If 
three levels were required, the first 
two subscripts would be operands 4 and 
5 of WREN. All keys must be 
subscripted or indexed when used in 
WHEN conditions, but phase 40 does not 
produce SUBSCRIPT strings or SSlDs for 
them. 
**num-occur: If TABLE-K has a fixed 
number of entries, num-occur is a 
literal specifying the number (the 
value following the OCCURS clause in 
the data description for TABLE-K) . If 
the table has a variable number of 
entries, num-occur is the name of the 
data item which follows the OCCURS 
clause with the DEPENDIN6 ON option. 

Figure 43. Output for a SEARCH ALL 
Statement 
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SYNTAX ANALYSIS AND VERB CHECKING 



conditional statement that has no 
conclusion. 



Phase 40, in subroutine ERROR, issues 
E-text when an error is detected. 

Primarily, phase UO checks to see 
whether required COBOL words are present 
and in the correct order and whether 
operands are compatible with each other 
and in permissible format for the 
statement in which they are used. 

In addition, it performs a limited 
check of the relationship between 
statements. For example, it detects a 



It also checks miscellaneous special 
requirements, such as: subscripts must be 
integers, parentheses in logical and 
arithmetic expressions must be paired, and 
a maximum of twelve sort keys must not be 
exceeded. 

If CSYNTAX is specified and an error is 
detected, the SYNTAX option bit in COMMON 
is forced on and conflicting options are 
forced off. If SYNTAX or CSYNTAX is 
specified, all error text is written to 
SYS004. 



GN3 

r 1 

I call 1 

I subroutine I 
L ^ J 




GN2 

r 1 Exit from SEARCH 

I Imperative! via GO statement or 

-> I statement |- > 

I following | NEXT SENTENCE 
I WHEN I 



Return at a specified 
number of bytes after 



r 1 Exit from SEARCH 

I Imperative) via GO statement or 
> I statement j- — -; > 

GN3 (first executable j following j NEXT SENTENCE 

instruction immediately j AT END (if j 

follows parameter list) | specified)} 

L J 



(Solid box indicates that control flows within the SEARCH ALL object-time subroutine; 
blocks not within the box are executed in-line.) 

Figure 4 4. Flow of Execution for a SEARCH ALL Statement 
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METHOD OF DEFINING VERB BLOCKS 



The major routines used in defining verb 
blocks and the functions they perform are 
explained below. 



also turned on upon exit from processing 
the INPUT or OUTPUT procedure phrase. 



EOF Routine 



Phase 40 Initialization Routine 



This routine turns off the ENTRYSW, 
FNDPARNM, NNODEOS, NNODSW, NTIMSW, 
TIMFLOSW, UPPROC, and VBSKIP switches. 



If COUNT is on, this routine indicates 
the end of the COUNT Table in Data A-Text 
and rounds the size of the COUNT Table to 
the next even number. 



ID5 Routine 



Before branching to the verb analyzer 
routines, this routine calls TIMCNT. 



GETNXT (GET13 and GET14) Routine 



This routine saves Listing A-Text in 
order to maintain the last procedure-name 
for GENPAR. 



ISTRUV Routine 



This routine turns on NNODSW and 
NNODEOS. 



IDBRK Routine 



EXITS (EXIT PROGRAM) Routine 



Prior to generating this verb, this 
routine calls GENTIM, passing zero as the 
parameter to be generated. Afterwards, 
NTIMSW is turned on. 



If not a report writer declarative, this 
routine turns on NNODSW, ENTRYSW, UPPROC, 
NTIMSW, and turns off NNODEOS and VBSKIP. 
If it is a report writer start, IDBRK turns 
on VBSKIP; if it is a report writer end, it 
turns off VBSKIP. 



IDLH03 Routine 



GENNOD Routine 



If COUNT is off, or if VBSKIP is on, 
GENNOD returns. Otherwise, if NNODSW is 
on, NODECTR is updated. In any case. Data 
A-Text is generated. In addition, if 
NNODSW is on, a COUNT verb with a counter 
is generated, and NNODSW is turned off. 



Just before FLOW is tested, this routine 
turns on NNODSW, UPPROC, ENTRYSW, FNDPARNM, 
and turns off NNODEOS. Then, if FLOW is 
on, it turns on TIMFLOSW. Then GENTIM is 
called. In addition, if there is a DEBUG 
packet, at the end of IDLHIO, GENTIM is 
called again. Note: the test and code 
generation for USE FOR DEBUGGING 
paragraph-name precede the tests for FLOW. 



GENPAR Routine 



First GENPAR turns off UPPROC. Then, if 
COUNT is off GENPAR returns. In any case. 
Data A-Text for the paragraph, 
section-name, or missing paragraph-name is 
generated (using FNDPARNM) , and FNDPARNM is 
turned off. 



SORT, MERGE Routines 



Upon final exit from these routines, 
NNODSW is turned on if INPUT or OUTPUT 
procedures were specified. If INPUT or 
OUTPUT procedures are specified, NTIMSW is 



92 Section 2. Method of Operation 



Licensed Material - Property of IBM 



GENTIM Routine 



First GENTIM turns off NTIMSW. If 
UPPROC is on, it calls GENPAR. In any 
case, if ENTRYSW is off, GENTIM generates a 
TIMERA verb (with a zero or PROCCTR as the 
count, depending on input parameters) and 
then returns. GENTIM turns off ENTRYSW, 
and if TIMFLOSW is off,, generates a TIMERB 
verb (with PROCCTR as the count) and 
returns. Otherwise it turns off TIMFLOSW 



and generates a TIMERC verb with PROCCTR as 
the first constant and with ISN or 
Card-nuitiber as the second constant. 



WRSYS4 Routine 



This routine puts the Data A-Text on 
SYS004. 
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PHASE 45 



The function of phase 45 (ILACBL45) is 
to produce P2-text on SYSOOl for the 
UNSTRING verb. The phase is given control 
only if phase 40 encounters a valid 
UNSTRING verb string, in which case 
phase 40 sets the PH45BIT switch in SWITCHl 
in COMMON. Phase 45 is called by phase 00 
following phase 40 processing if phase 00 
finds the PH45BIT switch on. 

Phase 45 operations consist of reading 
and analyzing the ATM- text for the UNSTRING 
verb, which phase 40 has written on SYS002, 
and transforming it into P2-text. The 
ATM-text consists of a series of subscript 
strings followed by an UNSTRING verb 
string; one or more of these series may be 
present. 



INITIALIZATION AND ATM-TEXT ANALYSIS 



Phase 45 first primes the four tables, 
SSCIN, SSDELIM, SSCOUT, and TXTOUT, which 
are used during ATM-text analysis. These 
tables are used by phase 45 only. 

After priming the tables, phase 45 
begins to process the ATM-text from SYS002. 
The PH45CTL control routine examines the 
input verb string and gets the count of the 
operands in the string. It moves the 
operands into work areas labeled DOPl 
through D0P5 (hereafter, a reference to a 
DOP is a reference to one of these work 
areas) . The PH45CTL routine then checks 
whether the string is a subscript string. 
If it is, the string is saved in the SSCIN 
table and another input verb string is 
read. If it is an UNSTRING verb string, 
PH45CTL branches to the UNSTRING routine to 
process it. 

The UNSTRING routine scans the operands 
and sets the appropriate flags to indicate 
operand type. It also checks whether the 
sending field is subscripted. If it is, 
UNSTRING calls the FINDSSC routine to find 



the corresponding subscript string and 
enter it in the SSCOUT table. The FINDSSC 
routine also enters the data item text 
element in the TXTOUT table. If the 
sending field is not subscripted, the 
UNSTRING routine enters the data item text 
element in the TXTOUT table only. The 
UNSTRING routine branches to the proper 
field analyzer to process delimiter fields, 
receiving fields, delimiter-in fields, 
count-in fields, pointer fields, and 
tallying fields. The individual field 
analyzers set flags and make entries in the 
appropriate tables. When all the DOPs have 
been processed, control is returned to the 
PH45CTL routine to refill the DOPs. 



CREATING P2-TEXT FOR PHASES 50 AND 51 



As ATM- text is analyzed and rearranged, 
P2-text is created for phases 50 and 51. 
The P2-text is generated so that the 
subscript for a subscripted field is 
calculated immediately before the field is 
referred to. Also, any Q-routines that 
must be called following the change of the 
object of an OCCURS ... DEPENDING ON clause, 
are called immediately instead of after the 
entire verb string has been analyzed. 
P2-text elements, called Data-name 
information for UNSTRING (2A) , are also 
created to pass information about UNSTRING 
data items, such as address and size, which 
used by phase 51 when it generates 
Procedure A- text. 

The P2-text is formatted in the SSCOUT 
and TXTOUT tables. The SORTXT routine 
sorts the corresponding sections of these 
tables, putting the text in the correct 
order. Finally, P2-text is written on 
SYSOOl. 

The first and last thing phase 45 writes 
on SYSOOl is P2-text to generate a STOP RUN 
instruction both before and after the 
UNSTRING code. 
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PHASE 50 



Phase 50 (ILACBL50) reads elements of 
P2-text written by phase 40 and, depending 
upon the type of each element, either 
processes it or passes it to phase 51 for 
processing. Output from phase 50 includes 
P2-text passed unchanged. Intermediate 
A-text, and Intermediate E-text, all 
written on SYS002 for phase 51, and 
Optimization A-text written on SYS003 for 
phase 60 or 62. Intermediate E-text 
consists of E-text passed from phase 40 or 
generated by phase 50, to which is added a 
prefix to make it readily recognizable. 
Intermediate A-text consists of Procedure 
A-text or Optimization A-text, which is 
generated by phase 50 and to which has been 
added a prefix. 

Procedure A-text is generated by 
analyzing P2-text verb strings and 
generating elements that correspond to 
assembler language instructions. That is, 
the elements combine to form name, 
operation, and operand fields. 
Optimization A-text is generated for use by 
phase 60 or 62 in eliminating duplicate 
references. 

Input to phase 50 (a combination of 
P2-text and E-text) is read from file 
SYSOOl. Output is written on file SYS002, 
except for literal definitions written as 
Optimization A-text. These are written on 
file SYS003. (See the section "Literals 
and Virtuals" later in this chapter.) 

Routine PH5CTL calls routine GETNXT, 
which obtains P2-text elements, determines 
what type they are, and calls the routines 
required to process them. The elements may 
be of the following types: 

• Program breaks 

• Verb strings 

• E-text 

• Segmentation control breaks 

• PN, GN, and VN definitions 

Of these, only program breaks and 
certain verb strings are processed by phase 
50. The others are passed to phase 51 for 
processing. Elements of E-text are 
prefixed with headers for identification by 
phase 51, and copied as output. 
Segmentation control breaks and PN, GN, and 
VN definitions are written with an 
Optimization A-text prefix. Before a PN, 
GN, or VN definition is copied, all entries 



in the XSCRPT table, used in calculating 
subscript values, are deleted. The section 
"Using and Optimizing Subscript References" 
explains why this is necessary. 



PROGRAM BREAKS 



Routine GETNXT uses program breaks to 
determine where to issue a START macro-type 
instruction. This indicates where in the 
object-time coding the first executable 
instruction is generated. The Procedure 
Division, Start Declaratives, and End 
Declaratives breaks are used for this. 

If no Start Declaratives break is 
encountered, routine GETNXT issues the 
Procedure A-text for START immediately 
after finding the Procedure Division break. 
If a start Declaratives break is 
encountered, the START Procedure A-text is 
issued after the End Declaratives break has 
been found. 

Because the coding for a START macro is 
always the same, this A-text is generated 
from Constant A-text, which is described 
later in this chapter. 



VERB STRINGS 



The P2-text for a verb string consists 
of a verb followed by from one to five 
operands. Any operands beyond the fifth 
have been placed into one or more 
continuation strings by phase 40; the first 
operand of the first string is the COBOL 
word FIRST, and the last element of the 
last string is the COBOL word LAST. 

Once routine PH5CTL has established that 
an element of P2-text is a verb string, it 
moves the operands into work areas labeled 
DOPl through D0P5 (hereafter, a reference 
to a DOP is a reference to one of these 
work areas). The verb code for the verb 
currently being processed is moved into a 
cell called GANLNO, where it is kept until 
overlaid by the next verb code. 

The PH5CTL routine then calls routine 
XIS31, which determines whether any of the 
operands are subscripted or indexed 
data-names. If one is, the pointer to the 
desired occurrence has already been 
computed in phase 50 (subscripts and 
indexes are resolved by processing 
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SUBSCRIPT verb strings, which always 
precede the verb string in which they are 
referenced; see the section "Resolving 
Subscripted and Indexed References" later 
in this chapter) . Routine XIS31 changes 
the idk field in the DOP from a subscripted 
or indexed reference to a data-nane 
reference (idk represents addressing 
paraneters; they are described fully in 
"Section 5. Data Areas" under the 
addressing parameters field of the LD 
dictionary entry) . 

Opon return, routine PH5CTL checks to 
see whether the verb string is one that is 
to be processed by phase 50. Verb strings 
processed by phase 50 include: 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

DEBUG 

INSPECT 

EXPONENTIATION 

Numeric IF 

Numeric HOVE 

SEARCH 

EVAL 

STORE 

SUBSCRIPT 

EQUATE, When in SEARCH ALL 

END OP, When in SEARCH ALL 

The last five are verb strings created 
by phase 40. If the verb is one of those 
listed, an appropriate verb processor is 
called. Otherwise, routine PH5BVB is 
called, which performs some checking of 
phase 51 verb strings before passing them 
as P2-text to phase 51. (See "Handling 
Phase 51 Verb Strings" in this chapter.) 

Note : The PH5CTL routine distinguishes 
between numeric and nonnumeric IF and MOVE 
verb strings as follows: the numeric IF 
verb has a different verb code from the 
nonnumeric IF. For all hove strings, 
control is given to the numeric HOVE 
Analyzer; if this routine finds nonnumeric 
operands, it returns control to routine 
PH5CTL with an indication that such is the 
case. 



VERB PROCESSING 

From the verb code, routine PH5CTL 
determines which verb analyzer to call. If 
the SYMDHP or STATE option is in effect, 
phase 50 generates a call to the 
object-time COBOL library debugging 
subroutine ILBDDB64 before the code to call 
any other object-time subroutine. For 
details on the object-time subroutines, see 
IBM DOS/VS COBOL Subroutine Library Program 
Logic . In general, there is a specific 
routine to analyze each COBOL verb, but 



there are a few cases of overlap. For 
example, all arithmetic verbs use parts of 
a processor known as the arithmetic 
translator. 

The illustrations in this chapter show 
P2-text strings as a verb followed by 
data-names, and Procedure A-text elements 
as assembler language instructions. These 
are simplifications for the reader; the 
texts actually contain codes rather than 
verbs, and the P2-text for data-names 
contains the dictionary attributes of the 
item, rather than its name. The actual 
text formats, including the codes, are 
shown in "Section 5. Data Areas.". 

Note ; When phases 50 and 51 use registers 
14 and 15 in their generated instructions. 
Procedure A-text DESTROY and RESERVE 
elements are passed to phase 60 or to 
phases 62, 63, and 64. The purpose of the 
DESTROY element is to indicate that the 
contents of the registers are not to be 
relied upon any longer. The purpose of the 
RESERVE element is to indicate that the 
register may not be used by phase 60 or by 
phases 62, 63, and 64 in the generated code 
until a FREE element for that register, 
issued by phase 50 or 51, is read. 



RESOLVING SUBSCRIPTED AND INDEXED 
REFERENCES 



This section describes the processing of 
the SUBSCRIPT verb string. It shows how 
subscripted addresses are calculated and 
how the XSSNT and XSCRPT tables are used to 
eliminate duplicate calculation . Then the 
handling of indexes (which are very similar 
to subscripts and use the same tables) is 
discussed. 



Calculating Su)ascr;ipted Addresses 



To refer to a subscripted item, the 
object program must know the displacement 
in bytes of the desired occurrence from the 
beginning of the subscripted field. To 
calculate this displacement, the following 
must be known: 

• The number of bytes in the entire 
subscripted field. 

• The relative position in the field of 
the desired occurrence. 

The size of the field is known from the 
Data Division description of the field, 
including the PICTURE clause of the 
elementary item. The relative position is 
known from the value of the subscripts. 
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The examples which follow show three 
levels of subscripting. The same concepts 
(and the same formula) apply to one or two 
levels of subscripting. 



The formula used to calculate a 
subscripted address is: 



(subscript 1*lengthl) + (subscript2*length2) 
+ (subscript3*length3) 
- (Iength1+length2+length3) 



This formula is used whether the 
calculation is done in phase 50 or in the 
object program. 



The following discussions use examples 
based on this entry in the Data Division: 

02 PIELD OCCURS 10 TIMES. 

03 SUBPIBLD OCCORS 10 TIMES. 

04 ITEM OCCURS 10 TIMES PICTURE XX. 



Literal Subscripts 



When all the subscripts in a reference 
are literals, the subscripted address can 
be calculated at compile time (the 
calculation is done by routine XSCOMP) . If 
a reference is made to ITEM (9, 8, 1) , the 
calculation is: 

(9*200) + (8*20) + (7*2) - (200+20+2) 

The value of the result is the displacement 
in bytes of ITEM (9, 8, 7) from the 
beginning of the subscripted field. 

When the SUBSCRIPT string was first 
encountered, an entry was made for it in 
the XSCRPT table (how and why this table is 
built is described more fully later in this 
section) . One field of the entry, called 
the idk field, contains a code, i, a 
displacement, d, and a base locator (6L) 
number, k. (For a description of BLs, see 
"Appendix B. Object Module") The value of 
d is the displacement away from the BL of 
the beginning of the subscripted field. 
After the formula has been calculated, the 
results are added to d. If this value is 
less than 4096, it becomes the new value of 
d. If it is 4096 or greater, it is 
decremented by 4096; this decremented value 
is then placed in the d field of the XSCRPT 
table entry, and the BL number is 
incremented by one. The table entry now 
points to the desired occurrence at 
execution time. 



Data-name Subscripts 



Hhen the subscripts are data-names, 
their values vary at execution time. 
Therefore, code must be generated to 
perform the calculations in the object 
program. This is done in routine XSCOMP, 
using the A-text generator. 

Suppose that reference is made to ITEM 
(X, Y, Z) . Routine XSCOMP must first 
determine whether each subscript is binary. 
If not, code must be generated to pick the 
value of the subscript from the data area 
of the object program, move it into a work 
area, and convert the value in the work 
area to binary. It is then handled as a 
binary subscript, using the value in the 
work area rather than the data area. 

The generated code performs the 
following actions at execution time: 

1. The value of d in the XSCRPT table 
(the address of the subscripted field) 
is loaded into a register. 

2. The first subscript, in binary, (X in 
the example) is loaded into another 
register. This subscript denotes the 
desired occurrence number for PIELD, 
the highest level in the hierarchy. 
If FIELD is of constant length (that 
is, if it does not contain the 
DEPENDING ON option) , the value of X 
in the register is multiplied by a 
literal representing the length of 
PIELD (200 bytes) . If PIELD does 
contain the DEPENDING ON option, a 
value, instead of the literal, is 
picked up from a VLC (variable-length 
cell) where it was placed by a 
0-routine. This value represents the 
current length of PIELD, 

3. The result of this multiplication is 
added to the value of d in the first 
register, and this process is repeated 
for each subscript. 

4. Phase 50 has generated a literal 
(referred to in this discussion as 
LITX) whose value is: 

length of FIELD + length of 
SUBPIELD + length of ITEM 

5. When the multiplications have been 
finished and the final increment has 
been added to the address in the 
register, this literal is subtracted 
from the register and the result is 
the address of the desired occurrence. 

This computation is an exact duplicate 
at execution time of the formula applied to 
literal subscripts at compile time. 
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Mixed Literal and Data-name Subscripts 



Nhen the subscripts are nixed literals 
and data-namesy for example, ITEM (X, 1r 
Z) , part of the calculation can be done in 
phase 50 to save tiae in the object 
program. XSCOMP multiplies the literal 
subscript by the length of the field it 
refers to. In the example, this is 4*20 
(SU6FIELD is 20 bytes long) . This result 
is subtracted from LITX before A-text for 
LITX is generated. Then, at execution 
time, the multiplications and additions 
will be performed for X and Z and this new 
value of LITX will be subtracted. 



Vote that, in order to arrive at a 
meaningful value, the entire formula must 
be evaluated. The intermediate results are 
meaningless in themselves. 



U^j.pq apd Optimizing Subscript ypf^rences 



Part of the use of the XSCRPT table is 
to avoid duplicate calculations for a 
subscripted reference. For example, 
consider the source statements: 

PABAGRAPH1. MOVE ITEM (X, Y, Z) TO D. 
ADD ITEM (X, Y, Z) TO E. 

It is unnecessary to calculate the address 
of ITEM (X, Y, Z) twice. Later, when the 
ADD statement is executed, the correct 
address will already be in a register. 



The P2-text for these statements would 



be: 



After the SUBSCRIPT string has been 
processed, the MOVE string is encountered. 
Routine XIS31 (also called XSnDB3) searches 
the XSSNT table for SSID1. It uses the 
pointer in the XSSNT table to pick up the 
idk field in the XSCRPT table. This field 
replaces SSID1 in the DOP, and when the 
verb is processed, the operand is treated 
as though it were a data-name. 

The XSSNT entry for SSID1 is now 
deleted, since it will never again be 
referenced. This is because pheuse 40 gave 
a unique number to each subscript 
identifier. 

When the second SUBSCRIPT string is 
encountered, the XSCRPT table is searched 
for a match. The search is made on total 
entry length (if this does not match, the 
entries cannot be identical) . When the 
match is found, an XSSNT entry is made for 
SSID2, with a pointer to the same XSCRPT 
entry as for SSID1. 

If there are not enough registers for 
the subscripted address to remain in a 
register for the second time it is 
referenced, code is generated before the 
register is used to store the address in a 
subscript save cell. An indication of 
this, along with cell number, is placed in 
the XSCRPT entry, so that the second time 
the address is needed, the contents of the 
cell can be loaded into another register. 
The section **Register and Storage 
Allocation" later in this chapter describes 
how values in registers are saved. 

Every time a PN, 6N, or VN definition is 
encountered in the P2-text, the entire 
XSCRPT table must be deleted. The reason 
is shown by the following source program 
statements: 



PNl. SUBSCRIPT (5) ITEM X Y Z SSID1 
MOVE (2) SSID1 D 
SUBSCRIPT (5) ITEM X Y Z SSID2 
ADD (2) SSID2 E 

When the first SUBSCRIPT string is 
encountered, the XSCRPT table is searched 
for a matching entry. None is found, so an 
entry is made after the instructions for 
the subscript calculations have been 
generated. This entry includes the idk 
field described earlier and the dictionary 
pointers for ITEM and all the subscripts. 
(Note that the dictionary pointer is used 
only because it provides a unique 
identifier. The value of the pointer 
itself is meaningless.) There is also a 
field for the total length of the entry. 

An entry is also made in the XSSNT 
table. This entry includes the subscript 
number (SSID1) and a pointer to the XSCRPT 
entry. 



PARA6RAPE2. 



ON 2 AND EVERY 2 60 TO 

PARAGRAPR2. 

MOVE ITEM (X, Y, Z) TO D. 

ADD ITEM (X, Y, Z) TO E. 



In this example, if PARA6RAPH2 is 
entered through the branch in the ON 
statement, the subscript calculations 
generated for the MOVE will not have been 
executed, and the register will contain 
whatever value was left from the last time 
it was used. Therefore, the calculation 
must be performed in PARA6RAPR2. Deleting 
all the entries in the XSCRPT table 
whenever a paragraph>name is encountered 
assures that the code will be generated. 

The XSCRPT table must also be deleted 
when any verb is encountered which can pass 
control to any point other than the next 
sequential instruction. An example of such 
a verb is a SORT verb or a VSAM verb. 
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INDEXED REFERENCES 



Indexed references are resolved by the 
same routines, applying the sane logic, as 
subscripted references. The difference in 
their handling occurs because index-nane 
values are never known at compile time, and 
because, at execution time, the index-name 
cells (each index-name is a one-word cell 
in the TGT) contain values expressing a 
displacement in bytes from the beginning of 
the indexed field. The value in the cell 
corresponds to the following formula: 

(occurrence number - 1) * length of 
elementary item 

It is the responsibility of the source 
programmer to set the value in the 
index-name via a SET statement before an 
indexed reference is made. 

Indexing may be direct or indirect. 
Direct indexing uses index-names optionally 
mixed with literals. Indirect indexing 
uses literals as increments or decrements 
to index names. Given the Data Division 
statements : 

02 FIELD OCCURS 10 TIMES INDEXED BY A. 
03 SOBFIELD OCCURS 10 TIMES INDEXED BY B. 
OU ITEM OCCURS 10 TIMES INDEXED BY C 
PICTURE XX. 

a reference to ITEM (A, B, C) would be 
direct indexing, and a reference to ITEM 
(A-i-4, B-5, C-f6) would be indirect indexing. 

Direct Indexing ; The P2-text contains a 
SUBSCRIPT verb string with a special code 
in the operands to indicate that they are 
index-nftmes rather than subscripts. 
Entries in the XSCRPT and XSSNT tables are 
made and used in the same way as for 
subscripted references. Object code is 
generated to place the value of d from the 
idk field into a register and add the 
values of all the index-names to it. 



After routine XSCOMP has generated the 
code to add the index-names (as described 
earlier under "Direct Indexing") , it tests 
the information gathering work area. When 
literals are present, it generates 
additional instructions. These 
instructions load the literal into a free 
register, multiply the register by the 
length in the VLC for that level (in the 
example, the literal 4 would be multiplied 
by 200) , and add this value to the register 
pointing to the indexed field (this 
register has already been incremented by 
the index-name values) . This process is 
repeated for every literal. The 
multiplication must be done because the 
literals, unlike the index-names, represent 
occurrence numbers, not displacements in 
bytes. 

Mixed Literal and Direct Indexing ; Mixed 
indexing is processed as a combination of 
direct and indirect. All index-names are 
processed first/ then each literal is 
treated as an indirect increment. 



ARITHMETIC VERB STRINGS 

The Arithmetic Translator is a group of 
verb analyzers used to process arithmetic 
verb strings. It is also used for all MOVE 
statements and IF statements processed by 
phase 50. 

Given the source program statement: 

COMPUTE X=A+(C-D/E)*F-6 

the following P2-text would be generated by 
phase 40 : 

EVAL DHAX DCUBRENT X . . . 
DIV E D IR1 (-C) 
SUB IR1 C IR2 (*F) 
MULT P IR2 IR3 (♦A) 
ADD IR3 A IRa (-G) 
SUB 6 IR4 IRS (ST X) 
STORE IR5 X 



Indirect Indexin g; Routine SSCRPT 
determines that there are literals in the 
SUBSCRIPT string. These literals are 
placed in an information gathering work 
area. When the XSCRPT entry is made for 
the indexed reference, the dictionary 
pointers are not entered, in order to 
prevent a match from being found. This is 
necessary for possibilities such as the 
following; 

MOVE ITEM (A+4/ B-5, C+6) TO D. 
MOVE ITEM (A, B, C) TO E. 

If a normal XSCRPT entry was made for the 
first statement, the dictionary pointers 
would be identical and the second statement 
would use the register set up by the first. 
Since the indexing does not point to the 
same place, the operation would be incorrect. 



For each verb string, the Arithmetic 
Translator routines do the following: 

1. Place information about each operand 
in a work area. 

2. Determine the* sizes of intermediate 
and temporary fields, and check for 
possible overflow by performing 
compile-time arithmetic. 

3. Determine the mode for the operation. 

4. Allocate registers and temporary 
storage for the operation. 

5. Call the A-text Generator (described 
later in this chapter) to produce the 
Procedure A-text. 
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For each operand in a string, a work 
area called an operand information buffer 
is set up. There are three types of 
operands: 

1. Data-name operands. In the example, 
all the operands named in the source 
program COMPUTE statement are 
data-name operands. 

2. Intermediate results. In the example, 
these include all the operands named 
with IB. Intermediate results are 
required because arithmetic machine 
instructions can handle only two 
operands at a time. The result of one 
arithmetic operation becomes an IR , 
which is then used as an operand of 
the next operation. 

3. Temporary results. These are used by 
series addition and subtraction with 
multiple receiving fields. For the 
source statement: 

ADD M, N, TO P ROOHDED, 

a temporary result is required to hold 
the sum of M, N, and 0. 



Each operand information buffer holds 
information similar to an entry in the 
table XIMTR. This includes such attributes 
as the mode of the operand, the number of 
digits to the left and right of the decimal 
point, and the largest possible value of 
the operand. (The format of table XIMTR is 
given in "Section 5. Data Areas*'.) For a 
data-name operand, these attributes are 
found in the P2-text element. For 
intermediate results or temporary results, 
the information is found in table XINTR, 
when the operand is used in the operation. 
It was placed in the table after processing 
of the string in which the intermediate or 
temporary result was created . The 
attributes for the intermediate result that 
is the result of the operation are filled 
in after the processing of the operands 
which form it (how the attributes are found 
is discussed in this section under 
"Compile-Time Arithmetic") . When the MOLT 
string is processed, in the COMPOTE 
statement example above, IB2 is found in 
table XINTR. The attributes of IRS are 
determined during processing of the HOLT 
string, and IB 3 is then used as an operand 
of the ADD string which follows. 

If any of the operands are 
floating-point, the floating-point verb 
analyzer is called immediately to generate 
the Procedure A-text. Otherwise, 
compile-time arithmetic is performed. 



Note : The operand information buffers are 
defined on the same storage as the data 
area for the SOBSCRIPT analyzer. 



Compile-Time Arithmetic 



Compile-time arithmetic is performed 
with the maximum possible values of the 
operands (9 in every digit place) to find 
out if overflow is possible and to 
determine how many places are required to 
hold the intermediate or temporary result. 

For example, assume that for the string 
ADD IF3 A IR4 (-G) , the attributes of A 
show that it has a PICTURE of 9 9V9 and the 
attributes of IR3 (from table XINTR) show 
that it has a PICTORE of 9 (3) V9 (2) . The 
compile-time arithmetic for the maximum 
value of the scaled operands is: 

9990+99999«109989 

The result determines the attributes 
(including the maximum possible value) of 
IRU, which are placed in table XINTR at the 
end of the ADD processing. 

If the intermediate result (IR4 in this 
case) exceeds or is equal to 10*4^30, 
overflow is possible. To avoid overflow, 
instructions are generated to truncate the 
intermediate result down to 30 digits. 

That is, let DM AX be the maximum number 
of decimal places in any operand in the 
source statement, let DIR be the number of 
decimal places in the intermediate result, 
and let IIR be the number of integer places 
in the intermediate result. Then the rules 
for truncation are: 

1. If DIR exceeds DMAX and IIR4-DMAX is 
less than or equal to 30, then 
low-order decimal places are truncated 
from DIR until IIR+DIR«30. 

2. If DIR exceeds DMAX and IIR-i-DMAX is 
greater than 30, then low-order 
decimal places are truncated from DIR 
until it equals DMAX, and high-order 
integer places are truncated from IIR 
until DMAX-mR=30. 



Mode of Operation 



The mode of the operands determines the 
mode of operation. In general, the mode of 
operation is predetermined (for example, if 
one of the operands is floating-point, all 
of the operands are converted to 
floating-point and the operation is in 
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floating-point) . However, for operations 
involving binary and internal decinal 
operands, routine XHSND is used to perform 
some tests to determine whether the 
operation is to be in binary or in internal 
decimal. 

If any of the operands is external 
decimal, it is converted to internal 
decimal unless it is in a MOVE statement. 
If an operand is sterling nonreport, it is 
converted to internal decimal unless it is 
the target field of a MOVE or STORE verb. 

If any conversions are reguired, they 
are handled by in-line conversion or calls 
to COBOL library subroutines, depending on 

the complexity of the conversion. See IBM 
DOS/VS COBOL Subroutine Library Program 
Logic . 



Register and Storage Allocation 



To assign registers for an instruction, 
special register handling routines are 
used. These are: 

XRSASG to assign a single register 
XRDBIR to assign a register pair 
XRSASF to assign a floating-point 
register 

Phase 50 maintains an internal table for 
registers through 5, which are the 
arithmetic work registers of the object 
program* Each table entry contains a flag 
indicating whether the register is being 
used, how it is being used (for example, as 
one of a pair) , and what it contains (such 
as a subscript or index calculation, or an 
intermediate result) . 

If a register must be freed, routine 
XFREER is called. The calling routine 
passes the number of the register to be 
freed to XPREER in the XREGNO cell of the 
phase 50 data area. (XFREER is also used 
by phase 50 when it is analyzing Phase 51 
verbs; see "Handling Phase 51 Verb 
Strings.'*) If registers through 5 must 
be freed, routine DFREER is called. 

XFREER checks the register table entry 
for the specified register and, if it is in 
use, generates instructions to store it. 
It must then indicate that the value 
formerly in the register is no longer 
there. If the register was being used for 
an arithmetic operation, it updates the 
operand information buffer by filling in 
the number of the TS (execution-time 
arithmetic temporary storage) cell where 
the register contents are stored, and the 
displacement of the cell in bytes from the 



beginning of the TS area. If the value in 
the register was a subscript, XFREER 
changes the code of the idk (addressing 
parameter) field in the XSCRPT table entry 
(see "Using and optimizing Subscript 
References" earlier in this chapter) to 
indicate that the value is in a subscript 
save cell, and provides the cell number. 
Subscript save cells are assigned in the 
SOBADR field of the Task Global Table (TGT) 
during program execution. 



Operations in binary are performed in 
registers, and the intermediate results are 
left there whenever possible. Decimal 
operations are performed in storage, and 
the intermediate results are placed in 
cells of the TS area. 



Space in the TS is always allotted in 
cells of eight bytes, regardless of how 
many bytes are actually reguired to hold 
the operand. (If more than eight bytes are 
needed, two cells are allotted.) To 
minimize total temporary storage area used 
by the program, each TS cell is made 
available as soon as the value in it is no 
longer needed. 



TS cells for arithmetic operations are 
assigned by using the counter TSMAX in 
COMMON (for the format of COMMON, see 
"Section 5. Data Areas") . TSMAX contains 
the number of the highest numbered cell 
that has been assigned. When a new TS cell 
is assigned, this counter is incremented by 
one. As soon as the value in the TS cell 
is no longer needed, the cell number is 
placed in table XAVAL. The next time a TS 
cell is reguired, XAVAL is searched first; 
if it has any entries, the cell found there 
is used, and the XAVAL entry is deleted. 
Only if table XAVAL is empty is a new TS 
cell assigned from TSMAX. 



Intermediate results are handled in such 
a way that, as soon as possible after an 
intermediate result has been computed, it 
is used in the next computation and then no 
longer needed. In the COMPUTE statement 
shown earlier, for example, IR3 is the 
result of the MULT operation and then is 
immediately used as an operand of the ADD. 



Note that an intermediate result is also 
reguired after the last arithmetic 
operation (IR5 in the example) and that the 
value is moved into the data-name result 
(X) via the STORE verb. This is necessary 
because the value may have to be converted, 
truncated, or aligned to conform to the 
format for X. 
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A temporary result, on the other hand, 
must be saved until all operations 
requiring it are finished. In the 
statement : 

ADD M, N, O TO P ROUNDED, Q 

the temporary result (the sum of M, N, and 
0) is first added to P and then added to Q. 
All steps involving P (rounding, 
truncation, or conversion, if needed) are 
completed liefore the temporary result is 
added to Q. When the temporary result is 
added to P, its value is moved into another 
cell of the TS, and the operation is 
performed from that cell. 



Generating SRP Machine Instructions 



If, at any time during processing for 
arit^iroetic verbs, scaling becomes 
necessary, the SRP machine instruction is 
generated to do left scaling or right 
scaling when the number of places to be 
shifted is even. If rounding of a number 
is requested, the SRP machine instruction 
is generated. 



virtual and literal definitions. It is 
used frequently by the Arithmetic 
Translator and by other analyzers requiring 
the generation of A-text too variable to be 
stored as Constant or Direct A-text. 



To call the A-text Generator, the verb 
analyzer fills in the appropriate cells in 
the parameter area (Figure 45) and calls a 
particular generating routine. The 
generating routine usually has the same 
name as the instruction it produces (for 
example, MVC, LOAD). The A-text Generator 
has no common entry point. 



Before returning to the caller, the 
generating routine sets the entire 
parameter area to zeros. 

From the parameter information, the 
generating routine determines exactly what 
type of instruction to write. For example, 
if the LOAD routine finds that the only 
operands specified are two registers, it 
writes an LR instruction. If a nonregister 
operand is two bytes long, the generating 
routine generates an LH. 



GENERATING A-TEXT 



LITERALS AND VIRTUALS 



A-text is generated from three sources: 
Constant A-text, Direct A-text, and the 
A-text Generator. The nature of the text 
required determines which source is used to 
generate a particular block of text. 

Constant A-text: This type of Procedure 
A-text resides in the phase 50 data area. 
It is stored in the form of DCs, ready to 
be written out when needed. It is used for 
standard, frequently occurring 
execution-time operations, such as START. 

Direct A-text: This is generally 
written as a block of instructions at a 
time. It is written out by routine GATXTV, 
which is called by the verb analyzers using 
two parameters: 

• Displacement of the desired block of 
text from the beginning of the text 
area 

• Length of text to be written 

The verb analyzer fills in the variable 
fields before calling GATXTV. 

A-text Generator; The A-text Generator 
is called by a verb analyzer to write one 
/instruction of Procedure A-text at a time. 
It also generates Optimization A-text for 



The A-text Generator does not include 
literals and virtuals in the Procedure 
A-text. Rather, it writes thie virtual with 
an Optimization A-text prefix' on SYS002 and 
writes the literal as Optimization A-text 
on SYSOOS. At execution time, virtuals and 
literals are stored in the Program Global 
Table. By processing Optimization A-text, 
phase 60 or 62 can eliminate duplicate 
storage if the same virtual or literal is 
used more than once. 

For virtuals, the A-text Generator 
assigns an identifying number to the 
virtual and writes the number as Procedure 
A-text. The virtual itself is then written 
with an Optimization A-text prefix on 
SYS002, along with its identifying number.' 

Virtual identifying numbers are assigned 
from the VIRCTR cell of COMMON. This 
counter is initialized to 1 in phase 00. 
It is incremented by 1 at phase 50 
initialization because virtual 1 (MNSO) is 
reserved. The counter is also incremented 
to indicate the number of virtuals required 
by the options that are in effect. Each 
virtual and the options for which it is 
required are listed below. Although more 
than one option may require the same 
virtual, the virtual appears only once. 



fri« 



Phase 50 99 



Licensed Material - Property of IBM 





Options that 


Virtual 


require the virtual 


DBGO 


COUNT, FLOW, STATE, 


DBG 5 


SYMDMP 


FLWO 


FLOW 


STNO 


STATE 


CTIO 


COUNT 


TCOO 


COUNT 



The total number of virtuals processed by 
phase 50 is equal to the number of virtuals 
required by the options in the above list 
plus one for MNSO. At the end of phase 50 
initialization, the value in VIRCTR is one 
greater than the total number of virtuals 
processed by the phase. Within phase 50, 
whenever a new virtual is needed, the 
current value of VIRCTR is used as the 
virtual number, and then the counter is 
incremented. At the end of phase 51, the 
counter is decremented by 1. (VIRCTR is 



the only counter in COMMON handled in this 
manner. For all other counters, the value 
of the counter is incremented before being 
used. ) 



When a literal reference is required, 
the Procedure A-text element contains a 
code and a counter. The literal itself is 
put out as Optimization A-text, and the 
LTLCTR counter of COMMON is incremented. 
An identifying number is assigned to the 
literal, so that phase 60 or 64 can 
determine which literal reference applies 
to a given literal. 

During phase 50 processing, the 
Optimization A-text for a literal 
definition is written on file SYS003; all 
other output from phase 50 is written on 
file SYS002. 



Parameter Cells for the A-text Generator 



T T 

Length 



Name 



Operand- 1 Parameters 



Meaning 



(Bytes) 



Element 



Operand- 2 Parameters 



Name 



Meaning 



OPl 



XLl 



XWCl 



Pointer to the DOP 
(storage cell in the 
phase for a data-name 
operand 

Length of operand (used 
for SB instructions such 
as EX, MVC, AP) . The 
routine which generates 
the text decrements this 
value by 1 before using 
it, as required by these 
instructions. 

For arithmetic operands, 
specifies the operand's 
position in the TEMPORARY 
STORAGE field of the TGT. 
TEMPORARY STORAGE is used 
for arithmetic operands 
only. 

Bytes 1 and 2: 
Displacement of the 
8-byte slot containing 
this operand from the 
beginning of the 
TEMPORARY STORAGE field. 

Byte 3: Number of bytes 
actually required by the 
operation. TEMPORARY 
STORAGE is always 
assigned in slots of 8 
bytes, but frequently an 
arithmetic operand is 
shorter, using only a few 
of the low-order bytes. 



Address 
reference 



OP 2 



XL2 



XWC2 



Same for second operand. 



Length of second 
operand (for SS in- 
structions with two 
lengths, such as AP, 
SP, ZAP). The 
generating routine 
decrements value by 1. 



Same for second operand. 



X 

(Part 



X 

of U) 



Figure 45. Parameter Cells for the A-Text Generator 



100 Section 2. Method of Operation 



Licensed Material - Property of IBM 



Parameter Cells for the A-text Generator 



I r 

Length 



Operand- 1 Paraaeters 



Name 



Meaning 



(Bytes) 



Element 



Operand-2 Parameters 



T 



Name 



Meaning 



TALLY 1 
BDISP1 

BELAD1 



VIRTC1 
GVIRTl 

xcom 



First operand is TALLY. 

Base (specifies a 
register number) and 
displacement of operand. 
Operand is referenced by 
its relative location 
within a field. 

Byte 1: Code indicating 
the type of cell being 
referenced (the codes are 
listed under "Relative 
Address Element" in the 
Procedure A~text formats, 
given in "Section 5. 
Data Areas") . 

Byte 2: Number of bytes 
needed to express the 
address constant. 

Bytes 3 and 4: 
Identifying number which 
pinpoints this cell 
within its field. 

Identifying number 
assigned from VIRCTR when 
the operand is a virtual. 
The number begins in byte 
3. 

Name of virtual (used 
with VIRTCR) . 

Used for two distinct 
types of information: 

A) Operand is a literal 

Bytes 1-16: value of 
literal, right adjusted 

Byte 17: length of 
literal 

B) Operand is a DC-type 
constant other than an 
address constant 

Byte 1 : length of 
constant 

Bytes 2-17: value of 
constant, left adjusted 



8 
17 



Base and 
displacement 

Relative 
address 



TALLY2 
BDISP2 

RELAD2 



Second operand is TALLY, 
Same for second operand, 

Unused . 



Virtual 
reference 



Literal 
reference 



VIRTC2 



6VIRT2 



XC0N2 



Unused, 



Unused . 



Same for second operand, 



Figure 45. Parameter Cells for the A-Text Generator (Part 2 of 4) 
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Parameter Cells for the A-text Generator 



T r 

I Length 

^ 
(Bytes) 



Operand-1 Parameters 



Name 



Heaning 



Element 



Operand*2 Parameters 



Name 



Meaning 



XGN1 



XPN1 



XCNTR1 



PLDS1 



XVN1 



BDEBG1 



BLREF1 



GN number when operand is 
a GN reference. 

Operand is a PN reference 

Byte 1: code 00 

Byte 2: priority number 
of PN 

Bytes 3 and 4: PN number 

Operand is an item in one 
of the variably located 
fields of a global table. 
Byte . 1 : type code (the 
codes are listed under 
"Global Table Other Area 
Reference" in the 
Procedure A-text formats, 
given in "Section 5. 
Data Areas**) . 

Displacement from 
beginning of allocated 
storage of a 
right-adjusted operand. 

Operand is a VN reference 

Byte 1 ; code 00 

Byte 2: priority number 

Bytes 3 and 4: YN number 

Operand is an item in a 
fixed-location field of 
a global table. 

Byte 1 : type code (the 
codes are listed under 
"Global Table Standard 
Area Reference** in the 
Procedure A*-text formats, 
given in *'Section 5. 
Data Areas**) . 

Operand is a base locator 

Byte 1: type of base 
locator; BL, BLL, SBL 
(•i« field of idk) 

Byte 2: BL number 



Generated pro- 
cedure-name 
reference 
Procedure -name 



XGN2 



XPN2 



Same for second operand. 



Same for second operand. 



Global table 
variably 
located area 
reference 



XCNTR2 



Same for second operand 



PLUS2 



Same for second operand 



Variable 

procedure-name 

reference 



Global table 
standard area 
reference 



6DEBG2 



Same for second operand. 



Base locator 



BLREF2 



Unused < 



Pigure 45. Parameter Cells for the A-Text Generator (Part 3 of 4) 
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Parameter Cells for the A~text Generator 



Operand- 1 Paraneters 



Nane 



Meaning 



Length 
(Bytes) 



Element 



I Operand-2 Parameters 
I r- 



Name 



Meaning 



XRE61 



IHH 



XXRE6 



Register number if first 
operand is a register. 
Note ; When this is used, 
the second operand 
(unless it is a register 
also) is still considered 
the first nonregister 
operand and is placed in 
the operand'1 cell. 

Immediate field value for 
an SI instruction. 

Register number for index 
register in an RX 
instruction. 



XRE62 



Register number for 
second register, in an 
RR instruction. 



Figure 45. Parameter Cells for the A'Tezt Generator (Part 4 of 4) 



HANDLING PHASE 51 VERB STRINGS 



Once the PH5CTL routine has determined 
that a verb string is not one of those 
processed by phase 50, it calls routine 
PBSBYB to handle the verb string. 

The PR5B?B routine first checks to &ee 
if the verb is one that will use registers 
through 5 at execution time. If it is, 
routine DFREER is called to free registers. 
(DEREER is described in "Register and 
Storage Allocation" earlier in this 
chapter.) 

Routine PH5BVB then writes the header 
and operands of the verb string in file 
STS002 as P2-text. Then it determines 
whether the verb is MOVE, EXAMINE, or 
TRANSFER. If it is one of these, routine 
XSPRO is called. This routine checks to 
see whether there is an object of an OCCURS 
clause with the DEPENDING ON option in the 
data-name being moved into, examined, 
transferred, or read into, in which case it 
generates calls to Q-routines. 

Finally, routine PHSBYB determines 
whether the verb is one that reguires 
deletion of all the entries in the XSCRPT 
table. These verbs include: 



If the verb is one of the above, routine 
KILSDB is called to delete the XSCRPT table 
entries. 



CALL 


READ 


LINK 


WRITE 


ENTRY 


REWRITE 


SORT 


RPTCAL 


OPEN 


RELEASE 


CLOSE 


ON 


ACCEPT 


STOP 


RETURN 


STRING 


MERGE 


UNSTRING 



ADDITIONAL PROCESSING FOR THE OPTIMIZER 
OPTION fOPTl 



If OPT is specified on the CBL card, 
phase 50 performs the following additional 
functions: 



• Converts phase 40 Optimization 

Information elements (43XX) to phase 50 
Optimization Information elements 
(COXX) . 



Primes and zeros out the BLUST6L table 
for the number of BLs and BLLs present 
in the program. For each reference to 
a data-name, it adds 1 to the entry for 
that BL or BLL. This usage table is 
used by phase 62 to assign permanent 
base registers to the BLs and BLLs. 
Phase 51 also updates the BLUSTBL 
table. 



• Writes GNUREF elements for 0-Routine 
calls. 
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PHASE 51 



Phase 51 (ILACBL51) functions in a 
Banner similar to phase 50. Elements of 
text written by phase 50 are read from file 
S7S002. Phase 51 checks each element and 
performs whatever processing Is required, 
based on the type of element read. After 
processing r it writes the element as 
Procedure A*text on file STS001, as 
Optimization A-text on file SYS003, or as 
E-text on file SYS004. (pptimization 
A-text is written immediately after any 
Optimization A-text that was written on 
file STS003 by phase 50.) 

Input to Phase 51 can be any of the 
following: 

Intermediate Procedure A-text 
Intermediate Optimization A-text 
Verb strings 
Intermediate E-text 



called EBRSEV. If any E-text was generated 
by Phases 10, 20, 22, or 21, EBRSE? was set 
by Phase 21. Otherwise, it contains a 
▼alue of zero at the beginning of phase 51. 

Routine ERRPRO adds one to the severity 
code of the current E-text element and 
multiplies this value by four (the code 
must be incremented by one because certain 
errors produce a severity code of 0; adding 
one to the severity code distinguishes such 
an error from no errors at all) . 

ERRPRO then compares this value to the 
current value of ERR SET and enters the code 
of the E-text into ERRSEV if it is higher. 
The E-text is then written on STS004. Note 
that this is the first time that E-text is 
separated from the other output of a phase, 
rather than embedded in it. 



An element of Intermediate Procedure 
A-text may be a Q-routine control break, or 
it may be text generated by phase 50 and 
requiring no further processing. If it is 
a Q-routine control break, routine 6ETNXT 
generates the text element of 4440. 
Otherwise, the element is merely copied as 
Procedure A-text output without the 
identifying prefix of 28 and its count 
field. 

An element of Intermediate Optimization 
A-text, identified by a prefix of 27, can 
be a segmentation control break or a PN, 
en, or ?M definition. 

Verb strings written in P2-text require 
processing by one of the phase 51 verb 
analyzer routines. 



E-TEXT 



Whenever it encounters B-text in its 
input or generates an E-text element 
itself, phase 50 writes it on STS002 with 
an identifying prefix. This text is 
referred to as Intermediate E-text. Phase 
51 recognizes it, discards the prefix, and 
writes the E-text on STS004. 

Phase 51 must determine the highest 
severity level encountered in the program. 
When routine 6ETMXT encounters an element 
of E-text or when the phase 51 processing 
routines find an error situation requiring 
that E-text be written, routine ERRPRO is 
called. This routine uses a cell in COHNON 



SEGMENTATION CONTROL BREAKS 



When the LANGLVL(2) option is specified, 
no overlay structure is built, and the 
object program is produced in the same 
order as the source program. Accordingly, 
phase 51 discards all segmentation control 
breaks without passing them on to 
succeeding phases and skips all the 
processing described in the remaining 
paragraphs of this section. At end of 
phase, phase 51 sets the SEGLMT in COMMON 
to 255 to indicate that the program should 
be treated like an unsegmented one. 

When LANGLVL(l) is specified, an overlay 
structure must be produced. Procedure 
A-text must be read and processed by 
phase 60 or phases 62 and 63 in order of 
segment priority, rather than in the order 
in which the source program wrote them. To 
facilitate this, routine SEGENTR builds a 
table (called SEGTBL) containing the 
relative disk address of the beginning of 
each segment. 

With LANGLVL(l), a segment above 8M 
virtual storage cannot be run. 
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The relative disk addresses are obtained 
through phase 00 (note that phase 00 
handles all input/output requests for the 
other phases) . When phase 00 writes 
Procedure A-text for the first physical 
record of a segment, after the CHECK has 
been issued for that WRITE, it issues a 
NOTE macro instruction. The NOTE macro 
instruction returns the relative disk 
address of the record just written, which 
is saved in SEGSAVE, a cell internal to 
phase 00. 



The segmentation control break 
encountered by phase 51 signals the end of 
one segment and the beginning of a segment 
with a different priority. Routine GETNXT 
calls phase 00 with a request for the 
SEGNOTE function (for a description of the 
calling sequence and parameters, see "Phase 
Ijiput/Output Requests" in the chapter on 
phase 00) . To complete the output for the 
previous segment. Phase 00 writes whatever 
is left in the buffer, and passes back to 
phase 51 the value in SEGSAVE. Phase 51 
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stores this as an entry in SEGTBL, along 
with the priority number of the previous 
segment. (For the SEGTBL table format, see 
"Section 5. Data Areas", 

The call to SEGNOTE also indicates to 
Phase 00 that the next time it writes on 
SYSOOl, it will be the beginning of a new 
segment and that another NOTE must be 
issued. 



PN. GN, AND VN DEFINITIONS 



When a PN, GN, or VN definition is 
encountered,, routine PUTDEF is called. 
This routine changes the definition to 
Procedure A- text and writes it out. 

For PN definitions,, the PN n\amber and 
the priority number are saved before PUTDEF 
is called. For VN definitions, the SEGLMT 
cell in COMMON is tested to see if the 
program is segmented (a value other than 
hexadecimal FF in SEGLMT means the program 
is segmented) . If it is segmented, the VN 
definition is written as both Procedure 
A-text and Optimization A-text. 



Building the PNUTBL Table 



The source programmer may have coded 
some procedure-name definitions to which 
reference is never made. The address cells 
for such procedure-neunes can be eliminated. 
To do this, routine PNUSED in phase 51 
builds the PNUTBL table for phase 60 or 
phase 62. 

This table contains one bit for every PN 
definition in the program. The size of the 
table is determined from the cell PNCTR in 
COMMON, which was incremented by phase 11 
every time a PN definition was created. 
All bits in the table are initialized to 
zero, and every time a PN is referenced 
throughout phase 51 processing,, the bit in 
the table corresponding to the PN number is 
set to one. Phase 60 can thus eliminate 
any PN definitions whose bits are still 
zero. 

In phase 62, the PNUTBL table is used tc 
determine if a PN has been referenced. If 
it has not been referenced,, no special 
entry point processing is done at the point 
of definition. 



Building PN and GN EQUATE Strings 



VERB STRINGS 



It is possible that earlier phases have 
generated more than one GN to define a 
single verb within a procedure statement. 
When this occurs, several GN definition 
elements are encountered in a row without 
any intervening text. If the source 
program included a procedure- name at this 
point, a PN definition also occur s^ 
preceded by one or more GN definitions. 
Since only one procedure-name is required 
to provide a branch-in point in the object 
program, the rest can be eliminated. All 
the GNs (and the PNs, if any) are collected 
in a Phase 51 work area called GNLIST,, from 
which they are written in Optimization 
A-text as an EQUATE string. In Procedure 
A-text, only the PN definition is written, 
or if there was none, the first GN 
definition (the one with the lowest number) 
is written. Phase 60 uses the EQUATE 
string to change all references throughout 
the program from the equated GNs to the one 
for which Procedure A-text was issued. 

If OPT has been specified on the CBL 
card, these PN and GN EQUATE strings are 
not written. All PNs and GNs are written 
in Procedure A-text regardless of their 
position. Since no cells in the PGT are 
allocated for their addresses,, it is not 
necessary to equate their addresses. They 
are addressed instead by using a 
displacement from a base register. 



Phase 51 processes input/output verbs, 
other nonarithmetic verb strings (includinc 
some requiring calls to object-time 
subroutines), and DISPLAY literals. As 
examples, the ON string is discussed below 
under "Other Nonarithmetic Verb Strings" 
and the DISPLAY verb under "Verbs Requirinc 
Calls to Object-Time Subroutines." Samples 
of coding are included in those 
discussions. 

If the SYMDMP or the STATE option is in 
effect, a call to the COBOL library Save 
Register 14 routine (ILBDDBG4), is 
generated for all verb analyzers (except 
FLOW and COUNT) which produce code 
branching outside the main line of the 
program. When routine PH5CTL encounters 
the READ, WRITE/REWRITE,, OPEN/CLOSE, 
RETURN, RELEASE,, and START verbs, it calls 
routine DBGTEST to generate the call. The 
call is also generated before the code 
generated to call any COBOL object-time 
subroutine or any program which is the 
operand of a CALL statement, and before an] 
branch to a Q-Routine. In addition,, if th« 
verb is a CALL, code is generated, after 
the BALR to the called program, to call th< 
COBOL library debugging subroutine entry 
point ILBDDBG3. This is done so that the 
subroutine can update TGT pointers. The 
verb analyzers for GOBACK and STOP RUN 
generate a call to the COBOL library 
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debugging subroutine entry point TC20. For 
a description of the COBOL library 
subroutines see IBM DOS/VS COBOL Subroutine 
Library Program Logic . 



Input/Output Verbs 



Phase 51 generates the object code 
required for the input/output verbs 
discussed in this section. There is a 
separate verb analyzer routine for each 
verb. Each routine may share several 
subroutines with other analyzers. 

The coding generated is basically the 
required linkage to a LIOCS module or a 
COBOL library subroutine, and therefore 
depends on the access method. 
Additionally, the following factors 
influence the coding: the organization 
of the data records, the blocking factor, 
the recording mode, double buffering, use 
of a SAME RECORD AREA clause, inclusion of 
a RERUN clause, use of label records and 
declaratives, and the type of device. For 
examples of the generated coding for verbs 
discussed below, refer to Appendix D. 

By convention, the following register 
assignments are used at execution time: 
register 1 contains a pointer to the DTF; 
register 2 contains lOCS's pointer to the 
record; register 3 contains the record 
size; register 15 contains the address of 
the LIOCS module or of the COBOL library 
subroutine called. 

Generally, the code generated for READ, 
WRITE, OPEN, and CLOSE is followed by 
Procedure A-text BLCHNG elements. These 
indicate to phase 60 or to phase 62, 63, 
and 64 that if they have permanently or 
temporarily loaded that BL or BLL into a 
register, they must reload the register or 
flag the register as no longer containing 
that BL or BLL. 

Phase 51 contains a verb analyzer 
routine for each of the VSAM input/output 
verbs (OPEN, CLOSE, READ, WRITE, REWRITE, 
START, and DELETE) and another for each of 
the non-VSAM input/output verbs (OPEN, 
CLOSE READ, WRITE, REWRITE, SEEK, and 
START) . 



Routines for VSAM Files 



Each of these routines: 

• Analyzes the operands in the verb 
string. 

• Creates the parameter list to be 
passed to the object-time subroutine 
that performs input/output 
operations for VSAM files. 

• Generates the calling sequence for 
the requisite object- time 
subroutine . 

The ILBDVOCO and ILBDVIOO COBOL 
object-time subroutines (described in IBM 
DOS/VS COBOL Subroutine Library Program 



Logic ) act as interfaces between the COBOL 
object program and VSAM. They use the File 
Information Block (FIB) (built by 
phase 21) , the File Control Block (FCB) 
(created at object-time) , and the parameter 
list and options list (created in the 
calling sequence for the subroutine by 
phase 51) . 



Routines for Non-VSAM Files 



These routines process both 
standard-sequential files (DTFCD, DTFPR, 
DTFMT, DTFSD, and DTFDU) and direct (DTFDA) 
and ISAM (DTFIS) files. Certain options 
and features — for example, SAME RECORD 
AREA — result in identical generated code 
for all DTF types; others require code 
specially tailored to the file's 
organization, access mode, or even 
specific device. 

All verbs which reference 
standard- sequential files ultimately 
cause generation of a call to ILBDSIOO, 
whose operation and calling sequences are 
described in IBM DOS/VS COBOL Subroutine 
Library Program Logic I In addition to 
interfacing with LIOCS, ILBDSIOO monitors 
and processes FILE STATUS, and invokes 
ILBDSPAO to handle LINAGE and the WRITE 
BEFORE/AFTER options. 
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For direct or ISAM files, the code 
generated for OPEN and CLOSE is basically 
the expansion of the system OPEN or CLOSE 
macro. Options such as CLOSE UNIT, and the 
READ, WRITE, and REWRITE verbs cause 
generation of linkage to the appropriate 
COBOL library subroutines. The functions 
and calling sequences of these varied 
specialized routines are described in IBM 
DOS/VS COBOL Subroutine Library Program 
Logic . 



Miscellaneous Input-Output Routines 



DISPLAY ; The DISPLAY statement results 
in the generated code for a call to the 
DISPLAY subroutine. The calling 
sequence generated is shown in IBM 
DOS/VS COBOL Subroutine Library Program 
Logic . 

ACCEPT ; The ACCEPT statement results in 
the generated code for a call to the 
ACCEPT subroutine. The calling sequence 
generated is shown in IBM DOS/VS COBOL 
Subroutine Library Progrcun Logic . 



STRING ; The STRING statement results in 
a call to the STRING subroutine, 
ILBDSTGO . 

UNSTRING ; The UNSTRING statement may 
result in one or more calls to the 
UNSTRING subroutine, ILBDUSTO, and in 
two or more calls to the conversion 
subroutine, ILBDCVBO, at both entry 
points; ILBDCVBO and ILBDCVBl. The 
number and order of calls are deteirmined 
by the types of operands specified in 
the UNSTRING statement. 

USE; The USE verb, on entry to the 
Declarative Section, generates code 
which sets up fields (pointers) for the 
information requested, such as the 
address of a label or an error block. 
At the end of the section, the code 
needed to return to the object-time 
subroutine is generated. 
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other Nonarlthaetlc Verb Strings 



This section discusses the ON string as 
an example of a nonarlthnetlc verb string. 



When routine PR5CTL encounters an ON 
string r it moves the operands into a work 
area and calls routine ON to process the 
string . 

The processing depends on the options 
given in the ON statement. In the simplest 
case (ON 1) , instructions are generated to 
test a switch to see if the statement 
completing the ON has been executed and, if 
it haSf to branch around this statement. 

Figure 46 shows the Procedure A-text 
produced for an ON statement with an 
initial value , increment , and maximum 
value. The numbers of the following 
explanations refer to the circled numbers 
in the figure. 

1. GN1 is the generated procedure *name 
assigned to the next sequential source 
program statement. A branch must be 
made to this statement when the ON 
condition is false, that is, in this 
example, when the ON instructions to 
test and increment the counter have 
been executed an odd number of times, 
or more than 16 times. 

2. This instruction loads the contents of 
0NCTF1 into register 3. 0NCTR1 is the 
identifying number of an ON control 
cell. At execution time, this cell 
will be incremented by one each time 
the ON statement is executed and 
compared with the maximum value, as 
specified in the UNTIL option. 

Phase 51 assigns Identifying numbers 
to ON control cells using the ONCTR 
cell in COMMON. At execution time, 
each ON control cell will occupy four 
bytes in the ONCTL field of the Task 
Global Table. 

Registers 1 and 2 are generally used 
in the object program for 
nonarithmetic operations. When a 
nonarithmetlc register is needed by a 
phase 51 verb, one will have been 
freed by phase 50 *s issuing of an 
instruction to store its contents in a 
subscript save cell, if necessary. 
(See "Register and Storage Allocation** 
in the Phase 50 chapter for a fuller 
description of register saving.) 
Subscript save cell numbers are 
obtained from the SOBCTR cell in 
COMMON. They correspond to SUBADR 
cells in the Task Global Table of the 
object program. The instmictions to 



save the registers would precede the 
code generated for the statement. 

3. The literal 16 is not actually issued 
in the Procedure A-text. Rather, a 
literal definition element is issued 
and the literal itself is written as 
Optimization A-text. See **Llterals 
and Virtuals** in the phase 50 chapter. 

4. This branch statement transfers 
control to GNI (the next source 
program statement) when ONCTR 1 
contains a value greater than 16. 

5. This statement causes a branch to 6N1 
when ONCTR 1 contains a value which is 
less than 2. 

6. XSASW1 identifies a cell that will 
control the Increment (EVERT option) 
of the ON statement at execution time. 
The switch will be flipped each time 
the statement is executed and tested 
to determine whether the Imperative 
statement should be branched around. 
It is used only if the increment is 2 
or in the ON 1 case. 

The identifying numbers are eissigned 
from cell XSNCTR in COMMON. They 
correspond to cells in the XSASN field of 
the Task Global Table in the object 
program • 

If the increment is not 2, an ON control 
cell is used to control the increment. 
Like the cell described in item 2, it is 
assigned an identifying number from ONCTR 
in COMMON, and it is used in a similar 
manner . 



Source , Statements 



ON 2 AND EVERY 2 UNTIL 16 MOVE 
A TO B. ADD C TO D. 



P2-text Strings 



GNI. 



ON 2 2 16 6N1. 
MOVE (2) A B. 
ADD (2) CD. 



Procedure A-text 



© 



© 
© 



GNI 



L 3, ONCTR 1 

LA 3,1 (3) 

ST 3, ONCTR 1 

C 3,«(16) 

L 2, A (GNI) 

BCRN0TL0,2 

C 3, = (2)-^ 

BCRL0,2 Qs) 

XI XSASW1,X»01» 

CL1XSASW1,X»01» 

BCRN0TEQ,2 

instructions for MOVE 

instructions for ADD 



© 



Figure 46. Analysis of an ON Statement 
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Special Considerations for NonarithHetic 
Verbs 



Nonarithmetic Conversions ; In a few 
instances, nonarithietic data items must be 
expressed in binary form during execution 
of the object program. These instances are 
illustrated by the following source program 
statements: 

60 TO A B C DEPENDING ON X. 
PERFORM RTNA X TIMES. 



In both these cases, the value of X must 
be in binary when the statement is 
executed; however, the source programmer is 
not required to create X as a binary data 
item. This situation also arises in some 
0-routines . 



segmented (a value other than hexadecimal 
PP) , a call to ILBDSEMO is generated. If, 
at execution time, the VN is within the 
same segment, the subroutine will execute a 
normal branch . 



If the 60 TO statement contains a 
DEPENDING ON option, SEGLMT is tested to 
see whether the program is segmented. If 
it is, a call to the COBOL library 
subroutine, ILBDSEMO, is generated. If OPT 
is specified, a call to the COBOL library 
subroutine, ILBD6DO0, is generated. This 
subroutine passes control to the 
appropriate PN. If the program is 
segmented, the address of entry point 
ILBDSEM1 is passed in register 2 to 
subroutine ILBD6DO0. This subroutine then 
determines which PN to branch to and passes 
control to entry point ILBDSEM1 to do 
standard processing for segmentation. 



To handle this, the verb analyzer calls 
routine DNTORl. This routine determines 
whether the value is already in binary or 
must be converted. If conversion is 
needed, DNTORl generates code which 
converts the value at execution time, and 
places the binary value in a work area 
(leaving the value in the data area 
unchanged) . The work area, rather than the 
data area, is then used when the value is 
referenced . 



Procedure Branching in a Segmented Program 
with LANGLVL(l) ; If a GO statement 
transfers control out of the current 
segment and the current segment is not the 
root segment, phase 40 passes a special 
verb code (see "Checking for Segmentation 
in Procedure Branching" in the phase 40 
chapter) . When phase 51 encounters this 
verb code, it generates a call to the COBOL 
library subroutine, ILBDSEMO or ILBDSEMl if 
OPT is requested. The calling sequence is 
given in IBM DOS/VS COBOL Subroutine 
Library Program Logic . This subroutine 
checks to see whether the necessary segment 
(the one containing the object of the 
GO TO) is in storage already, brings it 
into storage if it is not already there, 
initializes the segment, and transfers 
control to the named procedure. 

If the operand is a PN or 6N in a 60 
statement with the regular 60 verb code, a 
normal branch is made whether or not the 
program is segmented. No test is made 
because phase 40 issues a regular verb code 
if the branch did not require segment 
initialization. If the operand is a VN, 
the SEGLMT cell in COMMON is tested. If 
the test indicates that the program is 



Verbs Requipinq Calls to Oblect-Time 
Subroutines 



In this section, the DISPLAY verb is 
discussed as an example of a verb which is 
executed by a COBOL library subroutine. 
The discussion is based on the DISPLAY 
statement shown in Figure 47. In this 
example. A, 6, C, D, and E are data*>names 
whose usage is DISPLAY and whose picture is 
XX. The numbers of the following 
explanations refer to the circled numbers 
in the figure. 



1. Phase 40 puts a maximum of five 
operands in a string. Since the 
number of operands in this DISPLAY 
statement requires a continuation 
string, the first operand generated by 
phase 40 is the COBOL word FIRST, and 
the last operand is the COBOL word 
LAST. This is the form of all 
continued strings. The second operand 
identifies the device and the third 
through next-to-last operands are the 
data items named in the source 
statement. (Note that the P2-text 
contains the attributes, not the 
names, of the data items.) 

2. ILBDDSPO is the name of the DISPLAY 
COBOL library subroutine. Since it is 
a virtual, it is not written as part 
of the Procedure A-text. Rather, its 
virtual number is written as Procedure 
A-text; the name of the virtual itself 
is put out as Optimization A-text. 
See "DISPLAY Literals" below and 
"Literals and Virtuals" in the phase 
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50 chapter for a discussion of how 
this text is produced. 



3. This paraneter gives the device code, 
which is 02 for CONSOLE. The section 
on ILBDDSPO in IBM DOS/VS COBOL 
Siabroutine Library Program Logic 
contains a complete list of device 
codes. 



4. This parameter and the three which 

follow it give operand infornation for 
data«-naae A. Each, operand is 
specified in a lO-byte field. The 
description of ILBDDSPO in IBM DOS/VS 
COBOL Subroutine Library Program 
Logic describes ail the codes; the 
meanings of the codes used in this 
example are as follows: 



Source Statement 

DISPLAY A B C D E UPON CONSOLE. 



P2~text 

DISPLAY 
DISPLAY 



(5) 
(3) 



FIBST CONSOLE ABC 
D E LAST 



© 



Procedure A -text 



L 

BALR 

DC 

DC 

DC 

DC 

DC 



DC 



15, «V (ILBDDSPO) 
1,15 ^ 

XL2»02« V^Uv 
XL1»00« Ci) 

XL3»000002» 
ALU (BC-DISP) 
XL2MF* 



© 



XL2»PPPP» 



© 



Figure U7. Analysis of a DISPLAY Verb 



Code 
00 



000002 



AL4 (BC-DISP) 



Meaning 

Specifies the type of 

the iten. In this case, 

data-name A is 

nonnumeric, ready to 

display. 



Specifies the length of 
the item. Since the 
PICTURE for A is XX, the 
length is two bytes. 



Specifies a displacement 
of an item from the 
beginning of the table 
identified by a base 
code. 



Dy^pLAY nt^T^Xs 



Generation of A-text, including literals 
and virtuals, is almost identical to that 
performed in phase 50. There is one 
exception, however. If a literal is in a 
DISPLAY statement that requires a call to a 
COBOL library subroutine, a sepeurate 
DISPLAY literal Optimization A-text element 
is written. This element is of a different 
type than an internal literal. It is 
generated differently so that phase 60 or 
phase 62 can build separate tables for 
internal and DISPLAY literals and search 
these tables using different techniques. 



5. 



IF Specifies the 

displacement of A from 
the beginning of the 
area controlled by its 
base locator . 



Following the description of A are 
similar 10-byte fields describing each 
of the other operands. The code FFFF 
follows the last description. 



GENERATING SYSTBM/370 INSTRUCTIONS 



If a variable-length move or compare is 
required, the HVCL (for a move) or the CLCL 
(for a compare) machine instruction is 
generated. If a compare involves a field 
greater than 256 bytes long or if the 
receiving field for a move is greater than 
512 bytes long, the CLCL or HVCL machine 
instruction, respectively, is generated. 
If the receiving field for a move is right 
justified and the receiving field for the 
move is either greater than 512 bytes long 
or variable in length, a call is generated 
to the ILBDSNVO COBOL library subroutine. 
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PHASE 60 



Phase 60 (ILACBL60) prepares a machine 
language program suitable for input to the 
linkage editor. The phase is divided into 
several sequential parts, each of which 
performs specific functions. These are, in 
order : 



Determines object program storage 
allocation for the Task Global Table 
(TGT) by processing counters in COMMON 
and calculating the displacements of 
items which reside in the TGT at 
execution time. 



• Optimizes literals, virtuals, source 
procedure-names, and compiler-generated 
procedure-names by processing 
Optimization A-text and the PNUTBL 
table. Determines storage allocation 
in the Program Global Table (PGT) for 
these items and calculates their 
displacements by using counters in 
COMMON. 

• With Procedure A-text as input, 
generates and writes machine language 
instructions. If the program is 
segmented and LANGLVL(l) compiler 
option was specified, groups the 
sections of instructions into segments 
and provides the appropriate linkage 
editor statements. If the SXREF, XREF, 
VERBREF, or VERBSUM option was 
specified, passes procedure -neune and 
data-name definition elements, written 
in DEF-text, to phase 61 on SYS003 and 
passes procedure -name and data-name 
references, in REF-text, to phase 61 on 
SYSOOl. 

• With Data A-text as input, writes 
object text for the data area of the 
object program. 

• Writes object text for the TGT and PGT 
from the RLDTBL table and Data A-text. 

• Writes object text for the INIT2, 
INIT3, and INITl routines of the object 
program, in that order. 

• Writes INCLUDE statements for COBOL 
library subroutines to be entered at 
secondary entry points. 

• Writes ESD, RLD, and TXT statements for 
all virtuals. 

• Prints out compile-time statistics. 



OUTPUT OF PHASE 60 



The output of the phase depends on the 
compiler options specified by the user. 
The SXREF and XREF options have already 
been mentioned. Following are the other 
options which determine the output produced 
by phase 60: ^ 



LISTX : 



CLIST: 



SYM: 



LINK or 
CATAL: 

DECK: 



Causes the TGT, Literal Pool,, 
PGT, register assigments and a 
listing of the object text to be 
written on SYSLST (or SYS006 for 
LVL option). 

Causes the TGT, Literal Pool, 
PGT, register assignments and a 
condensed object program listing 
to be written on SYSLST (or 
SYS006 for LVL option). The 
object program listing is limited 
to the card niamber,, verb name,, 
and address of the first 
instruction for each verb. 

Causes the TGT,, Literal Pool,, 
PGT,, and register assignments to 
be written on SYSLST (or SYS 006 
for LVL option) . 

Causes the object program 
to be written on SYSLNK. 

Causes the object program to be 
written (punched) on SYSPCH. 



The user may specify both the LINK and 
DECK options, in which case the object 
program is written on both SYSLNK and 
SYSPCH. He may also specify NOLINK and 
NODECK; in this case, he receives no 
executable copy of his object program. 

Note that unless at least one of these 
eight options is in effect., phase 60 
produces no output. In this event.. Phase 
60 returns control to phase 00 without 
doing any text processing unless XREF, 
SXREF, VERBREF, or VERBSUM has been 
specified. If one of these options has 
been specified, phase 60 processes the text 
to provide phase 61 with the DEF-text and 
REF-text elements for the cross-reference 
listing. 

The omission of any phase 60 text 
processing also occurs if the SUPMAP 
(suppress output) option is in effect anql 
at least one E- level or D- level error * 
message was generated by any phase. This 
is determined by testing the ERRSEV cell in 
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COMMON. A value of 12 or greater means 
that at least one such error occurred. The 
ERRSEV cell is discussed further under 
"E-text" in the phase 51 chapter. 

Phase 60 does not write object text in 
execution-time sequence. Rather, it 
instructs the linkage editor to reorder the 
text by assigning relative addresses in 
execution-time order. To do this,, it 
allocates space for areas that will be 
written later, incrementing the LOCCTR 
(location counter) cell of COMMON to 
reflect the relative location at execution 
time of the area currently being processed. 



TASK GLOBAL TABLE STORAGE ALLOCATION 



When phase 60 receives control, the 
LOCCTR contains the relative address of the 
Task Global Table (TGT) in the load module. 
It was incremented by phases 22 and 21, 
which added the length of the data area to 
that of the INITl routine (these areas 
precede the TGT in the load module) . 

Routine TGTINT first does preliminary 
computations to determine the length of the 
entire TGT- If this length exceeds 4 096 
bytes, one U-byte OVERFLOW cell is 
allocated for each 4096-byte area after the 
first. Then this routine computes the 
locations of TGT fields after the OVERFLOW 
cells. 

Some fields of the TGT are constant in 
length; others are variable — their 
lengths depend on the requirements of the 
program being compiled. For most of the 
variable fields, there is a counter in 
COMMON used to compute its length. When 
the value has been used, the counter is set 
to the displacement of the corresponding 
field in the TGT. Figure 48 lists these 
counters and the TGT fields to which they 
correspond. As the TGT is processed, a 
count of the displacement of the current 
field from the start of the TGT is kept in 
a register called RWl. 

Some of the counters in COMMON specify a 
number of bytes. Others specify a number 
of entries, where each entry requires two 
or four bytes. In the latter case, the 
value of the counter is multiplied by two 
or four before it is used to compute 
displacements . 

This is done in routine DSPLAC, which is 
called for each variable-length field. Two 
parameters are passed to this routine: the 
address of the counter in COMMON and the 
number of bytes for each entry. From the 
number of bytes, DSPLAC also determines 
boundary alignments. DSPLAC places the 



value of RWl (the displacement of the field 
in the TGT) into the counter and adds the 
length of the field to RWl, 

If the LISTX, CLIST, or SYM option was 
specified, DSPLAC calls routine MAPLOC, 
which prints one line at a time. If the 
SUPMAP condition exists, no printing is 
done. 

If any of the debugging options is in 
effect, the SWITCH cell,, the CURRENT 
PRIORITY cell (initialized to zero only), 
the DEBUG TABLE PTR cell, and the DEBUG 
TABLE information in the TGT are set by 
phase 65. 

After the length of the entire TGT has 
been calculated, the value of RWl (the 
length of the TGT) is added to the LOCCTR 
cell. The value of the LOCCTR cell is now 
the displacement of the PGT. 



O PTIMIZING STORAGE FOR THE PROGRAM GLOBAL 
TABLE 



The general function of this part of 
phase 60 is to allocate space for the 
Program Global Table (PGT) in the same way 
that TGT storage was allocated. Before 
this can be done,, however, the required 
space must be determined for the literals, 
virtual s, and procedure-names which reside 
in this table at execution time. The 
routines which determine the lengths of 
these fields also optimize the contents of 
the fields by eliminating duplication. 

For optimizing, the PNUTBL table and 
Optimization A-text are used. Processing 
of the PNUTBL table occurs first. Then the 
Optimization A-text is read and processed. 

Optimization A-text, which was generated 
by phases 50 and 51, contains the following 
kinds of elements : 

• EQUATE Strings, which equate generated 
procedure- names (GNs) to corresponding 
user defined procedure-names (PNs) or 
equate GNs to other GNs in cases where 
all the PNs and GNs refer to the same 
location, (For a description of how 
and why these strings are built,, see 
"Building PN and GN EQUATE Strings" in 
the chapter on phase 51.) 

• Literal definitions, containing the 
actual value of the literal. 

• DISPLAY literal definitions. 

• Virtual definitions. 
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• Virtual reference definitions for error 
processing and input/output routines. 

• Variable procedure-name (VN) 
definitions, if the program is 
segmented, for building the VNPTY 
table. 
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Counter 


Contents from Earlier Phases 


TGT Field 


Multiplication 
Factor 


BLCTR 


Number of base locators assigned to files and 
Working-Storage 


BL 


4 


DTFNUM 


Number of DTFs 


DTFADR 


4 


AMICTR 


Number of FiBs for VSAM files 


FIB 


4 


TSMAX 


Number of doublewords needed for arithmetic 
temporary storage 


TEMPORARY 
STORAGE 


8 


TS2MAX 


Number of bytes needed for nonarithmetic 
temporary storage 


TEMPORARY 
STORAGE- 2 


1 


TS3MAX 


Number of bytes needed for aligning 
non-SYNCHRONIZED data items 


TEMPORARY 
STORAGE- 3 


1 


TS4MAX 


Number of bytes for table-handling verbs 


TEMPORARY 
STORAGE -4 


1 


BLLCTR 


Number of base locators assigned to Linkage 
Section 


BLL 


4 


VLCCTR 


Number of variable location cells (containing 
current length of a variable-length field) 


VLC 


2 


SBLCTR 


Number of secondary base locators (location of 
a field variably located because it follows a 
variable- length field) 


SBL 




INDEXl 


Number of index-names defined in files . 


IND 




SUBCTR 


Number of subscript cells 


SUBADR 




ONCTR 


Number of ON control cells 


ONCTL 




PFMCTR 


Number of PERFORM control cells (for PERFORM 
X TIMES) 


PFMCTR 




PSVCTR 


Number of PERFORM save cells 


PFMSAV 




VNLOC* 


Number of variable procedure-names 


VN 




SA2CTR 


Number of save area 2 cells 


#TSAVAR2 




SA3CTR 


Number of save area 3 cells 


#TSAVAR3 




XSWCTR 


Number of EXHIBIT switches 


XSASW 




XSACTR 


Number of bytes for EXHIBIT saved area 


XSA 




PARMAX 


Number of words for parameter area 


PARAM 




RPTSAV 


Number of words for report save area 


RPTSAV AREA 




CKPCTR 


Number of checkpoint cells needed 


CHECKPT CTR 




lOPTRCTR 


Number of pointers for SAME RECORD AREA clauses 


lOPTR CELLS 




*The numb 
not the 
TGT proc 
the proc 
field ir 


>er of VNs in the program is passed to phase 60 in 
VNLOC cell. However, this value is moved into the 
;essing uses VNLOC rather than VNCTR. This is bees 
fram must also be known for PGT allocation to detex 
i the PGT. 


the VNCTR ce] 
i VNLOC cell s 
luse the numbe 
'mine the size 


.1 of COMMON, 
md all further 
jr of VNs in 
i of the VNI 



Figure 48. Use of Counters in COMMON To Allocate Space in the TGT for Variable-Length 
Fields 
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Virtual References Definj.tions; 
Table 



IIMSk 



During the virtual optimization, the 
PILTBL table is built for the virtual names 
related to the input/output and 
error-processing routines. Virtual 
reference elements are not optimized and do 
not become part of the P6T. It is 
convenient .to have them here, since RLDs 
and ESDs can be punched for them at the 
same time as for the other virtuals. They 
are placed in the DTP portion of the object 
module in the LIOCS module name field. 



Building the VN Priority Table 



VN definition elements are not used for 
optimization. They are included in the 
Optimization A-text for a segmented program 
because they are used to build a table 
(called VNPTY) which must be completely in 
storage for the next part of phase 60 
processing. As an element is read, it is 
entered unchanged into this table. After 
the Optimization A-text file has been 
closed, the VMPTT table is sorted in 
ascending order of VN number. 



Optiroizjt.ng PMs and GNs 



The first step in optimizing PNs and GNs 
is to allocate space in the compiler table 
area for the PNTBL and 6NTBL tables. The 
lengths of these tables are determined from 
the values of PNCTR and 6NCTB in COMMON. 
Then, in routine PNDPRO, the PNTBL is 
processed against the PNHTBL. (The PNTBL 
table, containing one entry for each 
procedure -name in the program, is used only 
in phase 60; the PNDTBL was built by phase 
51. See "Building the PNUTBL Table" in the 
chapter on phase 51 for a description of 
how and why this table was created.) If a 
PNUTBL entry has a value of one, the 
corresponding PNTBL entry is numbered. The 
numbers are seguential, beginning with one. 
If the PNUTBL entry has a value of zero, 
this means that the procedure-name is never 
referred to in the program and can be 
eliminated; therefore, the corresponding 
PNTBL entry is set to zero. Once the PNTBL 
values have all been set, the PNUTBL table 
is released. 

Figures 49 through 51 provide an example 
of this processing for a program containing 
six PNs and six GNs. In Figure 52, the 
table entries are shown as they would 
appear after the PNUTBL table processing. 
Optimization A-text is then read by routine 



READF2. Each time a PN or GN EOUATE string 
is encountered, READF2 calls the routines 
(PNEQUR or GNEQUR, respectively) which 
process these strings. 

Note: In Figures H9 through 51 the numbers 
to the left of the tables are A-text PN and 
6N numbers. They specify implicit 
positions in the table. 



PNUTBL 



PNTBL 



6NT6L 



r 

1 1 1 
1 , 


-1 
H 

H 


1 
2 

3 
4 
5 
6 


1 '1 
1 


1 

2 

3 

4 

5 

6 
1 


1 


2 1 
1 





1 
1 


3 1 1 

1 , 


2 


1 


4 1 1 


3 


1 


5 1 





I 
1 


6 1 1 
1 


4 

1 1 


1 1 
1 ■ 



Figure 49. PNUTBL, PNTBL, and GNTBL Tables 
at the Beginning of 
Optimization Processing 

Figure 50 shows the effect of a PN 
EQUATE string indicating that 6N1 equals 
PN3. The referenced number of PNS (the 
number found in the PNTBL entry for PN3 — 
2 in the example) is entered into the 
position for 6N1. If there were no other 
EQUATE strings read, the following would 
occur after the Optimization A-text file 
had been closed: GN2 through GN6 would be 
assigned relative numbers sequentially, 
starting with the number after the last 
referenced PN number in the PNTBL table 
(which is 4 in the example) . The GNTBL 
entries would then read 2, 5, 6, 7, 8, 9. 
If, however, as shown in Figure 50, a GN 
EQUATE string is encountered, equating GN2 
with GN4 and 6N5, the relative number of 
GN2 is assigned to GN4 and GNS. This 
number is 5, since GN2 contains the next 
seguential number after PN6. 



GNTBL 



1 
2 

3 
4 
5 
6 

Figure 50. 



I \ Equates GN1 to PN3 



J 



Equates GN4 and 
GNS to GN2, which, 
it can be assumed, 
will be assigned a 
relating number of 



GNTBL Table After PN and GN 
Equate Strings Have Been 
Processed 
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After the Optimization A-text file has 
been closed, relative numbers are assigned 
to each GN not equated to a PV or another 
6N. The completed 6NTBL table for the 
example is shown in Figure 51. 



Figure 52 shows an example of these 
tables after all Optimization A-text has 
been processed. The Optimization A-text 
contained literal definition elements for 
the following literals: 



6NTBL 



1 


2 1 


2 


5 1 


3 


6 1 


t\ 


5 1 


5 


5 1 


6 


7 1 

• 



8, 3(DISPLAY), 3, 9, T (DISPLAY) , 8 



The DISPLAY literal "3" is assumed to have 
a length of 5, and the CONTBL literals each 
have a length of 1. 



Literals 



CONTBL 



Figure 51. 6NTBL Table After the Relative 
Numbers Have Been Assigned 



Note; In the object code listing » the 
optimized GNs are numbered sequentially, 
starting with 1. 



CONDIS 



DISPLAY I 

Literals \ Y | 



H 



Write text, 
increment SN1, 
and release tables 



OptjLmizina Literals and DISPLAY Literals 



The literal optimizing routines are used 
to eliminate storage duplication in cases 
where the source programmer used the same 
literal more than once. Routine LTLRTN 
processes internal literals, and routine 
LTLDIS processes DISPLAY literals. These 
routines build three tables: the CONTBL 
and CONDIS tables (for internal and DISPLAY 
literals, respectively) contain one entry 
for each unique literal, and the LTLTBL 
table contains an entry for each use of a 
literal. 

When a literal definition is 
encountered, the CONTBL or CONDIS table is 
searched for an entry identical to the 
literal (to be identical, two internal 
literals must meet the same boundary 
requirements as well as having the same 
value). If no match is found, the new 
literal is entered into the CONTBL or 
CONDIS table. Any bytes skipped because of 
boundary alignment are filled with zeros. 
The displacement of this entry from the 
beginning of the table is placed into table 
LTLTBL with a bit set to indicate whether 
it is a CONTBL or CONDIS entry. If a match 
is found, only an LTLTBL entry is made. 
This LTLTBL entry is the displacement of 
the CONTBL or CONDIS entry that matched the 
literal being processed. 



LTLTBL 



(CONTBL Displacement 
of 8) 



(CONDIS Displacement 
of 3) 



1 (CONTBL Displacement 
of 3) 



2 (CONTBL Displacement 
of 9) 



5 (CONDIS Displacement 
of Y) 



Add PGT dis- 
placements and 
save table 



(CONTBL Displacement 
of 8) 



Figure 52, CONTBL, CONDIS, and LTLTBL 
Tables After Processing 
Literals 



After the Optimization A-text file is 
closed, the literal pool is written on 
SYSLST (SYS006 for LVL option) , using the 
contents of the CONTBL and CONDIS tables, 
if the LISTX, CLIST, or SYM option was 
specified (no printing is done if the 
SUPNAP condition exists) . 
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Qptimizipg Yirtuals 



The virtual optimizing routine (VIRRTN) 
is used to eliminate storage duplication in 
cases where the same EBCDIC name of a 
called program is referred to in more than 
one CALL statement or in more than one call 
to a COBOL library subroutine. The logic 
of this processing is similar to that of 
literal optimization. Two tables are 
built: the CYIRTB table, containing one 
entry for each unigue virtual, and the 
▼IRPTR table, containing one entry for each 
reference to a virtual. 



ALLOCATING STORAGE FOR THE PROGRAM GLOBAL 
TABLE 



When all Optimization A-text has been 
read, storage is allocated for the PGT. If 
the program is not segmented, entries for 
the external symbol dictionary are created 
for virtuals, object text is written for 
virtuals and literals, and entries are made 
in the RLDTBL table for subseguent writing 
of the relocation dictionary. Counters in 
COMMON are set to the displacements of 
their corresponding PGT fields from the 
beginning of the PGT. 



When a virtual definition is 
encountered, the CVIRTB is searched for an 
identical entry. If none is found, the new 
virtual is entered in the CYIRTB table. 
The displacement of this virtual from the 
beginning of the CYIRTB is entered into the 
YIRPTR table. If a match is found, only a 
YIRPTR entry is made. This YIRPTR entry 
contains the displacement in the CYIRTB 
table of the entry that matched the virtual 
being processed. 

Figure 53 shows the contents of these 
tables after processing Optimization A-text 
for a program containing the following 
virtuals: 

CYIRT1, CYIRT2, CYIRT3, CYIRT1, CYIRT2. 



CYIRTB 



CALL virtuals 



CYIRT 



CYIRT2 



CYIRTB 



1 l) Hri 
If inc 

2 l> RH1 



Write text, 
increment 

release 
tables 



YIRPTR 



PGT (CYIRTB) 
displacements : 



0(Disp. of I 
CYIRT 1) I 



8(Disp. of! 
CVIRT2) I 



16 (Disp. of I 
CYIRTB) I 



Save 



0(Disp. of I 
CYIRT1) I 

H 



8 (Disp . of I 
CYIRT2) I 



Note: Each CYIRTB entry is 8 bytes long. 

Figure 53. CYIRTB and YIRPTR Tables After 
Processing Yirtuals 



If the LISTX, CLIST, or STH option was 
specified, the format of the PGT is written 
on SYSLST (SYS006 for LYL option) using 
routine MAPLOC (if the SDPMAP condition 
exists, this writing does not take place) . 



OYERFLOW Allocation: Preliminary 
calculations are made to determine whether 
the size of the PGT exceeds 4096 bytes. If 
it does, one 4-byte OYERFLOW cell is 
required for each 4096-byte area after the 
first. The number of bytes required is 
placed in register RW1, which is used 
throughout PGT allocation to hold the 
displacement of the field currently being 
processed . 



YIRTOAL Allocation; After the OYERFLOW 
CELLS field of the PGT has been calculated, 
the YIRTUAL field is processed. The YIRCTR 
cell of COMMON is set to the displacement 
of the YIRTDAL field from the beginning of 
the PGT (this value is zero unless OYERFLOW 
cells have been allocated) . 



To determine the length of the YIRTUAL 
field, four bytes are allowed for each 
entry in the CYIRTB table. The calculated 
length is added to RW1. The CYIRTB table 
is kept for use during Procedure A-text 
processing, when the values (EBCDIC names) 
in it are used to generate in-line 
constants for CALL statements. 



The entries in the YIRPTR table are 
changed to contain displacements in the 
YIRTUAL field (see the example in Figure 
41) . The table is saved for subsequent use 
during Procedure A-text processing. 



In Figure 54, the plus sign (-•■) means 
the displacement in bytes of the VIRTUAL 
from the beginning of the YIRTUAL field in 
the PGT, The values are also PGT 
displacements if no overflow cells are 
present. 
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VIRPTR 
r T 



+ 



H 



+4 
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+ 

^ 
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Each VIRTUAL in the 
PGT is four bytes 
long. 



Figure 5U, 



VIRPTR Table After VIRTUAL 
Allocation 



PNTBL 
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j. 

3| + 4 
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Figure 55. PNTBL Values After PGT 
Allocation 



PN Allocation; After the VIRTUAL field has 
been processed, the value in RWl is the 
displacement of the PN field in the PGT. 
This value is saved in the PNCTR cell of 
COMMON. 



For each referenced PN in the PNTBL 
table, a U-byte cell is allocated in the 
PGT, The PNTBL entry is set to the 
displacement of this cell from the 
beginning of the PGT. If a PN was not 
referenced (if the value in the PNTBL entry 
was zero) , no space is allocated. In the 
example in Figure 55, only four U-byte 
cells are required in the PGT. After the 
PNTBL table entries have been adjusted, the 
entry for PN3 exceeds the entry for PNl by 
four., and the entry for PN2 remains zero. 
The total length of the PN field (16 bytes 
in the example) is then added to RWl, 



For each unique GN, a 4-byte cell is 
allocated in the PGT. The GNTBL entry is 
set to the displacement of this cell from 
the beginning of the PGT. However, if the 
GN was equated to a PN or another GN, the 
GNTBL entry is set to the PGT displacement 
of that PN or GN. This is illustrated in 
Figure 55, which shows the GNTBL table 
after this processing, for the same example 
as in Figures 49, 50 and 51. In this 
example, GN4 and GN5 were equated to GN2. 
Therefore, the GNTBL entries for GN4 and 
GN5 contain the displacement of GN2. The 
PGT for this program contains only three 
unique GN entries, or twelve bytes. After 
all entries have been processed, the length 
of the GN field (12 in the example) is 
added to RWl. 



The GNTBL table is saved for use during 
Procedure A-text processing. 



Figure 55 shows the PNTBL table for the 
same program as in Figure 49 after PGT PN 
allocation. The table is saved for use 
during Procedure A-text processing,, when 
the values it contains are used as 
displacements in instructions. 



SDTFADR Allocation : The SDTFCTR cell in 
COMMON is used to determine how much space 
is required; four bytes are reserved for 
each SDTF in the program. The cell is set 
to the value of RWl, and RWl is then 
incremented to reflect the allocated bytes. 



In Figure 55, the plus sign (+) means 
the displacement in bytes of the PN from 
the beginning of the PN field in the PGT. 
The values are also PGT displacements if no 
overflow cells are present. The n\imbers to 
the left of the tables are A-text PN and GN 
numbers. They specify implicit positions 
in the table. 



VNI Allocation; The VNCTR cell of COMMON 
was used by earlier phases to count the 
number of variable procedure-names in the 
program. The value of VNCTR is moved to 
the VNILOC cell of COMMON. From VNILOC, 
four bytes are allocated for every VN. The 
displacement of the VNI field (the value of 
RWl) is placed in the VNILOC cell, and the 
number of bytes allocated is added to RWl. 



G N Allocation ; The value in RWl is now the 
displacement of the GN field in the PGT. 
This value is placed in the GNCTR cell of 
COMMON. 



LITERAL Allocation; The displacement of 
the LITERAL field in the PGT (the value of 
RWl) is placed in the LTLCTR cell of 
COMMON. The length and contents of the 
LITERAL field will be identical to the 
CONTBL and CONDIS tables. 
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For each LTLTBL entry that refers to 
CONTBL, the value in the LTLTBL table is 
replaced by the displacement of the 
specific literal from the beginning of the 
PGT. This displacement is calculated by 
adding the value already in the LTLTBL 
entry (which is the CONTBL displacement of 
the literal) to the value of RWl. 

The same processing occurs for LTLTBL 
entries that refer to CONDIS, except that 
the increment includes the length of the 
CONTBL table. This is because DISPLAY 
literals are placed after internal literals 
in the PGT. The LTLTBL table is saved for 
use during Procedure A- text processing. 
The lengths of the CONTBL and CONDIS tables 
are used to increment RWl. If the program 
is not segmented, the contents of the 
tables are used to write object text, and 
the tables are released. In a segmented 
program, writing of object text is delayed, 
and therefore the tables are kept. 



PROCEDURE A-TEXT PROCESSING 



Phase 60 reads Procedure A-text to 
produce machine-language instructions for 
the object program. One element of text is 
read and processed at a time,, and the 
object code produced for this element is 
placed in a work area called 0U6REC. One 
or more elements are required to produce a 
complete instruction. When an instruction 
is complete, it is written out from the 
work area, and the LOCCTR cell in COMMON is 
incremented by the number of bytes written. 

If the instruction involves a base 
locator, the processing routine refers to 
or updates the REGMTX table (see "Executior 
Time Base Register Assignment" in this 
chapter) , which is a table internal to 
phase 60. Base locators were assigned by 
phase 22. 

If the LISTX compiler option is in 
effect, routine PUT is called to write a 
line of text on SYSLST (SYS006 for LVL 



option) every time a complete instruction 
has been written. If the CLIST option is 
in effect, this routine is called only for 
each verb (if the SUPMAP condition exists, 
this writing does not take place) . 

If the SYMDMP or STATE option is in 
effect. Procedure A-text is used to create 
Debug-text which is written on file SYS002. 
Debuq-text elements are written by the 
WRITEIOA, WRITE20A, and WRITE30A routines.. 
WRITEIOA is called for all card nianbers 
encountered and produces Debug-text 
elements which contain the card number and 
the contents of the LOCCTR cell when the 
card number was encountered, Debug-text 
also contains: 

• Priority elements, which give the 
priority number of each segment in a 
segmented program or zero priority for 
a program which is not segmented, or in 
any case for LANGLVL(2). 

• Discontinuity elements, which are 
created when phase 60 combines two 
sections of equal priority that have 
discontinuous card numbers because of 
an intervening section or sections of 
different priority, 

• Segment elements which identify the 
last byte of pach segment. 

Debug text is used by phase 65 to 
produce debugging information for the 
object-time COBOL library debugging 
subroutines. If any of the debugging 
options is in effect,, phase 60 builds the 
TGTADTBL table, which is used to pass 
debugging information to phase 65. 

If the SXREF, XREF, VERBREF, or VERBSUM 
option is in effect. Procedure A-text is 
used to create REF-text and to write it on 
file SYS003. This text, containing an 
element for every data-name, file-name, 
procedure- name, and verb in the program, is 
used by phase 61 to produce a 
cross-reference listing. 

Figure 56 describes the processing for 
each type of Procedure A-text element. 
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1 1 ' — ■■■■ -' ' '■ '» 

ICode and Type | Action Taken 1 


|2C* 1 Store in 006CDN, XPCDNO, and OUCCDN. If LISTX or CLIST is re- | 
Icard nuaber iguested, read LISTING A-text. Used to generate an in-line constant j 
1 |for TRACE, which calls the DISPLAY object-time subroutine. If | 
1 JSTHDIIP or STATE is reguested, write Debug-text. 1 


130* losing PN number as an index, look in PNTBL (see "PN Allocation** in | 
JPN definiton |this chapter) to get displacement in P6T of the cell for this PN. | 
1 {Create an BLDTBL entry which will place the current value of LOCCTB l 
1 |in the P6T cell. I 


|34* ISame as PN definition, using 6N number and 6NTBL. (See **6N | 
|GN definition j Allocation** in this chapter.) 1 


\3&* 1 Create an indirect RLDTBL entry from this element and the PN | 
|VN definition (reference which follows it. I 


|3C (Convert the current card number into an EBCDIC constant of the form:| 
(EBCDIC ( 1 
(procedure-name j I 
( ( DC X»»»« ( 
1 j DC CL5' generated card number' j 


\HH (Use byte 2 of the element as index to a branch table, phase 60 ( 
(macro-type (produces the required coding or takes the required action. The j 
(instruction (contents of these elements are listed in the Procedure A-text j 
( (formats of **Section 5. Data Areas.** ( 


\UB (This element contains in machine language the first two bytes of an ( 
I op code (instruction. The first byte is the op code; the second may give j 
( (condition codes, registers, or other operands. For an BR type, thisj 
( (element contains the complete instruction. The 2 bytes following U8( 
( (are written out as received. ( 


(4C (This is the operand of a LOAD instruction. Procedure branching ( 
(PN reference (is accomplished by loading an address and then branching to it. j 
( (Using register M** as base, find displacement by using PN number as( 
( (an index into PNTBL (see »*PN Allocation'* in this chapter) . Using | 
j (card number stored in XFCDNO, write an element of REF-text for phase ( 
( (61 if XREF was specified. ( 


(50 (Same as PN reference, using 6N number and GNTBL. See **GN ( 
(GN reference (Allocation** in this chapter. No REF-text is written. ( 


(54 (Use register 13** as base. Get displacement of VN-I field of T6T ( 
(VN reference (from VNLOC cell in CONMON (see **Task Global Table Storage ( 
( (Allocation** in this chapter) . If program is unsegmented, use VN ( 
( (number to compute displacement of this VN cell. If program is ( 
j (segmented, YNs are stored in the T6T in order of priority number, ( 
i (not VN number; search the VNPTT table (see **Building the VN Priority ( 
I (Table** in this chapter) for this element. Displacement in the VN-I ( 
( (field will be the sane as displacement in the table. | 


( *lndicates no object text written for this element. I 
(**At execution time, register 12 always points to the beginning of the PGT, register 13 ( 
( always points to the beginning of the TGT. If the displacement of an item in the PGT( 
( or TGT exceeds 4096 bytes, an OVERFLON cell must be used. The OVERFLOW CELLS fields ( 
( of both the PGT and TGT are at fixed displacements from register 12 and register 13, ( 
1 respectively. The OVERFLOW cell to be used is determined from the value of the ( 
( displacement; that is, a value from U096 to 8191 uses cell 1, from 8192 to 12,227 ( 
( uses cell 2, etc. An instruction is generated to load register 14 or register 15 ( 
j from the OVERFLOW cell. Then, in the operand currently being processed, register 14 | 
( or register 15 is used as the base, and the displacement is decremented by 4096, ( 
( 8192, etc. ( 
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1 1 T 

ICode and Type | Action Taken 1 


158 |Use virtual number as an index into the VIRPTR table (see "VIRTUAL | 
1 virtual j Allocation" in this chapter) . Table entry contains displacement j 
{reference jof this virtual in the P6T. Use register 12** as base. j 


|5C IThis element is operand of an instruction which loads a base t 
|BL reference | register. Use register 13** as base. Get the displacement of BLL j 
1 lor BL field in the T6T from BLLCTR or BLCTR in COMMON. Use BL | 
1 1 number to compute displacement of this cell. Update table REGMTX. j 


|60 |Use register 13** as base. Displacement is picked up from a list of | 
JTGT standard | constants. 1 
larea reference | I 


|64 lUse register 13** as base (unless the element specifies the SDTFADR | 
1 Global Table | field of the P6T, which uses register 12**) . Get displacement of j 
{variable located I the T6T or PGT field from the appropriate cell in COMMON, and use j 
larea reference {identifying number to compute displacement of this item. See "Task | 
1 JGlobal Table Storage Allocation" and Figure 18 in this chapter. | 


|68 |The number in the text element refers to the sequential number | 
{literal {assigned to the literal from the LTLCTR cell in COMMON. The element! 
{reference {is used to calculate the displacement of the literal in the LITERALS! 
{ {field of the PGT. { 


(6C (This element is used to create an in-line constant for a calling ( 
(DC definition (sequence. Bytes following the code are used to write text. | 


[70 (Specifies the actual register number and displacement for the | 
(base and (instruction. Bytes following the code are used to write text. ( 
(displacement ( j 
II . 1 


(78 (Search table REGMTX on i and k (BL type and BL number). If match isj 
(address (found, the required BL is already in a register. Use that register j 
(reference (as base. If no match is found, generate an instruction to load ( 
( (register 14 or register 15 with the BL from the BL or BLL field of ( 
( (the TGT and use that register as the base (see Code 64, "Global j 
j (Table variably located area reference," in this table for a ( 
j (description of how the LOAD is generated) . Displacement is d field ( 
{ (of the element. Get card number from XPCDNO to write an element of ( 
{ (REP -text. ( 


(7C (This element always follows a 2C element. It is used for listing ( 
(EBCDIC (VERBS and paragraph -names when CLIST or LISTX is in effect. It is ( 
(data-name (also used to generate an in-line constant for TRACE, which calls j 
[reference (the DISPLAY object-time subroutine. ( 


(80 (This element is required, for example, by the second MVC for a j 
(address (MOVE of more than 256 bytes. The element itself would have a value,! 
(increment (in this case, of 256 (the value of the increment) . Add it to the d ( 
( ( (displacement) field of whatever reference preceded it. ( 
I ' 1 


{ *Indicates no object text written for this element. ( 
{**At execution time, register 12 always points to the beginning of the PGT, register 13 ( 
( always points to the beginning of the TGT. If the displacement of an item in the PGT( 
( or TGT exceeds 4096 bytes, an OVERFLOW cell must be used. The OVERFLOW CELLS fields { 
{ of both the PGT and TGT are at fixed displacements from register 12 and register 13, j 
( respectively. The OVERFLOW cell to be used is determined from the value of the ( 
( displacement; that is, a value from 4096 to 8191 uses cell 1, from 8192 to 12,227 ( 
{ uses cell 2, etc. An instruction is generated to load register 14 or register 15 ( 
{ from the OVERFLOW cell. Then, in the operand currently being processed, register 14 ( 
{ or register 15 is used as the base, and the displacement is decremented by 4096, ( 
( 8192, etc. 1 



Figure 56, Processing Procedure A-text Elements (Part 2 of 3) 
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I Code and Type 

I- 



Action Taken 



4- 



84 

relative 

address 



This elenent is used to create an in-line pointer to an item in a 
field of the T6T or P6T for a calling sequence. Get displacenent 
of field froB appropriate counter in COHHON and use identifying 
number to conpute displacement of item. 



AO* 

register 

specification 



Specifies the register used by a macro instruction element, and 
must follow certain of these elements. See the list of macro-type 
instructions in "Section 5. Data Areas** under •*Procedttre A-text.»* 



A4 

incremented 

address 



This element combines the address reference (code 78) and increment 
(code 80) elements into one. See those elements in this table. 



BO 

calling sequence 

displacement 



Used to create an in-line T6T or P6T pointer for a call to an 
object-time subroutine which expects a parameter containing a 
displacement from register 13 or register 12. 



B4* 

calling sequence 

dictionary 

pointer 



Used, when a file-name or data-name occurs in a calling 
sequence, to write a REP-text element for phase 61. Pick up 
card number from XFCDNO. 



B8* 

file reference 



Used to write an element of REP-text. 



^Indicates no object text written for this element. 
**At execution time, register 12 always points to the beginning of the P6T, register 13 
always points to the beginning of the T6T. If the displacement of an item in the P6T 
or T6T exceeds 4096 bytes, an OVERFLOW cell must be used. The OVERFLOW CELLS fields 
of both the P6T and T6T are at fixed displacements from register 12 and register 13, 
respectively. The OVERFLOW cell to be used is determined from the value of the 
displacement; that is, a value from 4096 to 8191 uses cell 1, from 8192 to 12,227 
uses cell 2, etc. An instruction is generated to load register 14 or register 15 
from the OVERFLOW cell. Then, in the operand currently being processed, register 14 
or register 15 is used as the base, and the displacement is decremented by 4096, 
8192, etc. 

Figure 56. Processing Procedure A-text Elements (Part 3 of 3) 



Processing in a Segmented Progrsun 

The processing of segmented programs is 
dependent on the LANGLVL option. In 
general, LANGLVL (2) segmented programs do 
not appear to be segmented to phase 60, 
since the SEGLMT byte in COMMON has been 
reset to X'FF' by phase 51. Hence no 
linkage editor overlay structures are 
generated for these programs. 

When a program is not segmented, or 
when the program is compiled with 
LANGLVL (2), phase 60 reads Procedure A-text 
in the order in which it was written. When 
a program is segmented and compiled with 
LANGLVL (1), Procedure A-text is read in 
such an order that the procedure 
instructions for the root segment are 
processed last. The compilation of the 
root segment is deferred because 
information contained in Data A-text must 
be included in the root segment and Data 
A-text is only processed after Procedure 
A-text processing is completed. Although 
the root segment is processed last by 



phase 60, all object text for the root 
segment before the text for the nonroot 
(independent and overlayable) segments is 
written. Nonroot segments contain only 
procedure instructions. The TGT, PGT, 
Report Writer routines, Q-routines, and 
data area for the entire program are 
included in the root segment, which is 
resident in storage throughout program 
execution. 

If the program is segmented and 
LANGLVL (1), the value of the LOCCTR cell 
in COMMON is saved, and LOCCTR itself is 
set to zero. LOCCTR is again set to zero 
every time the processing of a new segment 
begins. This is because LOCCTR points to a 
location relative to the beginning of the 
object module; since each segment is a 
separate object module, each begins at a 
relative address of zero. 

Procedure A-text is read from the 
direct-access file SYS001 using the segment 
priority table (SE6TBL) . For a description 
of how this table is built, see 
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"Segmentation Control Breaks" in the 
chapter on phase 51. The table format is 
given in "Section 5. Data Areas." 

In phase 11, the priority numbers of all 
sections in the root segment were set to 
zero. If the SE6MEHT-LIMIT clause was 
specified, the root segment consists of all 
sections whose priority number is less than 
the value of SEGMENT-LIMIT. If 
SEGMENT-LIMIT was not specified, the root 
segment consists of all segments whose 
priority is less than 50. 



Routine SE6PR0C searches the SEGTBL 
table for the first entry whose priority is 
not zero. It then calls COS in phase 00 
with a request for SEGPNT, passing the 
relative disk address of this section. The 
SEGPHT routine in phase 00 positions the 
access mechanism to the correct address on 
the file (more information on this routine 
is in the phase 00 chapter under "Phase 
Input/Output Requests") . The section of 
Procedure A-text is then read and 
processed. Nhen a segmentation control 
break is encountered in the text, the 
SEGTBL is searched for other sections of 
the same priority. 

Notet A section is a series of source 
program procedure instructions grouped 
under the same section-name. A segment is 
all the instructions whose sections have 
the same priority. A segment may consist 
of one or more sections. There is a SEGTBL 
entry for every section whose priority 
differs from that of the section preceding 
it. 

When all sections of one priority have 
been processed, the SEGTBL table is 
searched for another nonzero priority, and 
the process is repeated (LOCCTR is set to 
zero each time) . If the SYMDHP or the 
STATE option is in effect, at the end of 
processing for each segment, the final 
LOCCTR value for that segment and the 
priority for the next segment to be 
processed are both written on file SYS002 
for phase 65. As machine instructions are 
generated, object text for the nonroot 
segments is written temporarily on work 
file STS004. This is done so that the root 
segment can be written first on the output 
file. 

After the last nonroot segment has been 
processed, the LOCCTR cell of COMMON is set 
to the location in the root segment of the 
PGT. Object text is then written from the 
CVIBTB, CONTBL, and CONDIS tables, which 
contain the values of virtuals and literals 
to be stored in the PGT (see "LITERAL 
Allocation" and "VIRTOAL Allocation" in 
this chapter) . Then LOCCTR is set to the 
beginning of the procedure area of the root 



segment, which was saved in cell L0CP6M, 
and processing of the Procedure A-text for 
the root segment begins. The text is 
located on file SYS001 by finding all 
entries of zero priority in the SEGTBL 
table. 

Object text for the root segment is 
written directly into the output file. The 
object text for the nonroot segments is 
then copied from SYSOOU on the output file. 

No procedure or verb names are printed 
on the listing. Instead, the card number 
is printed, and if a card contains more 
than one verb, the object code for each 
verb is accompanied by a number beginning 
with 1 for each card. 



Execution Time Base Register Assignment 



Before Procedure A-text processing 
begins, permanent base registers are 
assigned. Register 12 is always assigned 
to the PGT, and register 13 to the TGT. 
Registers 6 through 11 are available to the 
data area. Of these registers, one is 
permanently assigned to the beginning of 
the Norking-Storage Section, and the rest 
to files, in the order in which FDs 
occurred. If any registers are still left, 
they are assigned to the rest of Working 
Storage (if there is any) . If the LISTX, 
SYM, or CLIST option was specified, a list 
of permanently assigned registers and the 
BLs (base locators) associated with them is 
written on SYSLST (or SYS006 for LVL 
option). At execution time, permanent base 
registers are loaded from the TGT by 
routine INIT3. (Registers through 5 are 
work registers; instructions using these 
registers are generated from the Procedure 
A-text.) Registers 14 and 15 are used as 
temporary base registers. 

To assign base registers in procedure 
instructions, phase 60 refers to and 
updates table REGMTX (internal to phase 
60) , which contains an entry for each of 
registers 6 through 11, 1U, and 15. Into 
an entry are placed the BL type and BL 
number (the i and k of the idk field of an 
addressing parameter) of the area to which 
the register is currently pointing, and the 
status of the register (that is, how it is 
being used) . When a field of the data area 
is the operand of a procedure instruction, 
table REGMTX is searched for a matching i 
and k. If it is found, this means that the 
register already contains the desired base 
locator, and therefore the register can be 
used in the instruction. 

If no register contains the necessary 
base locator, an instruction is generated 
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to load the base locator (which is stored RE6HTX entry is updated to indicate how it 
in the T6T) into temporary register 14 or is currently being used. Status bits aay 
15. also be updated by the aacro-in struct ion 

type iL-text elements produced by Phase 50 
When a register is used in an or 51. (See Figure 56 in this chapter.) A 

instruction, the status portion of the list of these elements and their meanings 
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appears in the Procedure A-text formats in 
"Section 5. Data Areas.". 



PROCESSING DATA A-TEXT. E-TEXT, AND 
DEF-TEXT 



The primary function of Data A-text 
processing is to place values into fields 
of the data area and global tables of the 
object program. Each element results in 
either the writing of an object text 
element or an entry in the RLDTBL. Some 
RLDTBL entries will later be written out as 
relocation dictionary (RLD-text) entries 
for the data area and as object text- 
Others, for the global tables, will be 
written as object text only (these will be 
relocated by the object program) . 

File SYSOOU, from which Data A-text is 
read., also contains E-text generated by 
phases 10 through 51 and DEF-text for the 
cross-reference listing if the SXREF, XREF, 
VERBREF, or VERBSUM option was specified. 
Figure 57 illustrates the contents of this 
file when it is read by phase 60. Figure 
58 describes how each type of element is 
processed. 



Beginning of File 



Text Description 



I Written By 



DATA A-text 

DEF-text (for data- names and 
file-names) 

E-text (generated by Phases 
10, 20,, 21, and 22) 

DEF-text (for procedure-names) 

E-text (generated by Phases 
12, 11, 30, 40, 
50, and 51) 



Phase 21 
Phase 21* 

Phase 21** 

Phase 30* 
Phase 51 



End of File 



♦Generated only if the SXREF, xref, 
VERBREF, or VERBSUM option is in 
effect. 
**Phase 21 intermixed these first three 
text^ on SYS004. There are no 
separations between texts generated by 
different phases. The texts are 
distinguishable solely by their code, 
which is the first byte of each 
element. 

Figure 57. Contents of SYSOOU when Read by 
Phase 60 



PROCESSING THE RLDTBL TABLE 



After an end-of-file condition has been 
reached on file SYS004, the RLDTBL table is 
processed. Indirect address constants are 
resolved and then the table is sorted in 
ascending order of target address. Object 
text is written for items that are in the 
global tables. This text consists of 
address constant definitions that will be 
stored in the global tables at execution 
time. No RLD-text is required for these 
items, because the addresses are relocated 
during program execution by routine INIT3. 
Object text is also written for data area 
address constants (obtained from address 
constant and indirect address constant 
definitions). For the data area address 
constants* RLD-text is written so that the 
linkage editor can relocate the addresses. 
See "GETALL routine" in the "Appendix A. 
Table and Dictionary Handling." 



INITIALIZATION ROUTINES 



After the RLDTBL table has been 
processed* the initialization coding is 
generated. The three initialization 
routines, in the order in which phase 60 
writes them, are INIT2, INIT3, and INITl. 
All three are resident in the root segment 
if the program is segmented. INITl sets up 
address constants for the program's TGT, 
PGT, and first executable instruction, and 
for the three initialization routines. It 
then transfers control to INIT2 if the 
program is a subprogram, or to INIT3 if it 
is not. INIT2 is executed if the program 
is a subprogram or is entered at a 
secondary entry point. It establishes 
standard subroutine linkage. Control then 
passes to INIT3, which sets base registers, 
relocates addresses to absolute values, and 
transfers control to the proper point in 
the program to begin the execution. (For a 
fuller description of these three routines, 
including the generated code, see "Appendix 
B. Object Module.") 
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T 1 

I Action Taken | 

+ ^ 

All E-text is built into a table called ERRTBL, which is passed to 
phase 70. Phase 60 does not process the E-text, If the ERRTBL 
table overflows the space allocated to it, it is written on 
SYS003. 

There are two types of E-text elements: message definition and 
message parameters. Message parameters are optional; however, if 
they occur, one or more message parameters immediately follow the 
message definition to which they apply (the uses of these elements 
are explained in the chapter on phase 70) . Phase 60 examines each 
element to determine its length, so that the correct number of 
bytes may be stored in the table. To do so,, it checks the third 
byte of the element. If the byte contains a zero, the element is 
a message definition whose length is eight bytes. If the third 
byte is nonzero, the element is a message parameter, which is of 
variable length, and the length is determined from the value of 
the second byte. See "Section 5. Data Areas" for format of 
E-text and the ERRTBL format. 



r T 

I Code I Type 
J. +. 



00 



E-text 



H 



ou 



SDTF address 



Generate an RLDTBL entry which will cause the address of the SDTF 
to be placed in the correct cell of the SDTFADR field of the PGT 
at execution time. Get displacement of the SDTFADR field from the 
SDTF number to compute displacement of cell. Text element 
contains the value (relative address of the SDTF) to be placed in 
the PGT cell. 



08 



DTF address 



Generate an RDLTBL entry which will cause the address of the DTF 
to be placed in the correct cell of the DTFADDR field of the TGT 
at execution time- Get displacement of the DTFADDR field from 
cell DTFNO (see Figure 48 in this chapter) and use the DTF number 
to compute displacement of cell. Text element contains the value 
(relative address of the DTF) to be placed in the cell. 



OC 



Block address 



Generate an RLDTBL entry which will cause the address of the 
buffer to be placed in the correct BL cell of the TGT at execution 
time. Get displacement of the BL field from cell BLCTR in COMMON 
(see Figure US in this chapter) and use the BL number to compute 
displacement of the cell. Text element contains the value 
(relative address of the buffer) to be placed in the TGT cell. 

If the value of the SIZE field of the element exceeds 1024 (SIZE 
specifies length of the block in f ullwords) , more than one BL has 
been assigned to the buffer. For each 102U-word area after the 
first, another RDLTBL entry is made. The second RDLTBL entry will 
cause the buffer address + 4096 (TGT addresses are in bytes) to be 
placed in the next BL cell of the TGT, 



14 



FIB address 



Generate an RLDTBL entry that will cause the address of the File 
Information Block (FIB) to be placed in the correct cell of the 
FIB field in the TGT at execution time. Get displacement of the 
FIB field from AMICTR cell in COMMON and use the FIB number to 
compute displacement of cell. Text element contains the value 
(relative address of the FIB) to be placed in the TGT cell. 



I 20 I Data A- text 
L J. 



I Generate the COUNT option information, 

.X 



Figure 58. Processing Data A-text, E-text, and DEF-text (Part 1 .of 2) 
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r T 

I code I Type 



Action Taken 



H 



24- 



Working-Storage 
Section address 



Generate an RLDTBL entry which will cause the address of the 
Working-Storage Section to be placed in the correct BL cell of the 
TGT at execution time. Get displacement of the BL field from cell 
BLCTR in COMMON (see Figure US in this chapter) and use the BL 
number to compute displacement of the item. Text element contains 
the value (relative address of the Working-Storage Section) to be 
placed in the TGT cell. 

If the value of the SIZE field exceeds 1024 (SIZE specifies the 
length of the Working- Storage Section in fullwords), more than one 
BL has been assigned. For each 1024-word area after the first, 
another RLDTBL entry is made. The second entry will cause the 
address + 4096 (TGT addresses are in bytes) to be placed in the 
next BL cell. 



28 



Constant 
definition 



Write object text which will place the value of the constant 
into a specified location in the data area at execution time. 
This type of element is used to fill some fields of SDTFs and DTFs 
and to initialize data items for which a VALUE clause was 
specified. 



2C 



Address 

constant 

definition 



Generate an RLDTBL table entry which will permit the linkage 
editor to insert the desired address at the correct location. 



30 



(Not used) 



34 



Q-routine 
identification 



This type of element contains a GN number for a Q-routine. 
The elements are built into a table called QTBL. Each entry is 
resolved so that it contains the actual address of the routine 
rather than simply the GN number. This processing is identical to 
that for GN references in Procedure A-text (see Figure 56). When 
phase 60 generates the code for INIT3 (one of the initialization 
routines) , it uses the QTBL table to generate a call to every 
Q-routine in order to initialize the data and table areas affected 
by OCCURS... DEPENDING ON data items. 



38 



BL reference 



Generate an RLDTBL entry that will cause the displacement in the 
TGT of the BL number assigned to VSAM files to be placed in a 
specified location of the data area at execution time. 



3C 



BLL reference 



Generate an RLDTBL entry that will cause the displacement in the 
TGT of the BLL numbers assigned to VSAM files in the Linkage 
Section to be placed in a specified location of the data area at 
execution time. This type of element is used to complete the 
building of the FIB at execution time. 



48 



Data name or 

file-name 

DEF-text 



These elements are present only if the SXREF, XREF, VERBREF, or 
VERBSUM option was specified. Each element is written out as 
it is encountered on file SYSOOl, to be read by phase 61. The 
phase 61 chapter describes how these elements are used. 



4C 



Procedure name 
DEF-text 



These elements are present only if the SXREF, VERBREF, XREF, or 
VERBSUM option was specified. Each element is written out as it 
is encountered on file SYS003, to be read by phase 61. The 
chapter on phase 61 describes how these elements are to be used. 

L X X 

Figure 58. Processing Data A-text, E-text, and DEF-text (Part 2 of 2) 
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PHASE 65 



The function of phase 65 (ILACBL65) is 
to produce debugging information which is 
used by object-time COBOL library debugging 
subroutines. For information about the 
object-time COBOL library subroutines, see 
IBM DOS/VS COBOL Subroutine Library Program 
Logic . The phase is given control only if 
the flow trace (FLOW) , statement number 
(STATE) , or symbolic debug (SYMDMP) 
compiler options are specified by the user 
on the CBL card. The transfer of control 
to phase 65 is described in "Processing 
Between Phases" in the chapter "Phase 00." 
The operations of phase 65 are described in 
Diagram 6 . 



PROCESSING THE FLOW OPTION 



If FLOW is specified, phase 65 obtains 
the number of traces requested (n[n]) from 
the FLOWSZ cell in COMMON. The number is 
stored in the first byte of the DEBUG TABLE 
in the TGT. Phase 65 allocates space for 
the FLOW trace table in the object module 
following INIT3 and saves the address of 
the beginning of the table in the DEBUG 
TABLE in the TGT. If the number of traces 
requested is zero, no space is allocated. 
For the FLOW option, the PNCHSW routine 
writes the flow trace information in the 
DEBUG TABLE and the END card. Further 
processing for the FLOW option is discussed 
in "Final Processing" later in the chapter. 



C OMMON PROCESSING FOR THE STATE AND THE 
SYMDMP OPTIONS 



PROCESSING DEBUG-TEXT 



Routines GETF2 and RDF2 locate and read 
the Debug-text, which is passed to Phase 65 
on file SYS002. Debug-text consists of the 
following elements: 



• CARDLOC elements (10), which contain 
COBOL source card numbers, a switch to 
indicate the presence or absence of a 
verb on the card, and the contents of 
LOCCTR in COMMON when the card number 
element was read by phase 60. 

• ENDSEG elements (20), which signal the 
end of a segment. 

• SEGMENT elements (30), which signal the 
beginning of a segment- 

• DISCONTINUITY elements (40), which 
signal a discontinuity in the card 
numbers of the source program resulting 
from combining two sections of equal 
priority with intervening section (s) of 
different priority. 

The Debug-text elements are directly 
involved in the creation of the PROCTAB, 
SEGINDX, and CARDINDX tables. 

The F2PR0CS branch table is used to 
branch to one of four routines which 
control the processing for the elements. 
Routine TENPROC controls processing for 
CARDLOC elements; routine TWENPROC controls 
processing for ENDSEG elements; routine 
SEGINDX controls processing for Segment 
elements; and routine FRTYPROC controls 
processing for Discontinuity elements. 



For the STATE or the SYMDMP option, 
phase 60 created Debug-text, which is used 
by phase 65 to produce tables that provide 
information needed by the STATE or SYMDMP 
COBOL library subroutines. Phase 65 builds 
the PROCTAB and SEGINDX tables for either 
option. For the STATE option, the PROCTAB 
and SEGINDX tables are written in the 
object module; for the SYMDMP option, they 
are written on the debug file. The 
CARDINDX, PROCINDX, and PROSUM tables are 
created only for the SYMDMP option and are 
written on the debug file. The OBODOTAB 
and DATATAB tables have already been 
created for the SYMDMP option by phase 25. 



BUILDING THE PROCTAB TABLE 



Routine TENPROC builds the PROCTAB 
entries from the information in the CARDLOC 
elements. Each PROCTAB entry contains the 
relative address of the first instruction 
generated for the card and verb number in 
the entry. Phase 65 divides any program or 
segment which exceeds 64K bytes in size 
into program fragments less than 64K bytes 
in length. Each segment also begins a new 
program fragment. 
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BUILDING THE SEGINDX TABLE 



BUILDING THE CARDINDX TABLE 



A SEGINDX entry is created for each 
fragment of the program. 

If routine TENPROC determines that the 
code generated for the last verb causes the 
current fragment to exceed the maximum size 
of a fragment (St^K bytes), it calls routine 
GTEQIOK to handle the processing for end of 
the fragment. Routine GTEQIOK calls 
routine SNF to start the new fragment make 
a SEGINDX table entry for the old fragment, 
and begin collecting information for the 
next SEGINDX table entry- 

In a segmented program, the end of a 
segment or, in a non-segmented program, the 
end of the Procedure Division is signalled 
by an ENDSEG element (20). When routine 
RDF2 reads an ENDSEG element, it calls 
routine TWENPROC to process the end of the 
segment. 



The CARDINDX table contains an entry for 
each fragment of the program and for each 
discontinuity in the COBOL instructions 
within a segment of the program. 

The discontinuity elements in Debug-text 
indicate the discontinuity in COBOL source 
card numbers at the end of each 
non-contiguous section. 

When routine RDF2 reads a Discontinuity 
element (40), it branches to routine 
FRTYPROC which sets a switch indicating 
that special processing is to be done for 
the end-of-section. 

CARDINDX entries are created for 
discontinuity within segments and for each 
program segment. 



BUILDING THE PROCINDX TABLE 



FURTHER PROCESSING FOR THE STATE OPTION 



If STATE is specified, the PROCTAB and 
SEGINDX tables are created and written in 
the object module as described above. 
Addresses passed in the TGTADTBL table are 
used in writing the PROCTAB and SEGINDX 
tables in the object module. The txpnch 
routine writes the PROCTAB table in the 
object module following either INIT3 or the 
Flow Trace table if space has been 
allocated for it. At end of file on 
SYS002, routine E0F2 writes the SEGINDX 
table in ascending order of priority after 
the PROCTAB table in the object module. 
The addresses of the beginnings of the 
PROCTAB and SEGINDX tables and of the end 
of the SEGINDX table are saved in the DEBUG 
TABLE in the TGT. 

The discussion of processing for the 
STATE option continues in "Final 
Processing" later in the chapter. 



FURTHER PROCESSING FOR THE SYMDMP OPTION 



If SYMDMP is specified, phase 65 builds 
the CARDINDX, PROCINDX, and PROGSUM tables 
for the debug file. Processing for the 
CARDINDX and PROCINDX tables occurs in 
conjunction with processing for the PROCTAB 
and SEGINDX tables. The PROGSUM table is 
processed after the other tables have been 
written on the debug file. 



Before routine TXPNCH moves a PROCTAB 
element into the SYS005 buffer, it 
determines whether the buffer is full. If 
the buffer is full,, it calls phase 00 to 
write the buffer and builds a PROCINDX 
entry providing card and verb number 
information about the first entry in the 
block and the note address of the block 
after it has been written. 



DEBUG FILE PROCESSING 



The TXPNCH routine writes the PROCTAB 
table on the debug file at the beginning of 
a new block. 

At end of file on SYS002 control is 
transferred to the E0F0N2 routine to 
collect information about the number of 
entries in each of the CARDINDX, SEGINDX 
and PROCINDX tables. It stores this 
information for the PROGSUM table in the 
CARDINUM, SEGINUM, and PROCNUM save areas, 
respectively. It then sorts the CARDINDX 
table in order of ascending card number and 
the SEGINDX table in order of ascending 
priority. 

Routine E0F0N2 then moves the CARDINDX, 
SEGINDX, and PROCINDX tables (in that 
order) to the buffer for the debug file 
(SYS005). (These tables are written on the 
debug file, beginning at a new block.) 
Routine E0F0N2 saves the displacement 
within the buffer of the start of the 
SEGINDX and PROCINDX tables in the SEGDISPL 
and PROCDISPL save areas, respectively. 
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This information becomes part of the 
PROGSUM table. 

Routine EOrON2 then calls phase 00 to 
write the tables and note those blocks 
which contain the beginning of a table. 
Routine E0F0N2 saves the note information 
in the CARDNOTE, SEGNOTE, and PROCNOTE save 
areas for the PROGSUM table. 

All the information gathered by routine 
E0F0N2 is entered in the PROGSUM table. 

If the debug file is located on disk, 
the first 512-byte record is read back into 
the buffer, and the PROGSUM table is moved 
into the first BU-byte field. The record 
is then rewritten on the disk. 

If the debug file is located on tape, 
routine ENDOFTBL writes the end of file 
mark, and repositions both SYS005 and 
SYS002 to the first record. It reads the 
first 512-byte record of SYS005 into the 
buffer and inserts the PROGSUM table in the 
first 84 bytes. It writes the buffer on 
file SYS002 and copies the remainder of 
file SYS005 to file SYS002. Then it 
recopies file SYS002 onto file SYS005. 



PINAL PROCESSING 



For any of the options, routine PNCHSW 
sets the fullword SWITCH in the TGT to 
reflect the options in effect and it also 



sets the DEBUG TABLE PTR in the TGT. If an 
error has occurred, the DEBUG TABLE PTR is 
set to zero. The DEBUG TABLE is created 
from information produced during phase 65 
processing and from information in the 
TGTADTBL table, and it is written in the 
TGT. Finally, the END card for the program 
is written in the object module. 



For segmented programs the root segment, 
written on SYSLNK by phase 60, is completed 
by phase 65; the independent segments are 
copied on SYSLNK from SYS004 where they 
were written by phase 60. For 
non-segmented programs that use the 
SORT/MERGE verb, phase 65 writes PHASE and 
text cards for a dummy SORT/MERGE 
subroutine load point on SYSLNK. For 
segmented programs that use the SORT/MERGE 
verb, the PHASE and INCLUDE cards are 
copied on SYSLNK from SYS004 where they 
were written by phase 60. 

Routine ENDCODE releases all tables and 
determines whether the compiler options 
specified by the user require phase 00 to 
call phase 61 or phase 70 or whether the 
compilation is complete. Phase 61 is 
called if the SXREF, VERBREF, VERBSUM or 
XREF option was specified. Phase 70 is 
called if the highest severity message 
produced during compilation matches the 
user's specification (FLAGE or FLAGW) . 

Phase 65 returns control to phase 00 
either to call the next phase or to process 
for the end of the job. 
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PHASE 62 



Phase 62 is first phase of the three 
phases that make up the optimizer section 
of the compiler. It begins the work 
necessary to produce the machine language 
program optimized for procedure name 
addressability and for register usage and 
suitable for input the linkage editor. 

The optimizer phases of the compiler 
(phases 62, 63, and 64) employ a method for 
addressing most procedure-names (PNs and 
GNs) in the completed machine language 
program which differs from the method 
employed by phase 60. Phase 60 places the 
address of the definition point of each 
referenced procedure-name (PNs and GNs) 
into the PROCEDURE NAME and GENERATED NAME 
cells of the Program Global Table (PGT). 
Each time that one of these procedure-names 
is referenced, a load instruction of the PN 
or GN address is generated. This 
instruction is followed by an RR-type 
branch instruction. 

The optimizer phases divide the 
Procedure Division code into blocks of 
approximately 4095 bytes in length. These 
blocks are referred to as Procedure Blocks. 
Procedure-names (PNs and GNs) are addressed 
as displacements added to a base register 
(register 11) containing the address of the 
beginning of a Procedure Block. Register 
11 must be loaded with the Procedure Block 
address when addressability is needed for 
the Procedure Block. Addressability must 
be established only when a reference is 
made to a PN or GN whose Procedure Block 
address is not the same as the one 
currently contained in register 11, or 
whenever the contents of register 11 cannot 
be known (see "Phase 5 Optimization 
Elements" under "Procedure A-text" in 
"Section 5. Data Areas"). 



has been specified than there are in a 
program without the OPT option. Other base 
locators are loaded into register lU or 
register 15 on a temporary basis* See 
"Optimizing Register Assignments" below. 

Phase 62 is divided into several parts, 
each of which performs specific functions. 
The functions are: 

• Determining object program storage 
allocation for the Task Global Table 
(TGT) by processing counters in COMMON 
and calculating the displacements of 
items which reside in the TGT at 
execution time. 

• Optimizing literals and virtuals by 
processing Optimization A-text. 
Determining storage allocation in the 
Program Global Table (PGT) for these 
items and for the procedure name (PN) 
and generated procedure name (GN) 
cells. 

• If the program is segmented, and 
LANGLVL(l) compiler option was 
specified, reading the segments in 
order of ascending priority. 

• Determining approximate object program 
storage for the Procedure Division by 
reading Procedure A-text and 
calculating the Procedure Block number 
in which each procedure-name (PN or GN) 
is located. 

• Optimizing usage for both permanent and 
temporary register assignments. 

The operations of Phase 62 are described 
in Diagram 7. 



The optimizer phases, eliminate the need 
to generate most of the instructions to 
load the addresses of the PNs and GNs from 
the PGT and instead of the RR-type branch 
instructions generate RX-type branch 
instructions. The optimizer phases also 
eliminate the need for most PROCEDURE NAME 
and GENERATED NAME cells from the PGT. 

The optimizer phases optimize load 
instructions for base locators (BLs, BLLs, 
and SBLs) in the TGT and the PGT and 
OVERFLOW cells by permanently loading the 
OVERFLOW cells and then the most frequently 
used base locators into registers 6 through 
10. since phases 62, 6 3 and 6U eliminate 
most of the GN and PN cells, there are 
fewer OVERFLOW cells in a program where OPT 



OUTPUT OF PHASE 62 



The output of phase 62 depends on the 
options specified by the user. The LISTX, 
CLIST, LINK (or CATAL), and DECK options 
are processed by phase 62 in the same way 
as they are processed by phase 60. 

If the LISTX, CLIST, or SYM options have 
been specified, phase 62 causes the TGT, 
Literal Pool, PGT, and register assignments 
to be written on SYSLST (or SYS006 for LVL 
option) . Phase 64 causes the object 
program listings produced for the LISTX and 
CLIST options to be written on SYSLST (or 
SYS006 for LVL option). Phase 64 also 
passes XREF-text to phase 61 if the user 
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specified the SXREF, XREF, VERBREF, or 
VERBSUM option. 

For details see "Output of Phase 60" in 
the chapter "Phase 60." 



ALLOCATING STORAGE FOR THE TASK GLOBAL 
TABLE (TGT) 



DTF Virtuals and VN Priority Table 



Phase 62 builds the FILTBL table to 
store the virtuals needed for input/output 
and error-processing routines as well as 
the VN priority (VNTPY) table in the same 
way that phase 60 does. For details see 
"Virtual References Definitions: FILTBL 
Table" and "Building the VN Table" in the 
chapter "Phase 60." 



Phase 62 calculates the length of the 
Task Global Table (TGT) in the same manner 
as phase 60 does. It receives the relative 
address of the TGT from phases 22 and 21 in 
LOCCTR; and it computes the length of the 
variable-length fields of the TGT from the 
counters in COMMON. In addition to the 
fields which both phase 60 and phase 62 
allocate, phase 62 initializes a fullword 
to the address of the first Procedure Block 
cell in the PGT. For more details on the 
general functioning of this part of phase 
62, see "Task Global Table Storage 
Allocation" in the chapter "Phase 60." See 
also Figure 48 for a description of the 
counters in COMMON used by this phase. 



Optimizing Literals and DISPLAY Literals 



Phase 62 builds the CONTBL, CONDIS, and 
LTLTBL tables to optimize for internal 
literals and DISPLAY literals in the same 
way as phase 60 does. The CONTBL table is 
used to eliminate duplicate internal 
literals; and the CONDIS table is used to 
eliminate duplicate DISPLAY literals. The 
LTLTBL table contains the displacements of 
individual literals within their respective 
tables. It is used later in the phase to 
calculate the relative address of each 
literal and DISPLAY literal in the PGT of 
the completed object program. For details 
see "Optimizing Literals and DISPLAY 
Literals" in the chapter "Phase 60." 



OPTIMIZING AND ALLOCATING STORAGE FOR THE 
PROGRAM GLOBAL TABLE (PGT) 



Optimizing Virtuals 



Phase 62 optimizes the fields of the 
Program Global Table (PGT) by eliminating 
duplications which may have been generated 
by earlier phases. It also calculates the 
lengths of the optimized fields so that 
storage requirements for the PGT may be 
determined. 



OPTIMIZING AND BUILDING TABLES 



While optimizing for the PGT, Phase 6 2 
reads Optimization A-text from file SYS003 
and merges its information with information 
from tables and counters built by earlier 
phases. This information is used to: 

• Process DTF virtuals. 

• Build the VN priority (VNPTY) table. 

• Optimize and calculate storage 
requirements for literals, DISPLAY 
literals, and virtuals. 

• Build the BLVNTBL, PNATBL, and GNATBL 
tables. 



Phase 62 builds the CVIRTB table and the 
VIRPTR table to optimize for virtuals (that 
is, names in EBCDIC of called programs or 
of object-time COBOL library subroutines) 
in the same way as phase 60 does. The 
CVIRTB table is used to eliminate duplicate 
virtuals, and the VIRPTR table contains the 
displacements of individual virtuals in the 
CVIRTB table. It is used later in the 
phase to calculate the relative address of 
each virtual in the PGT of the completed 
object program. For details see 
"Optimizing Virtuals" in the chapter "Phase 
60." 



Processing for P Ns and GNs 



Phase 62 builds four tables for PN and 
GN processing for the PGT. These are the 
BLVNTBL, VNPNTBL, PNATBL and GNATBL tables. 
Routine VNPNSCRT builds the VNPNTBL table 
from the VN EQUATE PN or VN EQUATE GN 

elements of Optimization A-text. 

Routine GNVNRTN builds the BLVNTBL table 
from GN and VN perform elements. Routine 
PGNARTN builds the PNATBL and GNATBL 
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tables. These tables list the PNs and GNs 
for which address cells are required in the 
PGT. 



ALLOCATING STORAGE FOR THE PGT 



When all Optimization A-text has been 
read, storage is allocated for the PGT. 
ESD cards and TXT cards are produced for 
virtuals and literals. Counters in COMMON 
are set to the displacements of their 
corresponding PGT fields from the beginning 
of the PGT- 

If the LISTX, CLIST or SYM options are 
specified, the format of the PGT is written 
on SYSLST {SYS006 for LVL option) using 
routine MAPLOC (if the SUPMAP condition 
exists, this writing does not take place). 

OVERFLOW Allocation ; Preliminary 
calculations are made to determine whether 
the size of the PGT exceeds 4096 bytes. If 
it does, one U-byte OVERFLOW cell is 
required for each 4096-byte area after the 
first. Since OVERFLOW cell allocation 
occurs before the first reading of 
Procedure A-Text in this phase,, this part 
of phase 62 cannot determine the number of 
PROCEDURE BLOCK cells that are required in 
the PGT. Therefore, it allocates one 
additional OVERFLOW cell to allow for the 
possibility that allocation of the 
PROCEDURE BLOCK cells may cause the PGT to 
exceed the final 4 096-byte area that has 
already been determined. The number of 
bytes required is placed in register RWl, 
which is used throughout PGT allocation to 
hold the displacement of the field 
currently being processed. 

VIRTUAL' Allocation ; Phase 62 allocates 
storage' for the VIRTUAL cells field of the 
PGT in 'the same way that Phase 60 does. 
The displacement of the VIRTUAL cells field 
from the beginning of the PGT is placed in 
the VIRCTR cell in COMMON; the calculated 
length of the field is added to the 
contents of register RWl; the displacements 
of the individual virtuals in the VIRTUAL 
field are placed in their respective VIRPTR 
table entries. For details see "VIRTUAL 
Allocation" in the chapter "Phase 60." 

PN Allocation ; After the VIRTUAL cells 
field has been processed, the value in 
register RWl is the displacement of the PN 
field in the PGT. This value is saved in 
the RPNCNTR cell of COMMON. 

Only those PNs which follow TO PROCEED 
TO in an ALTER statement and section-names 
defined in a USE statement in the 
Declaratives Section require PN cells in 
the PGT. Phase 51 sets the RPNCNTR counter 



in COMMON to the number of cells required. 
Phase 62 uses the RPNCNTR counter to 
allocate U bytes for each PN. The total 
length of the PN field is then added to 
register RWl. 

GN Allocation ; After the PN cells field 
has been processed,, the value in register 
RWl is the displacement of the GN field in 
the PGT. This value is saved in the RGNCTR 
cell in COMMON. 

Only those GNs which are used in 
instructions for an AT END phrase or an 
INVALID KEY option require GN cells in the 
PGT. Phase 51 sets the RGNCTR counter in 
COMMON to the number of cells required. 
Phase 62 uses the RGNCTR counter to 
allocate U bytes for each GN. The total 
length of the GN field is then added to 
register RWl. 

SDTFADR Allocation ; The SDTPADR cell in 
COMMON is used to determine the storage 
requirements for the SDTFADR ADDRESS cells 
of the PGT. Four bytes are reserved for 
each SDTF in the program. The cell is set 
to the value of register RWl, and register 
RWl is then incremented to reflect the 
allocated bytes. 

VNI Allocation ; The VNCTR cell of COMMON 
was used by earlier phases to count the 
number of variable procedure names in the 
program. The value of VNCTR is moved to 
the VNILOC cell of COMMON. Foro VNILOC, 
four bytes are allocated for every VN. The 
displacement of the VNI field (the value of 
RWl) is placed in the VNILOC cell,, and the 
number of bytes allocated is added to RWl. 

LITERAL Allocation ; Phase 62 allocates 
storage for the LITERAL field in the PGT in 
the same way that Phase 60 does. The 
displacement of the LITERAL field is placed 
in the LTLCTR cell in COMMON; the 
calculated length of the field is added to 
the contents of RWl; and the LTLTBL table 
is saved for Procedure A-text processing. 
For details, see "LITERAL Allocation" in 
the chapter "Phase 60-" 

PROCEDURE BLOCK Allocation ; Phase 62 does 
not allocate storage for the PROCEDURE 
BLOCK cells until after it reads and 
processes Procedure A-Text. It reads 
Procedure A-Text to determine the nximber of 
blocks, containing approximately 4096 bytes 
of storage, that are required for the 
optimized Procedure Division. For details 
on the phase 62 optimization of Procedure 
A-text, see "Optimizing and Allocating 
Storage for the Procedure Division" later 
in this chapter. 

After the allocation of storage for the 
other fields of the PGT, the value in 
register RWl is the displacement of the 
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PROCEDURE BLOCK cells field in the PGT. 
This value is saved in the PRBLDISP cell of 
COMMON. After Procedure A-text processing, 
phase 62, using the PROCBL counter, 
allocates one U-byte field for each 
Procedure Block. 



short blocks of object code only. While 
Procedure A-text is being read, routines 
ENTDRP and ENTDRPL build the DRPTEL and 
DRPLTBL tables, respectively, to optimize 
the assignment of these registers. 



OPTIMIZING REGISTER ASSIGNMENTS 



Seven registers are used by the compiler 
to address Data Division items or overflow 
cells in the machine language program. 
Registers 6 through 10 are assigned 
permanently, that is, for the entire object 
program; registers 14 and 15 are assigned 
on a temporary basis, that is, for single 
instructions or for short sections of code 
only. Phase 62 assigns registers 6 through 
9 before Procedure A-text is read, and 
register 10 after Procedure A-text is read. 
Use of registers lU and 15 is determined as 
Procedure A-text is processed. 
Optimization takes place for both permanent 
and temporary register assignments. 



Phase 62 optimizes the assignment of 
temporary registers by avoiding 
unnecessaryrepetition of load instructions. 
To do this, it assigns the first two unique 
base locators referenced in Procedure 
A-Text to registers 14 and 15 by making 
entries in the DRPLTBL table. It builds 
the DRPTBL table from the subsequent base 
locators referenced until a condition is 
met which makes resolution of register 
assignment possible. These conditions are 
as follows: 



A reference to a base locator whose 
previous assignment to a register is 
still in effect. 



• A referenced PN, a GN., or the entry 
point of a new program segment. 



PERMANENT REGISTER ASSIGNMENTS 



Phase 62 builds the BLASGTBL table for 
permanent register assignments. Before 
Procedure A-text is read, routine REGMVl 
first assigns the OVERFLOW cells of the TGT 
and the PGT to permanent registers, 
starting with register 6, except for the 
OVERFLOW cell. Register 12 points to the 
PGT permanent register. Next, routine 
BLSRCH searches the BLUSTBL table, built by 
phases 50 and 51, to determine the base 
locator most frequently referred to. That 
base locator is assigned to the next 
unassigned register. The process is 
repeated vintil each of registers 6 through 
9 have been assigned. After Procedure 
A-text has been read, register 10 is 
assigned to the next most frequently 
referenced base locator if it is not needed 
for the additional OVERFLOW cell of the 
PGT. 



TEMPORARY REGISTER ASSIGNMENTS 



Registers lU and 15 are assigned to base 
locators for single instructions or for 



The base locator which will be 
permanently assigned to register 10 if 
that register is not needed for the 
extra OVERFLOW cell of the PGT. 



• A RESERVE, DESTROY,, FREE, or BLCHNG 
element. 

Figure 59 exemplifies the optimizing 
process for base locator assignments to 
registers 14 and 15. 



Phase 62 builds the DRPLTBL table for 
address increment elements as well as for 
address references. DRPLTBL table 
processing for address increments is done 
only if the increment is greater than 4095, 
in which case an additional generated 
instruction is needed to load the address 
of the data-name plus the address 
increment, which is at least 4096 bytes, 
into temporary register 14 or 15. Phase 62 
adds 4 bytes to ACCUMCTR for each such LA 
instruction needed. The DRPLTBL entry for 
an address increment indicates to phase 63 
which temporary register to use in the RX 
field of the LA instruction being 
generated. 
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Steps 

© 
® 
® 
® 
® 
® 
® 
® 
® 
® 



(13) 
® 



Teaporary BLs 



DRPTBL 



BL«6 

BL=7 

BL>8 

BL=10 

BL«6 

BL=10 

BL-11 

BL«12 



BL«5*** 



BL=6 

BL=10 

BL=7 

BL=10 

BL=12 



-> 8 
-> 10 



-> 11 
-> 12 



-> 7 



-> 12 






"^ 
^ 



Entry point (referenced PM or 6!l definition or new segnent) 



DBPLTBL 
-> R14* 
-> R15* 
-> P15« 
-> R15* 
-> R14** 
-> R15** 
-> R14* 
-> R14* 
-> Rift* 
-> R1U* 
-> R15* 
-> R14* 
-> R15** 
-> R14* 



^Indicates that a load instruction is generated for this assignment by phase 63. 
**Indicates that the BL is already loaded and that no load instruction is generated by 
phase 63. 
♦xeiicBL-S is the base locator that will be loaded into register 10 if the additional 

OVERFLOW CELL for the P6T is not reguired. 

I 

Figure 59. Optimizing Assignment of Registers 1ft and 15 



OPTIMIZING AND ALLOCATIWG STORAGE FOR THE 
PROCEDPRE DIVISION 



Whenever a PN or GN is referred to in an 
instruction, a check is . made to determine 
whether the address of the Procedure Block 
that contains the PN or GN has already been 
loaded into register 11. If it has not 
been loaded , then an instruction is 
generated to load the address of the 
Procedure Block into register 11. 

As phase 62 reads Procedure A'text, it 
determines the Procedure Block number for 
each PN and GN and builds the PNLABTBL and 
GNLABTBL tables. These tables are passed 
to phase 63, which generates the actual 
instructions necessary for establishing 
addressability. 

To build the PNLABTBL and GNLABTBL 
tables phase 62 uses a counter, called 
ACCOHCTR, to generate displacements within 
Procedure Blocks. This counter is 
incremented with the length of each 



instruction occurring in the completed 
object program. Phase 62 uses ACCONCTR to 
determine when the displacement of the 
definition of a GN or PN from the beginning 
of the Procedure Block exceeds ft095 bytes. 
When the displacement is greater than ft 095 
bytes, a new Procedure Block is begun. 



Phase 62 also builds the PNFWD6TB and 
GNFWDBTB tables for all PN*s and GN«s which 
are referred to prior to their definition 
point. Since it cannot be determined 
whether the reference and the definition 
occur within the same Procedure Block, it 
is not possible to determine whether the 
Procedure Block address of the definition 
is already loaded into register 11 at the 
point where the reference is made to it. 
The forward branch tables (PNFWDBTB and 
GNFWDBTB) are used to accumulate the number 
of forward references to PNs and GNs, 
respectively, which may or may not be 
defined in a different Procedure Block. As 
a PN or 6N definition is encountered which 
has been entered into the PNFWDBTB or 
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6NFHDBTB table, the counter for that PN or 
6N is set to zero. 

Since references to PN*s and GH's which 
have not yet been defined may entail an 
additional instruction to load the 
Procedure Block address of a different 
block r the number of bytes represented by 
the counters in the PNPHDBTB and 6NFHDBTB 
tables must be added to the displacement in 
ACCUHCTR to determine the current length of 
the block. 



Buildj.na the PNLABTBL and GNLABTBL Tables 



Phase 62 sets a counter, called PROCBL, 
for use in building the PNLABTBL and 
GNLABTBL tables. PBOCBL is incremented for 
each procedure Block. The value contained 
in PROCBL is the Procedure Block number for 
the current block of code. Using PROCBL, 
phase 62 enters the Procedure Block number 
of each referenced PN and GN definition 
into the PNLABTBL and GNLABTBL tables for 
use by phase 63. 

Routine NOBLST uses the PNCTR and GNCTR 
cells in COMMON to determine the number of 
PN entries and 6N entries, respectively, 
that are required in the PNLABTBL and 
GNLABTBL tables. 



Incrementing the ACCOMCTR Counter 



As phase 62 reads Procedure A-text, it 
increments ACCOMCTR by the length of each 
machine-language instruction that is part 
of the completed object program. For this 
purpose it uses the codes listed in Figure 
60, as well as Procedure A-text, and the 

PNLABTBL, GNLABTBL, PNFNDBTB, and GNFNDBTB 
tables. 

Since the optimizer phases of the 
compiler use Procedure Block addresses to 
address PNs and GNs, these phases eliminate 
and change some of the instructions in 
Procedure A-text. Phase 62, therefore, 
determines which instructions are to be 
eliminated or changed during the 



optimization process. Phase 62 then 
increments ACCOMCTR accordingly. The 
PNLABTBL and GNLABTBL tables, as well as 
the PNFNDBTB and GNFNDBTB tables and the 
PROCBL counter are used for this purpose. 

PROCESSING FOR BRANCH INSTRUCTIONS ; The 
PROCBL counter contains the number of 
Procedure Blocks that are required for the 
Procedure Division. Each time that 
ACCOMCTR and the information in the 
PNFNDBTB and GNFNDBTB tables indicate that 
a PN or GN definition is at a location 
greater than ^095 bytes from the start of 
the Procedure Block, block transition takes 
place. The PROCBL counter is incremented 
and ACCOMCTR is set to zero. Using the 
PROCBL counter, routine DBFLD11 enters the 
Procedure Block number of each PN or GN 
definition into the PNLABTBL and GNLABTBL 
tables, respectively. 

Nhen a branch is taken to a PN or GN 
within the Procedure Block whose address is 
already loaded into register 11, H bytes 
are added to ACCOMCTR for the RX-type 
branch instruction. When a branch is taken 
to a PN or GN whose Procedure Block is not 
already loaded into register 11, 8 bytes 
are added to the ACCOMCTR for the load of 
the Procedure Block address and the RX-type 
branch instruction. 

Each time that routine ENTPT01 processes 
a PN or GN definition, it determines 
whether the value in ACCOMCTR plus the 
number of bytes necessary to branch to the 
procedure names listed in the FWDBCTBL 
tables is greater than 4095 bytes. If it 
is not, then Procedure A-text processing 
continues. If it is, then the routine 
determines whether the definition being 
processed has a count of forward references 
in the PNFNDBTB or GNFNDBTB table. If it 
does not, a new procedure block begins at 
this definition point. If a count is 
found, however, the number of bytes 
represented by the count is compared to the 
number of bytes in ACCOMCTR minus 4096. If 
the count value is low, a new procedure 
block begins at this definition point. If 
it is high, the count field is zeroed and 
this definition point remains within the 
current block. Phase 62 then makes new 
calculations to determine the size of the 
Procedure Block. 
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Figure 60. Processing for Optimization Information Elements^ (Part 1 of 3) 
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CODE 



NEANING/Procedure-Nane 
Definition Status 



ACTION TAKEN BY 



PHASE 62 



PEASE 63 



PHASE eti 



C002 



Branch-in point. 

(Addressability for 
Procedure Block is 
uncertain.) 



Add H to ACCUMCTR. 



Indicate that Pro- 
cedure Block 
address is to be 
loaded at next re- 
ference to PN or 
GN. Do not rewrite 
C002. 



C003 



An address constant is 
to be used for this 
elenent; P6T to con- 
tain a PN cell or GN 
cell. 



Add H to ACCOMCTR. 



Hrite Procedure A1- 
text element iden- 
tical to Procedure 
A-text element. 
Add 4 to counters. 
Do not rewrite 
C003. 



Process PN or GN 
reference as in 
phase 60. 
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J. 
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^Procedure Base Register Element: 
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2-3 



I 
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I Register number j 



I 

PN/6N Number | 



^Procedure Block Number Element: 

Bytes 



ca 



Block Number | 



3These phase 50 Optimization Information elements (COxx) are created by phase 50 from 
phase 40 Optimization Information elements (43xx) . 

Pigure 60. Processing for Optimization Information Elements^ (Part 2 of 3) 
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Figure 60. Processing for Optimization Information Elements ^ (Part 3 of 3) 
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PHASE 63 



Phase 63 is the second of the three 
phases that naJce up the optimizer section 
of the compiler. Its principal function is 
to produce Procedure 11 -text, which is 
written on file S7S002. Phase 63 produces 
the text according to the inforcation 
supplied from phase 62. Upon completion » 
the text is passed to phase 6U where it is 
used to produce the optimized machine 
language program. Phase 63 also causes the 
Procedure Block assignments to be written 
on STSLST (SYS006 for L7L option) if the 
LISTX, CLIST, or STM options are in effect. 

Phase 63 produces Procedure Al-text from 
Procedure A-text by: 

• Inserting information for addressing 
P9s and GNs and Procedure Bloclcs in 
instructions such as displacements of 
PXs and GNs within a gi^en bloclc and 
the Procedure Bloclc number to be used. 

• Generating all remaining instructions 
foe the object program except the load 
instruction elements required when a 
data-name is only temporarily 
addressable. 

• Beading the- program in ascending order 
of priority if it is segmented. 

The operations of Phase 63 are described 
in Diagram 8. 



IWITTALI2ATI0W 0? ?^\ST. 63 



Procedure A 1 -Text is described in 
"Section 5. Data Areas." 



COHTBOL ROUTIVB 



Boutine GBT series as the control 
routine for phase 63 processing of 
Procedure A-text elements . It reads each 
element of Procedure A-text and branches to 
one of several routines for specific 
processing of each type of element. 

For CO elements, macro-type instruction 
elements, and operation code elements, it 
branches to routines CO, HACBO, and 
P00BTT8, respectively. 

For each of the other elements it uses 
the GETBTBL table to branch to the proper 
routine for specific processing of that 
element. 



PROCESSING PBOGRAMS WITH ONE PBOCEDUEE 
BIOCTT 



In programs which do not exceed one 
Procedure Bloclc in length and which have no 
Report Writer or Declaratives Section, and 
in which segmentation does not occur, the 
Procedure Bloclc address is loaded into 
register 11 only when the BNTBT macro 
(Uaoa) and/or START macro («a20) of 
Procedure A-text is read. 



Routine PEAS63 performs the 
initialization process for phase 63. It 
saves LOCCTR for restoration at end of 
file, relocates all of the TIB addresses, 
and primes all the new tables used by the 
phase, except for the QGNTBL which is 
primed in routine OBEGIN if there are 
6-routines. If the program is segmented, a 
call to phase 00 i;? issued to request a 
POINT to the first section of text on file 
STS001. Otherwise, the initialization 
routine requests phase 00 to read the first 
Procedure A-text buffer from file SYS001. 



CONSTRUCTING PROCEDURE A1-TEXT 



Phase 63 reads Procedure A-text from 
file SYS001 and writes Procedure Al-text on 
file SYS002. 



PROCESSING POP BRANCH INSTRUCTIONS 



Routine BRANCH processes the branch 
element following the PN or GN reference. 
It uses the SA7ETBL and either the PNLABTBL 
or GNLABTBL table to determine whether the 
PN or GN referenced by this branch is 
defined in the Procedure Block .that is 
currently loaded in register 11. If the PN 
or GN is defined outside of the Procedure 
Bloclc currently loaded, a Procedure Al-text 
element is generated to load register 11 
with the address of the Procedure Bloclc 
which conains the PN or GN definition. 
Routine BRANCH then generates an RX-type 
Procedure Al-text branch element instead of 
the RR-type of Procedure-A text so that an 
instrucrtion will be generated to branch to 
the PN or GN. 
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If the PN or GN is defined within the 
Procedure Block that is currently loaded in 
register 11, the routine merely changes the 
RR-type branch instruction to an RX-type 
branch instruction. The register number in 
the original instruction is changed to zero 
since register 11 is inserted in the branch 
instruction by Phase 64. The PN (C8) or GN 
(CO number element from the SAVETBL work 
area follows the instruction. 



PROCESSING FOR OPTIMIZATION INFORMATION 
ELEMENTS (C001-C007) 



Phase 63 processing for optimization 
information elements is described in Figure 
60 in the chapter "Phase 62." 



PROCESSING FOR RPT-ORIGIN (DU) ELEMENT 



An RPT-ORIGIN (DU) element indicates 
that an RLDTBL table entry is to be made 
for this location in the program. The 
location is the point of definition (or the 
point of definition plus 4 bytes) of the GN 
for a REPORT-ORIGIN verb. Routine DU 
creates the RLDTBL entry for the location, 
saving the value contained in LOCCTR, It 
sets the high-order byte to hexadecimal 
•lO* to indicate the purpose of this entry 
to Phase 64. The entry is used to generate 
text cards at the proper location; but 
phase 64 does not produce an RLD card for 
this type of entry. V)hen the ORG macro 
element is read later, LOCCTR is set by 
phase 64 to the value of LOCCTR at the time 
of the RPT-ORIGIN element. 



PROCESSING FOR ADDRESS REFERENCE (78) 
ELEMENTS 



Address reference elements are generated 
to address data areas. The data areas are 
addressed by means of a displacement from a 
base locator. 

When an Address reference element is 
found in Procedure A-text, routine GET 
branches to routine ADREF for processing. 



PROCESSING FOR ADDRESS INCREMENT (80) 
ELEMENTS 



When address increment elements occur, 
they follow Address reference elements and 
indicate that an additional displacement 



value is to be added to the value indicated 
by the Address reference element to address 
a data-name. 

When Routine GET finds an Address 
increment element in Procedure A-text, it 
branches to routine ADINCR which determines 
whether the sum of the displacement and the 
value contained in the Address reference 
element is less than 4096 bytes. If the 
sum is less, then routine ADINCR adds a 
byte containing X' 00* to the Address 
reference element and writes the element in 
Procedure Al-text. 

If routine ADINCR determines that the 
sum is 4096 bytes or greater, it adds a 
byte containing X* OE* or X'OFV, which 
indicates to phase 64 that LA instructions 
are to be generated using either register 
14 or register 15, respectively, to the 
Address increment element and writes the 
element in Procedure Al-text- LOCCTR and 
ACMCTR are incremented by 4 for each 
multiple of 4095 bytes in the added 
displacement. 



PROCESSING FOR INCREMENTED ADDRESS (A4) 
ELEMENTS 



The Incremented address (A4) element in 
Procedure A-text is functionally a 
combination of the Address reference (78) 
and Address increment (80) elements and is 
treated as such by phase 63. Routine ADREF 
(if no load is required, that is, if the 
data-name is already in a register) changes 
the element into a Base displacement 
data-name element (see "Processing for 
Address Reference (78) Elements" in this 
chapter) . If it does, the increment 
portion of the Incremented address (A4) 
element is written out as an Address 
increment (80) element with the high-order 
bit of the low-order byte set to 1 to 
indicate that the increment has already 
been added. 



COUNTERS USED IN PHASE 63 



While producing Procedure Al-text phase 
63 uses two counters, LOCCTR in COMMON and 
ACMCTR. LOCCTR is used to generate the 
relative displacements of each instruction 
listed and enter target addresses in the 
RLDTBL table. 

For details, see "Making Entries in the 
RLDTBL Table" in this chapter. 

ACMCTR is incremented for all code that 
is to be contained in the completed machine 
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language program. It is used to generate 
the displacements of PN and GN definitions 
within each separate Procedure Block. 
Routines PNDEF and GNDEF build the PNLBDTBL 
and GNLBDTBL tables for this purpose. 
Phase 64 uses these tables to generate the 
proper displacements. 

BUILDING THE QGNTBL TABLE 



The QGNTBL table lists the Q-routine GNs 
and their corresponding Procedure Block 
ntjmbers. These are needed by phase 6U to 
initialize Q-routines during INIT3 
processing- The table is built from the 
GNLABTBL by Phase 63 at each GNDEF 
following the Q-BEGIN macro-type 
instruction (4440) element. 



MAKING ENTRIES IN THE RLDTBL TABLE 

RLD entries are made to: 

• Resolve VN addresses 

• Resolve the GNs for REPORT-ORIGIN verbs 

• Produce RLD-text for the linkage editor 

An RLD entry contains the relative address 
within the object module for the entry 
item. 

Before an entry is made, the RLDTBL 
table is sorted. RLDTBL entries are 
created by phases 63 and 64; the RLDTBL 
table is completed and processed by phase 
64. Processing the RLDTBL table entails 
writing RLD-text in some cases. At object 
time, the linkage editor relocates 
addresses contained in the RLD-text. (Not 
all RLD entries cause RLD-text to be 
written. ) 

Routines PNDEF, GNDEF, and STARTMAC 
enter the relative address of an address 
constant in the RLDTBL table as well as the 
target address. 

Routine D4 makes entries for locations 
associated with REPORT-ORIGIN verbs. It 
sets a bit to indicate to phase 64 that 
RLD cards for these entries are not be 
produced. For details on these entries, 
see "Processing for RPT-ORIGIN (D4) 
Elements" above. 

PROCESSING IN A SEGMENTED PROGRAM 

The processing of segmented progrsuns is 
dependent on the LANGLVL option. In 



general, LANGLVL (2) segmented programs do 
not appear to be segmented to phase 63, 
since the SI^GLMT byte in COMMON has been 
reset to X'FF' by phase 51. 



When a program is not segmented, or the 
program was compiled with LANGLVL (2), 
phase 63 reads Procedure A-text from file 
SYSOOl in the order in which it was 
written. When a program is segmented and 
compiled LANGLVL (1), Procedure A-text is 
read in order of ascending priority so that 
the procedure instructions for the root 
segment are processed first. 

Routine PHAS63 first determines whether 
the program is segmented by checking SEGLMT 
in COMMON. If SEGLMT does not contain 
X'FF', the routine relocates SEGTBL and 
indicates to phase 00 that a POINT macro 
instruction is to be issued to access the 
root segment in Procedure A-text. 
Processing of Procedure A-text begins at 
that point. 

When routine MACRO comes to the end of a 
section, it branches to routine SEGBRK, 
which determines whether the end of the 
section is also the end of a segment. If 
it is the end of the segment, the routine 
zeros out LOCCTR and ACMCTR and points to 
the next segment of next highest priority; 
the routine also calls the routine SAVTCTBL 
to save the address of the end of the root 
segment, which is either the address of 
INIT2 or, if COUNT is in effect, the 
address of the COUNT table. If it is not 
the end of the segment, the routine points 
to the next section of the same priority. 
When the end of the SEGTBL table is 
reached, control passes to routine EOF. 



PROCESSING AT END OF FILE 



When all segments have been processed or 
at end of file in an unsegmented program, 
routine EOF calls routine RLDSORT to sort 
the final RLD entry. 

Then it releases the tables used by 
phase 6 3, except for the PNLBDTBL, 
GNLBDTBL, VNPTY, VIRPTR, LTLTBL, BLASGTBL, 
GNATBL, PNATBL, QGNTBL, and RLDTBL tables 
which are passed to phase 64. Finally, it 
restores LOCCTR, and returns control to 
phase 00. 
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PHASE 64 



Phase 6H is the third of the three 
phases which make up the optimizer section 
of the compiler. It completes the 
necessary processing to produce the 
machine- language program. The major 
functions of phase 6U are: 

• Processing Data A-Text and completing 
the RLDTBL table. 

• Processing, Procedure Al-text, and 
entering displacements into the 
instructions generated in phase 63. 

• Writing object text and RLD-text from 
the RLDTBL table. 

• Writing object text from Procedure 
Al-text 

• Writing object text for the INIT2, 
INIT3, and INITl routines of the object 
program, in that order. 

• Building the QTBL and ERRTBL tables. 

• Processing DEF-text, E-text, and 
REF-text. 



OUTPUT OF PHASE 64 



The output of phase 64 depends on the 
options specified by the user. The LISTX, 
CLIST, LINK (or CATAL) , and DECK options 
are processed by phase 64 in the same way 
as they are processed by phase 60. For 
details, see "Output of Phase 60" in the 
chapter "Phase 60." 

If the SXREF, XREF, VERBREF, or VERBSUM 
option is in effect. Procedure Al-text is 
used to create REF-text and to write it on 
file syS004. This text, containing an 
element for every data-name, file-name, and 
procedure-name in the program, is used by 
phase 61 to produce a cross-reference 
listing. DEF-text, which is also produced 
in response to the specification of the 
SXREF, XREF, VERBREF, or VERBSUM option, is 
read by phase 64 from file Sys004 and 
passed to phase 61 on file SYSOOl. 



COMPLETING THE RLDTBL TABLE 



Phase 64 reads Data A-text from file 
SYS004 before it reads Procedure Al-text 



from file SYS002. It does this because 
Procedure Al-text for segmented programs 
has been written by phase 63 in order of 
ascending priority with the root segment 
first. Before phase 64 reads Procedure 
Al-text, therefore, it must complete all 
RLD entries for the root segment. 

The primary function of Data A-text 
processing is to place values in fields in 
the data area or in the global tables in 
the object module. Each element causes 
either the generation of an object text 
element or the creation of an entry in the 
RLDTBL or QTBL table. Routine RLDSORT is 
used to make entries in the RLDTBL table in 
sorted order. Some RLDTBL table entries 
are later written out as relocation 
dictionary (RLD-text) entries for the data 
area and as object text. Other entries 
(for the global tables ) will be written 
out as object text only (these will be 
relocated by the object program) . 

File syS004, from which Data A-text is 
read, also contains E-text, generated by 
phases 10 through 63, and DEF-text for the 
cross-reference listing if the SXREF, XREF, 
VERBREF., or VERBSUM option was specified. 
Figure 57 in the chapter "Phase 60" 
illustrates the contents of this file when 
it is read by phase 64. E-text and 
DEF-text are processed by phase 64 in the 
same way as they are processed by phase 60. 
Figure 58 in the chapter "Phase 60" 
describes how each type of eleirent is 
processed. 

After end of file on SYS004, Procedure 
Al-text is processed. 

COMPLETING THE MACHINE LANGUAGE PROGRAM 



Routine SE6000 reads Procedure Al-Text 
from file SYS002. Since Procedure Al-Text 
has been written by phase 63 in order of 
ascending priority with the root segment 
first, routine SE6000 reads the text 
sequentially for segmented programs, as 
well as for non-segmented programs. 

The special processing done by phase 64 
for Procedure Al-text elements is described 
in Figure 61 "Processing of Procedure 
Al-text." All other Procedure Al-text 
elements are processed by phase 64 in the 
same way that phase 60 processes Procedure 
A-text elements. See "Procedure A-Text 
Processing" and Figure 56 "Processing of 
Procedure A-Text" in the chapter "Phase 
60." 
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r T' 

I Code and Type | 
^ 1. 

78 

address 

reference 



Action Taken 



If the i field contains X*03' the BL, BLL, SBL,, or SBS indicated is 
already loaded. Process in the same way as phase 6 does, otherwise, 
save contents of print buffers and generate load of register lU or 
register 15 with the BL, BLL, SBL, or SBS indicated by the high-order 
bit of the i field. If the bit is on, use register 15; if it is off, 
use register IH. Restore buffers and complete processing in the same 
way as phase 60 does. 



80 

address 

increment 



If appended byte is not zero, print buffers are saved. One LA instruc- 
tion is generated for each multiple of 4095 in the sum of the displace- 
ment saved for the 78 (or DO) and 80 elements. Buffer is restored; its 
displacement field is replaced by the amount in excess of the final 
multiple of 4095. Value of the 80 element is included in the symbolic 
field as "+«««." 



BC 

segmentation 
and GO TO. . . 
DEPENDING ON 
call parameter 



Generate 3 DC instructions, used as parameters by the GO TO... DEPEND- 
ING ON and Segmentation subroutines. Code generated is as follows: 

DC X* priority* 

DC X" Procedure Block number' 

DC X2' displacement, with Procedure Block* 



C4 

procedure 
block number 



Add displacement within PGT of Procedure Block cell (or OVERFLOW cell) 
to each instruction that establishes addressability for a Procedure 
Block. Use PRBLDISP cell set in COMMON by purpose. 



Enter displacement in branch instructions generated by phase 63, 
using PNLBDTBL. 



C8 

procedure base 
register for 
PNs 



displacement in branch instructions generated by phase 63, 
GNLBDTBL. 



CC 

procedure base 
register for 
GNS 

l. 



Enter 
using 



DO 

base displace- 
ment data-name 



Specifies actual register number, displacement from start of area con- 
trolled by base register, and a data-name dictionary pointer. Write 
base and displacement; branch to routine for processing dictionary 
pointer. 



♦This table describes only those elements which are unique to Procedure Al-text. All 
other elements are identical with their counterparts in Procedure A-text, and are 
processed by phase 64 in the same way as they are processed by phase 60. See 
"Processing of Procedure A-text" in the chapter "Phase 60." 



Figure 61. Processing of Procedure Al-Text* 
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INITIALIZATION ROUTINES 



After Procedure Al-text has been 
processed, the initialization coding is 
generated. Routines GUJITl, GINIT2, and 
GINIT3 generate the code for INITl, INIT2., 
and INIT3, respectively. The three 
initialization routines, in the order in 
which phase 64 writes them, are INIT2, 
INIT3, and INITl. All three are resident 
in the root segment if the program is 
segmented. 

INITl sets up address constants for the 
program's TGT» PGT, and first executable 
instruction, and for the three 
initialization routines. It then transfers 
control to INIT2 if the program is a 
subprogram, or to INIT3 if it is not. 

INIT2 is executed if the program is a 
subprogram or is entered at a secondary 
entry point. It establishes standard 
subroutine linkage. Control then passes to 
INIT3 which sets up base registers, 
relocates addresses, and transfers control 
to the proper point in the program to begin 
execution. (For a more complete 
description of these three routines. 



including the generated code, see "Appendix 
B. Object Module.") 



RLDTBL TABLE PROCESSING 



After the initialization routines are 
generated (after Procedure Division or root 
segment processing) , the RLDTBL table is 
processed. Indirect address constants are 
resolved. object text is written for items 
that are in the global tables. This text 
consists of address constant definitions 
that will be stored in the global tables at 
execution time. No RLD-text is required 
for these items, because the addresses are 
relocated during program execution by 
routine INIT3, However, in a nonsegmented 
program, RLD-text is written for relocating 
all Procedure Block cells contained in the 
PGT, Object text is also written for data 
area address constants (obtained from 
address constant and indirect address 
constant definitions) . For the data area 
address constants, RLD-text is written so 
that the linkage editor can relocate the 
addresses. 
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PHASE 61 



The function of phase 61 is to produce a 
cross-reference listing on SYSLST (or 
SYS006 for LVL option). The phase is given 
control only if the SXREF, VERBREF, 
VERBSUM, or XREF compiler option was 
specified by the user. The transfer of 
control is described under "Processing 
Between Phases" in the chapter "Phase 00." 

Phase 61 tests the PHZSW2 byte in COMMON 
to determine whether the option specified 
is SXREF. If SXREF is in effect, phase 61 
generates an alphabetically ordered 
cross-reference listing. Phase 61 tests 
the PHZSW4 byte in COMMON to determine 
whether the option specified is VERBREF or 
VERBSUM. If VERBREF is in effect, phase 61 
produces the verb cross-reference listing. 
If VERBSUM is in effect, phase 61 produces 
only the verb summary listing. Otherwise, 
XREF is in effect and a cross-reference 
listing ordered by source statement 
sequence is generated. 

Phase 61 performs the following 
operations : 

• Reads DEF-text into storage until 
either storage is filled or end-of-file 
is reached. It creates a DATA record 
and, if SXREF is in effect, a CONTROL 
record, for each DEF-text element. For 
SXREF, the CONTROL records are used in 
sorting the external names. 

• Reads REF-text and appends references 
to the proper DATA record (or OVERFLOW 
record) if the definition has been read 
into storage. 

• Prints each DATA record and its 
associated OVERFLOW records. 

These three operations constitute the 
fundamental cycle which is repeated until 
all DEF-text has been processed. 

DEF-text for verbs has the same format 
and is processed in the same manner as 
DEF-text for data-names. Similarly, 

REF-text for verbs (VERBREF only) has the 
same format and is processed in the same 
manner as REF-text for data-names. The 
only special processing for verbs is the 
recognition of the first verb-element and 
the first procedure-name thereafter. 

During phase initialization. Phase 61 
uses the GETALL routine in TAMER to get all 
available storage for use in creating the 
DATATBL table, OFLOTBL table, and the 
CNTLTBL table (if the SXREF option is in 



effect), which contain the DATA records, 
OVERFLOW records, and CONTROL records, 
respectively. It does not, however, use 
TAMER routines to access these tables, 
phase 61, therefore, is able to construct 
tables occupying more than 32K bytes. 



PRODUCING A SOURCE ORDERED CROSS-REFERENCE 



LISTING 



The maximum amount of space is obtained 
for the DATATBL and OFLOTBL tables by a 
call to GETALL in phase 00- An algorithm 
is used for dividing the area into two 
parts, one for the OFLOTBL and one for the 
DATATBL. 

The DEF-text is read from file SYSOOl 
where it was written by phase 60, or 6U. 
There is one element of DEF-text for each 
data-name, file-name, and procedure-name in 
the source program. The text on file 
SYSOOl is read into storage and the 
contents of each element are moved into the 
corresponding area in a DATA record. This 
is repeated until all assigned DATA records 
(for which there was space) are filled with 
DEF-text. One DATA record is created from 
each DEF-text element. 

The REF-text is read from file SYS003 
or, if OPT is in effect, from file SYS004 
There is one element of REF-text for each 
time a name is referred to in the source 
program. The text on file SYS003 or SYS004 
is read, one element at a time, until 
end-of-file is reached. 

In the REF-text, for a data-name or 
file-name, the internal name is the 
dictionary pointer assigned by phase 22. 
For a procedure-name, the internal name is 
the PN number assigned by phase 11. The 
setting of a bit in each entry indicates 
whether it contains a dictionary pointer or 
a PN number. When a REF-text element is 
read, the high-order bit of the referencing 
card number is tested to determine whether 
the reference is to a data-name or to a 
procedure- name. This test is made in case 
a dictionary pointer and a PN number 
happened to have the same bit 
configuration. 

If the DEF-text element for the 
referenced data-name or procedure-name was 
processed in this cycle, the DATA record is 
in storage. For a REF-text element for a 
data-name, a binary search of the DATATBL 
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table is made to locate the matching DATA 
record for the data-name, A REF-text 
element for a procedure-name is matched 
directly by means of an algorithm with the 
DATA record for the procedure-name. If a 
match is not found, the REF-text element is 
ignored. If a match is found, the 
referencing card number contained in the 
REF-text element is placed in the DATA 
record, or if it is full, in an OVERFLOW 
record which was chained to it when the 
first overflow record was needed. If the 
current OVERFLOW record is full, another 
OVERFLOW record is added to the chain,, and 
the referencing card number is inserted in 
the first three bytes of the record. If 
no space is available for the OVERFLOW 
record; the DATA record containing the last 
DEF-text element read is taken out of the 
DATATBL and the space is assigned to the 
OFLOTBL. The space is divided into three 
OVERFLOW records which are placed on the 
overflow free chain. Before the 
referencing card number is placed in the 
newly designated OVERFLOW record, the 
REF-text element is rechecked to ensure 
that the matching DATA record was not just 
deleted. At end-of-file, the REF-text file 
is closed. 

At the end of the cycle, each DATA 
record and its associated OVERFLOW records 
are printed on SYSLST (or SYS006 for LVL 
option). 

If this is the last or only cycle, 
processing is completed when all neunes, 
defining card numbers, and referencing card 
numbers in main storage have been printed. 
If this is not the last cycle, DEF-text is 
again read into main storage. (If it was 
necessary to split one or more DATA records 
into OVERFLOW records in the preceding 
cycle, the DEF-text file must be rewound, 
and the DATATBL and OFLOTBL set back to 
their original lengths. REF-text must also 
be reread. Names are read and ignored 
until the last name processed in the 
preceding cycle is reached. ) Data records 
are created for unprocessed names and the 
cycle continues with the reading of 
REF-text. 



PRODUCING AN ALPHABETICALLY ORDERED 
CROSS-REFERENCE LISTING 



The maximum amount of space is obtained 
for the DATATBL, OFLOTBL, and CNTLTBL 
tables by a call to routine GETALL in Phase 
00. An algorithm is used for dividing the 
space among the three tables. 



The DEF-text is read from file SYSOOl. 
The text is read into storage and the 
contents of each element are moved into the 
corresponding area in a DATA record. This 
is repeated until all assigned DATA records 
(for which there was space) are filled with 
DEF-text. One DATA record and one CONTROL 
record are created for each DEF-text 
element. The CONTROL records are used in 
sorting the external names, which is done 
as the DEF-text is read. 

The REF-text is read from file SYS003, 
or, if OPT was specified, from file SYSOOU, 
The text on file SYS003 or SYSOOU is read, 
one element at a time, until end-of-file is 
reached and the bit is tested as described 
in "Producing a Source Ordered 
Cross-Ref erence Listing. " A search of the 
DATATBL table is made for the matching DATA 
record and if it is found, the referencing 
card number is placed in the DATA record, 
or if it is full, in an OVERFLOW record 
chained to it. If the current OVERFLOW 
record is full, another OVERFLOW record is 
added to the chain, and the referencing 
card number is inserted in the first three 
bytes of the record. If no space is 
available for an OVERFLOW record, the DATA 
record which is last on the chain of sorted 
DATA records is split into three OVERFLOW 
records which are placed on the overflow 
free chain. Before the referencing card 
number is placed in the newly designated 
OVERFLOW record,, the REF-text element is 
rechecked to ensure that the matching DATA 
record was not just deleted. If a matching 
DATA record is not found, the REF-text 
element is ignored. At end-of-file, the 
REF-text file is closed. 

At the end of the cycle, each DATA 
record and its associated OVERFLOW records 
are printed in alphabetical order on SYSLST 
(or SYS006 for LVL option) . The lines 
printed give the external name (from the 
DEF-text element) , the card niimber of the 
statement in which the item was defined 
(from the DEF-text element), and the card 
numbers of all the references (from the 
REF-text elements). 

If this is not the last or only cycle, 
DEF-text is again read into storage. 
(Whenever more than one cycle is required 
to process the entire DEF-text file, the 
file must be rewound. ) Names are read and 
each name is compared with the last name 
processed in the preceding cycle. If the 
name read alphabetically precedes the last 
name processed, it has already been 
processed. If the name read alphabetically 
follows the last name processed, the cycle 
continues with the creation of DATA and 
CONTROL records. 
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PHASE 70 



Phase 70 (ILACBL70) generates all the 
compiler diagnostics for source program 
errors. Its input consists of E-text from 
phases 01 through 51 that is either in 
storage or on SYSOOS. If no output from 
phases 6 0, 62, 63, or 64 has been requested 
or if a message of sufficient severity has 
been generated and the SUPMAP option is in 
effect, phases 60, 62, 63 and 64 text 
processing is bypassed, and phase 70 reads 
its input from SYSOOU. Its output consists 
of completed messages, which are written on 
SYSLST (or SYS006 for LVL option) . If it 
finds that the name of the program is 
ERRMSG, phase 70 also produces an error 
listing of all error messages in numerical 
order . 



INPUT FROM PRIOR PHASES 



Phases 04 through 51 produce E-text in 
the same manner. Whenever a processing 
routine detects a source program error, it 
writes out message definition elements of 
E-text described in "Section 5. Data 
Areas. " 



If parameters are associated with the error 
message, the phase sets up a message 
parameter entry immediately after the error 
entry. 



Phase 04 writes E-text for BASIS and 
COPY statements on SYS 003. Phase 10 writes 
E-text intermixed with Data A-text on 
SYS003. Phase 21 reads E-text, 
interspersed with other texts, from SYSOOS. 
It writes the E-text back onto SYS004 
without change, along with Data A-text and 
its own E-text. Phases 12 and 11 writes 
the E-text produced during PO-text 
processing on SYS002 intermixed with the 
PO-text. From then until phase 51, E-text 
is added to the Procedure IC-text stream as 
errors are encountered. Phase 51 isolates 
this E-text and writes it, together with 
its own, on SYSOOU. Phase 60 or phase 64 
encounters E-text on SYS004 during its 
operations. To avoid extra input/output 
operations, phase 60 or phase 64 attempts 
to save the E-text in a storage area, the 
ERRTBL table. The ERRTBL table, however, 
is of a fixed size. If all the E-text 
cannot be saved in ERRTBL phase 60 or phase 
64 writes the E-text on SYS003 for phase 7 
to read. (ERRTBL is of a fixed size to 
allow all available space to be assigned to 
the RLDTBL during phase 60 processing.) 



PHASE 7 ERROR PROCESSING 



Upon receiving control from phase 00, 
phase 70 uses the PARTBL, EACTBL, and 
PHxERR tables, along with E-text, to 
construct error messages which it then 
writes out. 



THE PARTBL AND EACTBL TABLES 



The PARTBL table is a fixed table 
assembled as part of the phase and not 
handled by TAMER routines. It contains 
pointers to all possible error message 
parameters (COBOL words, verbs, operations, 
etc.) that are not programmer- supplied 
names. The pointer is a displacement from 
the beginning of all parameters to the 
parameter for that entry. Its entries are 
of the form: 

r 1 

I 2 bytes | 
|. ^ 

I Pointer to | 
I parameter | 

L J 

The EACTBL table is a fixed table 
assembled as part of the phase and not 
handled by the TAMER routines. It contains 
pointers to error statements which describe 
what compiler action was taken because of 
the error; for example, "STATEMENT ACCEPTED 
AS WRITTEN." Its entries are of the 
following form: 

r 1 

I 2 bytes | 
j. ^ 

I Pointer to | 
I statement | 
L J 

The pointer is a displacement from the 
start of the list of actions to the start 
of the action for this entry. 



THE PHXERR TABLE 



The PHxERR tables are fixed tables 
assembled as part of the phase and are not 
handled by TAMER routines. For each 
message, an entry is made in the 
appropriate PHxERR table, where x has the 
following values: 
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= Phase 00 

1 = Phase 04 (BASIS/COPY), 10, 
11, or 12 

2 s Phase 20, 21, 22, or 25 

3 = Phase 30 or 35 

4 » Phase 40 or 45 

5 = Phase 50 or 51 

6 = Phase 60, 62, 63, 6a, or 65 

Each entry is of the following form: 

r 1 

I 2 bytes | 

^ ^ 

{Pointer to text of | 
[appropriate message! 
L J 

The pointer is of the form of a 
displacement of the specific message from 
the start of messages for that phase. 

The message text is found in phase 7 
starting at label TXIOOO, 



GENERATING MESSAGES 



The XNORML routine scans each E-text 
item in turn. It first moves, into work 
area XU6REC, the card number, the message 
and phase numbers, and the severity code 
listed in the entry as follows: 

bnn nnnbb ILApxxx I - s 

where: 

b 

indicates a blank 

nnnnn 

is the compiler-generated nxomber of 
the statement containing the error 

P 

indicates the phase in which the error 
occurred , where : 

= Phase 00 

1 = Phase 04, 10, 11, or 12 

2 => Phase 20, 21, 22, or 25 

3 = Phase 30 or 35 

4 = Phase 40 or 45 

5 = Phase 50 or 51 

6 = Phase 60, 62, 63, 64, or 65 



XXX 



is the number of the message 



is the severity code, as followB 
W = warning 
C = conditional 
E = error 
D = disaster 



Routine XNORML next uses the pointer in 
the corresponding PHxERR table entry for 
.the E-text entry to find the text of the 
message itself. It places the text in work 
area XU6REC. It scans the text entry for 
the presence of the symbols $, =, and /. 

The symbol $ indicates that a parameter 
following the E-text for this message must 
be inserted at this point. Parameters are 
taken either from the parameter entry 
itself or from the location pointed to 
indirectly through the PARTBL by the value 
field of the parameter entry- 

The symbol = indicates that an error 
action message must be added. In this 
situation, a number directly follows the = 
symbol. Phase 70 uses this number as a 
pointer to determine the displacement into 
the EACTBL table for the pointer to the 
appropriate error action message. 

The symbol / indicates that this is the 
end of the text for this message. 

The error action messages are in phase 
70, starting at label EACTOO. Routine 
XNORML moves the error action message into 
the work area immediately following the 
text for the message. Routine XPUT then 
writes the message on SYSLST (or SYS006 for 
LVL option) . 



ERROR MESSAGE LISTING 



At phase 70 initialization, control 
transfers to a string routine to generate a 
comprehensive listing of all compiler 
messages if the PROGRAM-ID is ERRMSG. The 
SEVTBL table and SC MACRO instruction are 
used for this purpose. A description of 
the listing is given in "Section 6: 
Diagnostic Aids." 
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FIPS PROCESSING 



The FIPS processing phases (8s) cannot 
handle programs with syntax errors ih the 
source. If phase 70 finds any errors of 
greater severity than W, a flag is set in 
COMMON (INFOMSG) to prevent FIPS 
processing. In addition, some warning 
messages cause the flag to be turned on. 
Those that do not, have a bit (X'20') set 
on in their SEVTBL entry, indicating an 
informational message. (Messages that do 
not cause the above flag to be turned on 
can be identified in the error message 
listing by an action code of 'L'.) 

Certain information needed by the FIPS 
processing phases to do a limited amount 
of semantic checking is sent through the 
compiler in the form of special 'error' 
messages. These messages are distinguished 
by a phase-identification field of 15. 



When phase 70 discerns a message with 
this phase identification, it does not 
output it, but instead enters it into one 
of two Tamer tables, which are then passed 
on to Phase 80 for processing. 

FIPSMTBL holds all such messages with a 
message number higher than 255. The high 
message number indicates a potential error, 
depending on FIPS level. 

FIPSPTBL holds the paz'ameters (not the 
messages) for all such messages with 
message numbers less than 256. (The 
'messages' are meaningless and serve only 
to carry the parameters through the 
compiler. These parameters constitute the 
list of all FDs and all file records 
defined in the Data Division, and serve as 
an abbreviated dictionary for the FIPS 
phases. 
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PHASE 80 



The function of Phase 8 is to flag the 
COBOL source statements that are at 
variance with the Federal Information 
Processing Standard (FIPS). The phase is 
given control only if the LVL compiler 
option is specified by the user or was 
defined as the default value at 
installation time. The transfer of control 
is described under "Processing Between 
Phases" in the chapter "Phase 00." 

When phase 01 determines which level of 
flagging has been specified (A = low; B = 
low intermediate; C = high intermediate; D 
= full standard) , the level is stored in 
the System Communication Region. Phase 80 
picks up the level from there via the COMRG 
macro; the LINECOUNT for the listing output 
is also picked up. 



Input 



Input to phase 80 is the COBOL source 
program listing and other data on the 
SYSOOe utility data set. 

When FIPS processing has been requested, 
the source program is written on SYS006 by 
phase 01 if no Lister options are in effect 
or by phases 10, 12, and 11. 

Output 



The output of Phase 8 is written on 
SYSLST. It consists of the COBOL source 
program listing flagged according to the 
specified level of the Federal Information 
Processing Standard and other data written 
on SYS006 during compilation. However, if 
the LST option is in effect, the listing of 
the source program will be suppressed to 
avoid duplicating the Lister option 
listing; FIPS messages will be printed. 

If INFOMSG in COMMON is on, ILACBL80 
puts out error message number ILA8008 and 
does not process the source program. 



Phase 80 performs the following 
functions: 

• Scans each Division of the COBOL source 
program. 



• Generates diagnostic messages for 
exceptions to the standard. 

• Writes the source progreun and messages 
on SYSLST. 



SCANNING THE SOURCE PROGRAM 



The source program is scanned by the 
four scanning routines of Phase 80. They 

are IDSCAN, ENVSCAN, DATASCAN, and 
PROCSCAN; they process the Identification, 
Environment, Data, and Procedure Divisions, 
respectively. These routines are under 
control of the II1ACBL8O routine and they 
use the GETLINE, PUTLINE, GETWORD, CHKCOPY, 
CHKGLBLS, MSGHNDLR, and VERBCHK routines. 

The scanning routines call the GETLINE 
routine to read a line of the source 
program and the GETWORD routine to 
determine each word of the line. 
Subroutines in each scanning routine check 
eacfc word to see if it meets the FIPS 
standard. Diagnostic messages are issued 
for exceptions to the standard. 



GENERATING DIAGNOSTIC MESSAGES 



When an exception to the FIPS standard 
is discovered in the source program, the 
MSGHNDLR and MSGWRITE routines are called 
to format the diagnostic message and to 
write it on the output data set. 

Each Division scanning routine contains 
the text of the messages that are issued by 
that routine. When the MSGHNDLR routine is 
called, the address of the message is 
passed to the routine. The routine formats 
the message for printing by the MSGWRITE 
routine. 



WRITING THE SOURCE PROGRAM 



Each time the GETLINE routine is called 
by one of the scanning routines, it reads a 
line of the source program and then calls 
the PUTLINE routine to write the line on 
SYSLST. After the line is written on the 
output data set, control is returned to the 
scanning routine for FIPS processing. 
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SECTION 3. PROGRAM ORGANIZATIOW 

FLOWCHARTS The contents of this chapter are: 

This chapter contains flowcharts of all 1. Explanation of flowchart symbols 
the phases of the compiler. There is an 
overall flowchart for each phase, followed 

in most cases by more detailed flowcharts 2. Phase flowcharts (Charts A A through 
of the major routines in the phase. Also TA) 

provided is a set of flowcharts for a 

typical Report Writer subprogram generated 3. Report Writer Subprogram flowcharts 
by the compiler. (Charts UA through UT) 
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Explanation of Flowchart Symbols 
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Chart AA. Phase 00 (ILACBLOO) : Overall Logic (Part 1 of 8] 
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Chart AA. Phase 00: Overall Loqic (Part 2 of 8) 
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Chart AA. Phase 00; Overall Logic (Part 3 of 8) 
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Chart AA. Phase 00: Overall Logic (Part 4 of 8) 
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I Chart AA. Phase 00: Overall Logic (Part 5 of 8) 
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1 Chart AA. Phase 00: Overall Logic (Part 6 of 8) 
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Chart AO. Phase 00: TAMER Subroutines TMVTBLHI and TMVTBLLO 
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Chart AS. Phase 00: TAMER Subroutine TPACK (Part 2) 
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Chart 6C. Phase 21: BLOCK CONTAINS Clause Processing 
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Chart 6D. Phase 21: RECORDING MODE Clause Processing 
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Chart 6E. Phase 21: BDPGEli (Part 1 of 2) 
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Chart 6E. Phase 21: BU?GEN (Part 2 of 2) 
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Chart HA. Phase 22 (ILACBL22) : Overall Logic 
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Chart HB. Phase 22: FSECT Routine 
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Chart HC. Phase 22: WiSECT and L5ECT Routines 
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Chart HD. Phase 22: RSECT Routine 
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Chart HE. Phase 22: LDTXT Routine 
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Chart HF. Phase 22: READF4 Routine 
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Chart H6. Phase 22: DICTBD Routine 
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Chart IB. Phase 25: ODOBLD, BLDOBODO, and ENPPI 
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Chart IC. Phase 25: BE6PASS 
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Chart ID. Phase 25: TESTSUBS and SETNAHS 



* « 

• lESTSOBS * 

» « 



B1 *. 

.» ♦. 

.* HOHBEB or «. 

*. SUBSCRIPTS .* 

•.BBOOIRBO .* 

• . .♦ 



;i 



• sfsool BOFPEB * 

• • 



2 |?|iP»" 

"KgiSsr : 

* * 



««««^2 ********** 

* SET SOBSCBIPI * 

• I«rO Bit IB * 
' OftTklkB B»r" 



***C3********** 



* SET SOBSCBl 
« CQDHT TO 1 
••••**********•** 



ITBI * 
RIPT • 



* SET SOBSCBZPT 

* IRTO BITS IB * 

* DITltlB BVIBT * 

* SET SBBSCRIPT * 

* CQOBI f 2 * 
***************** 



RBSDBS T 
•****C4********** 



JittUtB EHfRT * 

SET SDBSCBtPT * 
TO 



TBSTSB6 

* UTBPT- 



*.OCCDBS CliOS 



J.*- 



*****B2********** 
*SBT MCT PTR TO* 
*THIS BRTBT FOR * 

* SRCH THRU * 

* OCCTBL * 

* • 
*••****««****•**• 



**•«••**•••***•****** 



•***P1***««*«** 



•*•*•••***«••** 



* * 

* BHTBR DITK IB * 

* BOPFBR POR * 

* STS005 * 

* • 
*•««*•**••«*•••** 



•«**B 1*«*****«« 

* RBTDRR TO « 

* CILLER « 

* « 
••*•***•**•**** 



*SETS OCCOBS PTR* 

* IB TBISCOBOL •- 

* DICT EBTBT * 

* * 
***************** 



*:M!5i?B=^!.G*:*I5L 

*. ORODP .* 



IS PkRkHBTER 
POB IkTRPT 
tCCBSS RTR 



••**ts********* 



•••••*•*«*«•*** 



••***B5********** 

* BOTE EBCDIC * 

* BIBB kBD CT * 
*PROH COBOL DICT* 

* TO D»I»TAB * 



•****C5********** 



• *4r**««4i«******«i* 



r»*«**D5****««**** 



«••*••**•**«***•* 



• • 
•SET RkJOR CODE * 

* IR DkTkTkB * 

• EHTRT * 

* * 
***************** 



***«F5********* 
* BBTORR * 



••«**G3**«*«***** 



•*•*•**••****«••* 



•*«*•*** 



JOTE IB 
BL TO : 
BR' 



f PRO 



••••••••***•**••* 



* BOTE ODODOTkB * 
->♦ PTR TO SATE *- 

* ARBK • 

* * 



•****J5********** 
•SET BIT TO IR- * 

* DICATB LOHESI * 
->*LBfEL SbOOP BAS* 

• 000 CLAOSE • 



***************** 



.*. 



*TES 

>* * 

* CI • 



•••««K3***«*4i«**« 

* • 

* REOnCE * 
->*SDBSCRIPT COURT* 

* BT OBE • 

* • 
****•**«*••*•*•** 



■>* * 

• D3 • 



L 



184 Section 3. Program Organization 



Licensed Haterial - Property of IBM 
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Chart JB. Phase 30: 6L0SRT Routine 
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Chart JD. (Part 1 of 5) . Phase 35: PHCTRL Main Control Routine 
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Chart JD. Phase 35: ANLZUFDS Routine (Part 2 of 5) 
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Chart JD. PHASE 35: PNDEFRTN Routine (Part 3 of 5) 
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Chart JD. Phase 35: GOTAVERB Routine (Part 4 of 5) 
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Chart JD. Phase 35: ANLZURBS Routine (Part 5 of 5) 
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Chart KA. Phase 40 (ILACB40) : Overall Logic 
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Chart KB. Phase '♦0: IP Processing 
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Chart KC. Phase 40: PERFORM Processing 
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Chart KD. Phase 45: Overall Flow (Part 1 of 3) 
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Chart KD. Phase 45: UNSTRING Routine (Part 2 of 3) 
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Chart KD. Phase 45: SORTXT Routine (Part 3 of 3) 
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Chart LA. Phase 50 (ILACBL50) : Overall Logic 
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Chart LB. Phase 50: GETNXT (Part 1 of 2) 
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Chart LB. Phase 50: GETHXT (Part 2 of 2) 
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Chart LC. Phase 50: A-text Generator 
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Chart LD. Phase 50: ZSPRO and KILSUB Routines 



» « 

» XSPRO « 
• * 



0-BII OM 



•*«**C1«********* 

• * 

* WHCOO 5 • 

♦IF •OPT« B8ITB * 

• C605 ♦ 



*•**•♦•«••««•*««* 



* • 

* OEMEIIKTE L 2, * 

* OUBEP FOR • 

* O-SOnTIHB ♦ 

* * 



•• ♦. TBS 
*.OPT RBODESIED.* 



* • 

* OPOATE • 
->* SUBSCRIPT OPT * 

♦ TABLE ♦ 

• ♦ 



*****C2********** 



•**•*••****••**•♦ 



****D2********* 

* HBTORB TO • 
» PH5CTI « 

* « 



••♦♦♦E2********** 



• * 

» KILSOB ♦ 

> * 



«*«««BI| ********** 

* ZERO bOT ♦ 

•displacehIkt m* 

♦ SUBSCRIPT opt » 
♦TABLE (XSCRPT) * 

***************** 



«****c<i******* •** 
« * 

* ZERO OOT * 
*DISPLACBalai IN* 

* XSSHT TABLE * 

***•**•****•**•** 



SEE CHART 
LA01B2 

♦«■ ■ - 



**«*D<t********* 
» RBTDRH TO • 

* PHSCTL » 

* « 
*•••******•** •* 



->*ADD 1 TO RGRCTB* 



**•• 
» • 
» 01 * 



*••******•«*•**•* 



*««**P2********** 



G1 *. 
* *. 
RUBBER OF *. >0 
TO .* 



•****•**•*««***«« 



••*«*62********** 

• * 

• GBRBRATB BALE • 



» RBTDRH TO * 
» PHSCTL * 
* * 

**•«•********•* 



**•••«*•*♦*•***•• 



•***«B2********** 
*SDBIRACI 1 FROn* 

* ROHBBR OF * 

* O-ROOTIMES TO • 

* CALL * 

* * 
***************** 



L 



Flowcharts 195 



Licensed Material - Property of IBM 



Chart LE. Phase 50; 



DBGTEST 



* * 

* DBQTBST * 

* * 



SSITCR OK 



• « 
->* RZTORV « 

* 4 



***«*C 1««****«*** 



••**•«••••*•*•••« 



•••««D1********** 



•OBRBRtlB 
•TCOH BALR 
• DBSTROT 



••••««««««««4i«**« 



\m 



» « 

* DBGRTHOO « 



••*«D2********* 



****•**•*«•«••• 



•••••2 f *«***•••** 



•TORV SRXTCB OH * 



****•*••••******* 



* » 

* RBTORR * 



196 Section 3. Program Organization 



Licensed Material - Property of IBM 



Chart NA. Phase 51 (ILACBL51) : Qyerall Logic 
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Chart HB. Phase 51 
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Chart MC. Phase 51: GETNXT Routine 
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Chart MD. Phase 51: PDTDEF Routine 
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Chart ME. Phase 51: SET Verb Analyzer, Format 1 
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Chart MF. Phase 51: MOVBU 
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Chart NG. Phase 51: SETLEN and LOADLIT 
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Chart MH. Phase 51; SET Verb Analyzer, Format 2 
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Chart MI. Phase 51: PERPORM and TRANSFORM 
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Chart MJ. Phase 51: DISPLAY and EQUATE 
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Chart MK. Phase 51: IMINIT, IMGEN, RESET, and EXITP6M 
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Chart HL. Phase 51: DEBUG, READ, TRACE, and GOBACK Routines 
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Chart MM. Phase 51: IP-Index Routines 



» ♦ 

» w » 

• * 



•»3** 



«««*«B1********** 



«*«*«t3* ••**••«*• 



*anBRtTB SS 2,2* 



•««•«*««*«*«*••«« 



••««*B3*i*«**«** 



• *SBB KOTB BBLOR 



ElBSkTB 

3,D0P1 



«**•*«*•****••*•* 



'•fas 



D1 



*. 



TBS .« pOP2 
r-^-*.^I«BBl KftHB ^.•<- 





«0 


> • < 


1. 
*, 
*. 

«•* 

«0 







*«**«C2********** 



••*••***•••****•• 



•**««D2*«*«****«* 



•••*«*•«••*•«•••« 



•*«««*««*«**«**«i 



*****C3******«*** 
•SBTIBB * 

• • 

5 (P0« D0P1) ; 



**«««>D3*«****«*** 



**««*M***«*** *0* 



I — >*aBIBStTB SR 0,0* 



«••«*«•«*••*** **« 



BO0 1*2 

•SETLBB • 

• • 

* (FOB I>0P2) * 



»*«*»Cli********** 



•••«*••«*••••*•*• 



B2 *. 
.* *. 
TBS .* D0P1 (OLD *. 

•.D0P2J. - I1IBBX.» 

*. »BB .* 
*. .* 
♦ . •• 
•10 



•«*«*F t«****«**** 



wr 



*«*••*••****••*•• 



.•• 

01 *. 
.* *. 
.* D0P2 - *. IBS 

*. XBDBZ out .• 

*. BIHB .* 
*. .* 
*. .* 
•■0 



••••*Q2********** 



*OB«BRkTB OR 2,0* 



•«•««*«••*«•••••• 



••*«*P3*******««i 



*•••********•«**< 



• IS 

• - — I 

•••••I 
•SBTLI 
».->■»- 

• * 

• (FOR D0P1) • 



•«**«B5«*«******* 



* 9BRra« 



00P2 



•**••***«•***«*«• 



••••*I)««i««t«*« «*« 



•OBBBRkTB DR 0,2* 



•**«****••*•** *«« 



***«4iBt|**«******« 



«««**««**«4i«*«*«* 



«««««C5*****«**** 



••••*•*•«••***•** 



«**«*D5***««**«*i 



•OBBBRkTB CR 3,1*- 



•**«••••*•*••*•*« 



OBIBRUB 

C 1,D0P1 



***•*•*• *«*«**«*i 



•*«*«B5«********^ 



•*•*•«•••«««*•*•• 



•*••••«•$ 






* H_ 

• Hft 



********«**4>*** 



• aiRBBiTB • 
•COHTBRSXOR kRD * 

• LOkD OP 0QP2 • 

♦ IBtO 81 • 

* « 



•*«•••••***•«•*•* 

* * 

• B2 • 
•••« I 

T neoiktt 

**»**B2********** 

: "PSftiiBlSP i 



FOR IFfionik, SBt CODB kHD C0D2 TO "Of" 
FOR iFlilQOE, SET CODB ARD COD| TO "ROT GT" 



£0 

FOR 

FOR 



IIP 

52 fa 



BT« 
"HOT IT" 



••««J f •««««*••** 



•••••*«•••«*••«* 



u. 



Flowcharts 209 



Licensed Material - Property of IBM 



Chart MN. Phase 51: GO, and GODEPM 
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Chart MO. Phase 51: 60DEPL and GO DEPENDING 
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Chart MP. Phase 51: Nonumeric IF (IFANAL) and Class Test (CLANAB) Processors 
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Chart MQ. Phase 51: SEGAL and SEGCAL3 
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Chart MR, Phase 51: A-text Generator, and GATXTC and GATXTV Boutines 
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Chart HA. Phase 60 (ILACBL60) : Overall Logic 
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Chart NB. Phase 60: PH6 Routine 
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Chart HC. Phase 60: PRFTWO Routine 
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Chart ND. Phase 60: SE6000 Routine 
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Chart NE. Phase 60: PDATEX (Part 1 of 2) 
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Chart NE. Phase 60: PDATEX (Part 2 of 2) 
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Chart OA. Phase 62: Overall Logic 
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Chart OB. Phase 62: PR6 
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Chart OC. Phase 62: PRPTHO 
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Chart OD. Phase 62: SE6000 (Part 1 of 2) 
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Chart OD. Phase 62: SE6000 (Part 2 of 2) 
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Chart PA. Phase 63 (ILACBL63) : Overall Logic 
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Chart PB. Phase 63: BRANCH 



» « 

* BBKIICB * 



.* PI/GK *. 10 

•.■DBBEB SITED .* 

*. .* 



BBABCH »BLB 

TO PBOCBSS BBAMCB 

IMSTROCTIOaS 



«««**B3*******«** 



**********•*«•**« 



*kDD 2 TO ICBCTR* 

*kiD LocctR roi * 

->• THIS •- 

* IBSTBOCIIOB * 

• • 



* 4 
B5 

***«BS********* 

* • 
->* BETDHB TO 6BT * 

* * 



* 

n 



C2 ». 
.•BBMCB *. 
> TO •• IBS 
--fpH 



PBOC .* 
.BLOCK.* 



*«***C3**««****** 

• SBRBBAIE * 
«IBSTR0CTZOR TO * 

->* LOAD BBR * 
*PaOCEDOBE BLOCK* 

* IRTO RBG 11 * 
«******«*****4i«** 



••***02********** 
*CBAR6E RR-TIPB * 

* BRARCB * 
•IRSTROCTIOR TO * 

* RX-TTPE ♦ 

* * 



• IRSTROCTIOR * 
*******••**•****« 



•••«*r2********** 

•ADD k TO ACRCTR* 
*ARD LOCCTR FOR * 

* THIS * 

* IRSTROCTIOR * 

* • 



••*M62********** 

• CALL PRASE 00 * 
•TO taiTE CO OR * 

• CC BLT HITS * 

* PR/GR ROBBER * 

* • 



L 



Flowcharts 22T 



Licensed Material - Property of IBM 



Chart PC. Phase 63: GNDEF 
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Chart PD. Phase 63: PNDEF 
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Chart PE. Phase 63: ADREF and ADINCR 
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Chart PF. Phase 63: C1REF, PNREF, and 6MBEF 
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Chart QA. Phase 64 (ILACBL64) : Overall Logic 
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Chart QB. Phase 64: ADREF, RC4, RC8C, and RD001 
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Chart BA. Phase 65 (ILACBL65) : Overall Logic 
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Chart RB. Phase 65: Debug-text Element Processors (TENPBOC, TWENPBOC, 6TEQ10K) 
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Chart UA. DET-ROUT Subroutine, Report Writer Subprogram 
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Chart OJ. RST-ROUT Subroutine, Report Writer Subprogram 
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Chart UK. ROL-ROUT Subroutine, Report Writer Subprogram 
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Chart UL. ALS-BOUT Subroutine, Beport Writer Subprogram 
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Chart UH. PGH-ROOT Subroutine, Report Writer Subprogram 
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Chart UN. SAV-ROUT Subroutine, Report Writer Subprogram 
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Chart OP. RET-ROOT Subroutine, Report Writer Subprogram 
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Chart UT. RPF-ROUT Subroutine, Report Writer Subprogram 
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PC 


01 


A2 


GNREF 


PF 


01 


Gl 


GNOPT 


LC 


01 


C3 


GO 


MN 


01 


Al 


GO DEPENDING 


MO 


01 


A3 


GOBACK 


ML 


01 


F3 


GODEPL 


MO 


01 


Al 


GODEPM 


MN 


01 


H2 


GOSYSGO 


AA 


01 


Bl 


GOTAVERB 


JD 


04 


Al 


GRIPR 


HG 


01 


G3 


GSPICT 


FD 


01 


B2 


GTEQIOK 


RB 


01 


E5 


IDDSCN 


CA 


01 


CI 


IDENT 


KA 


01 


C3 


IDLAN 


KA 


01 


F3 



Chart Page Block 



IF 


MM 


01 


Al 


IFANAL 


MP 


01 


A4 


IFERR 


KB 


01 


El 


IPSO 


KB 


01 


Fl 


IHNAM 


DA 


01 


D2 


IM6EN 


MK 


01 


Gl 


IMINIT 


MK 


01 


Al 


INIT 


HA 


01 


Al 


INITl 


NE 


02 


G2 


INSERT 


NB 


01 


J3 


INSERT 


NC 


01 


F2 


INSERT 


NC 


01 


A5 


INSERT 


NC 


01 


G2 


INSERT 


NC 


01 


H2 


INSERT 


NC 


01 


J2 


INTERLUD 


AA 


06 


E5 


ISPRNC 


KB 


01 


CI 


ITEMRN 


FD 


01 


HI 


JCANCEL 


AA 


02 


F5 


KILSUB 


LD 


01 


A4 


LDSCN 


CA 


01 


Q^ 


LDTXT 


HE 


01 


A2 


LINKA 


AA 


06 


B3 


LINKB 


AA 


06 


A3 


LINKR 


AA 


06 


B4 


LINKST 


PC 


01 


A3 


LOADLIT 


MG 


01 


A4 


LOGNWT 


IC 


01. 


Bl 


LSECT 


HC 


01 


A3 


MACPRO 


ND 


01 


H2 


MACRO 


PA 


01 


D3 


MOVEMOD 


BA 


01 


D<» 


M0VE4 


MF 


01 


Bl 


MPUT 


BA 


01 


B5 


NOGET 


IC 


01 


El 


NOTBASIS 


BA 


02 


01 


NTSL 


AA 


05 


C2 


NXTFILE 


BA 


01 


F3 


0D2FND 


IB 


01 


Dl 


OPPRO 


OD 


01 


C2 


PDATEX 


NE 


01 


Al 


PDT020 


NE 


01 


C2 


PDT030 


NE 


01 


D3 


PERFORM 


KC 


01 


Al 
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Lfibel 



Chart Page Block 



Label 



Chart Page Block 



PERFORM 


MI 


01 


Al 


FOUNT 


OB 


01 


G3 


PC-TINT 


NB 


01 


G3 


PHASEND 


lA 


01 


F2 


PHCTRL 


JC 


01 


Al 


PHCTRL 


JD 


01 


Al 


PHISIT 


JA 


01 


B3 


PHIMIT 


EA 


01 


B2 


PHINIT 


KA 


01 


B3 


FHTERri 


FA 


01 


G2 


PHSoVB 


LA 


01 


G2 


FH5CTL 


LA 


01 


B2 


PH5CTL 


MA 


01 


B2 


PH65 


RA 


01 


B2 



PICTAN 


FD 


01 


B5 


PLUSl 


LC 


01 


A3 


PLUSl 


MR 


01 


A3 


PNBRRO 


ND 


01 


F2 


PNDEF 


PD 


01 


A2 


PNDEFRTN 


JD 


03 


Al 


PHREF 


PF 


01 


E3 


PNUPRO 


NB 


01 


H3 


POINTO 


ND 


01 


J3 


PREPROC 


BA 


02 


Al 


PRFTWO 


NC 


01 


Al 


PRFTWO 


OC 


01 


Al 


PRINIT 


JB 


01 


D3 


PRINT 


JB 


01 


E3 


PROCOl 


EA 


01 


E2 
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Label 



Chart Page Block 



FROC02 


EA 


01 


G2 


rROC77 


HG 


01 


E3 


?rsL 


AA 


05 


B3 


PITKCH 


NC 


01 


F3 


PUNCH 


NE 


02 


E3 


PUNCH 


OC 


01 


F3 


PURGE 


AA 


06 


C4 


PUTDEF 


MD 


01 


Al 


FUTEQU 


MD 


01 


F4 


QIFOUND 


IB 


01 


El 


V wrVL 


HD 


01 


C4 


QUAL 


HE 


01 


H3 


RC4 


QB 


01 


Fl 


P.C8C 


QB 


01 


A3 


PJ3SCAN 


EA 


01 


D2 


P3SYN 


HG 


01 


D4 


F.D001 


QB 


01 


F3 


PZAD 


AA 


02 


Al 


RZADFN 


JC 


01 


C3 


?ZADF2 


NC 


01 


CI 


RZADF2 


OC 


01 


CI 


READF4 


HF 


01 


Bl 


Pj: ADLIB 


AA 


05 


Al 


PZADOPTS 


BA 


01 


Gl 


PZADQ 


AA 


02 


A5 


PZADY 


ML 


01 


HI 


PZDEF 


HG 


01 


D3 


PZLEASE 


NB 


01 


K3 


PZLEASE 


NC 


01 


H3 


PZLEASE 


NE 


01 


F5 


P^LEASE 


OC 


01 


H3 


PZNAMS 


HF 


01 


F4 


?z:;mio 


IC 


01 


J4 


PZPORT 


FC 


01 


A5 


PZPORTD 


IC 


01 


G5 


RESET 


MK 


01 


A4 


PZWIND 


NC 


01 


D3 


PZ'WIND 


ND 


01 


C5 


PZV.'IND 


NE 


01 


B3 


?£ECT 


HD 


01 


A2 


SCATREN 


lA 


01 


C3 


SDTEXT 


FB 


01 


D2 


SDTXT 


HB 


01 


D3 


SEARCH 


JC 


01 


G2 


SEGCAL 


MQ 


01 


A3 


SEGCAL3 


MQ 


01 


F2 


SEGNOTE 


AA 


06 


Dl 


5Z3NOTE0 


AA 


06 


F2 


SE GN0TE2 


AA 


06 


Gl 


£EC-PNT 


AA 


06 


Al 


r I GP ROC 


ND 


01 


J2 


5ETBUF6 


BA 


01 


A3 


£ZTLEN 


MG 


01 


A2 


5E6000 


ND 


01 


Al 


SE6000 


OD 


01 


Al 


SI6025 


ND 


01 


Dl 



Label 

SKPLNK 

SRCHTB 

STARTPP 

STARTO 

STATIC 

STRSCH 

TENPROC 

TERM 

TESTSB2 

TESTSB3 

TESTSB4 

TESTSB6 

TESTSB8 

THRESUBS 

TGTINT 

TGTINT 

TRACE 

TRANSFORM 

TRMNATE 

TWENPROC 

TWOSUBS 

TXPNH 

TXPNH 

UNTIL 

UNTIL 

UPS I 

VALGEN 

VALGEN 

VERB 

VNDEFR 

VRBSCN 

WLVSCN 

WOUT 

WRITE 

WRITEA 

WRITES 

WSDCT 

WSTSCT 

XITXIT 

XITl 

XIT2 

XIT2A 

XIT3 

XIT4 

XIT5 

XIT6 

XIT7 

XNORMAL 

XREF 

XREF 

XREF 

XREF 

XSPRO 



Chart Page Block 



AA 


02 


E5 


FD 


01 


D2 


BA 


02 


CI 


BA 


02 


D2 


NB 


01 


K4 


JC 


01 


C4 


RB 


01 


Al 


HA 


01 


E2 


ID 


01 


D2 


ID 


01 


F2 


ID 


01 


H2 


ID 


01 


D3 


ID 


01 


J3 


ID 


01 


C4 


OB 


01 


F3 


NB 


01 


F3 


ML 


01 


A3 


MI 


01 


A4 


AA 


02 


H3 


RB 


01 


A3 


ID 


01 


C3 


NC 


01 


G3 


OC 


01 


G3 


KC 


01 


G3 


KC 


01 


H4 


HA 


01 


C2 


FD 


01 


J4 


FD 


01 


C5 


JC 


01 


D2 


ND 


01 


E2 


DA 


01 


E3 


CA 


01 


P4 


AA 


04 


CI 


AA 


04 


Bl 


AA 


04 


Al 


IC 


01 


B2 


HC 


01 


Al 


FC 


01 


Al 


EB 


01 


C4 


EB 


01 


Fl 


EB 


01 


Gl 


EB 


01 


G2 


EB 


01 


HI 


EB 


01 


Jl 


EB 


01 


A4 


EB 


01 


B5 


EB 


01 


A5 


TA 


01 


CI 


HB 


01 


E4 


HD 


01 


E4 


HE 


01 


G5 


NC 


01 


D2 


LD 


01 


Al 
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TABLES DSED BY PHASES 



Phase 


Table and TIB Number 
Built or Changed by Phase 


Table and TIB Number 
Referenced Only 


01 


REPTAB(29) 




10 


AMINTB(<i), ALPHTBL<27), CKPTBL(8), 
ENVTBL(3), FNTBL(IO), INDXTB<34), 
KEYTAB(26), 0D2TBL(9), PI0TBL(7), 
P1BTBL(2), QLTABL(l), QNMTBL(2), 
RCDTBL(ll). RWRTBL(13), SATBL(5), 
SPNTBL(21), SRATBL(6), SSATBL(7), 
UPSTBL(25) 




12 


CTLTBL(1<»), DETTBL(17), GCNTBL(21), 
NPTTBL(18), PI0TBL(7), P1BTBL<2), 
QALTBL(23), QLTABL(l), RNMTBL(12), 
ROLTBLdS), ROUTBLdS), SnSTBL(28), 
SNMTBL(35), SRCTBL(22), SUMTBLd9) 


FNTBLCIO), RWRTELd3), 
SPNTBL(21) 


11 


DICOT(20), GVFNTBL(<»), GVNMTBL(3), 
PI0TBL(7), PNQTBL(6), PNTABL(5), 
QLTABLCl), RCDTBLdl), RNMTBLd2), 
VRDEFTBLd<») 


ALPHTBL(27), DETTBLd7), 
FNTBLCIO), P1BTBL(2), 
R0UTBLd6), RWRTBLdS), 
SPNTBL(21) 


20 


VALGRP(6), VALTRU(33), LABTBLd3) 




22 


DICOT(20), FDTAB(28), GPLSTKCIO), 
INDKEY(31), MAST0D0d3), 0BJSUB(5), 
0CCTBL(2), QFILE(23), QITBL(22). 
QRTN(21), QVAR(2<+), QSBLd). RDFSTKdl), 
RENAMTB(3), RNMTBLd2), SRCHKY(3^), 
VARLTBLd5) 


0D2TBL(9), UPSTBL(25), 
VALGRP(6), VALTRU(33) 


21 


ASCTAB(3), BLTABL(3<t), BUFTAB(29), 
CKPTBL<8), IND2TBL(35), SDSRATBLCll), 
SRAMAXCIO), SRATBL(9) 


FDTAB(28), DICOT(20), 
PI0TBL(7) 


25 


0CCTBL(2), ODOTBLCl^), VARLTBLCIS) 


DICOT<20), MAST0D0d3), 
0D2TBL(9), QITBL(22), 
QRTN(22), RENAriTB(3) 


30 


QFILE<23), QVAR<2<i), DTAB(4) 


DICOT(20), INDKEY(31), 
VALTRU(33), QSBLd) 


35 


DBGTXT(6), DTABCi), PlTEXKS), VRaDN(7) 




^0 


DBGTBLd3), DEFSBSdS), KEYTBL(20), 
PFMTBLd2), PNOUNTd^), PSHTBLd7), 
PSIGNTd5), PTRFLSd6), SETTBL(21), 
STRING(9), VARYTBCIO), VNTBLdl) 




^5 


5SCIN(5), SSCOUTdl), SSDELIM(20), 
TXT0UTd9) 




50 


BLUSTBLdO), XAVAL(2), XINTRd), 
XSCRPT(3), XSSNTC^t) 




51 


BLUSTBLdO), GNCALTBLd6), lOPTBLCS), 
PNUTBL(6), SEGTBLCIS) 


ALPHTBL(27), CKPTBL(8) 



Figure 62. Tables Used by Phases (Part 1 of 2) 
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Phase 


Table and TIB Number 
Built or Changed by Phase 


Table and TIB Number 
Referenced only 


60 


CONDISd^), C0NTBL(9), CVBIRTB(12), 
ERRTBL(IO), FILTBL(2), GNTBL(8). 
LTLTBLCt), PNTBL(7), QTBL(3), 
RLDTBL(NONE), TGTADTBK 18) , VIRPTR(13), 
VNPTY(17) 


PNUTBL(6), SEGTBLdS) 


61 


CNTLTBL(NONE), DATATBL (NONE) , 
OFLOTBL(NONE) 




62 


BLASGTBL(16), BLVNTBL(23), CONDISd^), 
C0NTBL(9), CVIRTBd2), DRPTBL(2<t), 
DRPLTBLC25), FILTBL(2), GNATBLCS), 
GNFWDBTB(21), GNLABTBLd9), LTLTBL(4), 
PNATBL(7), PNFWDBTB(20), PNLABTBLd8), 
VIRPTRd3), VNPNTBL(29), VNPTYd7) 


BLUSTBLdO), PNUTBL(6). 
SEGTBLdS) 


63 


GNLBDTBL(27), PNLBDTBL (26 ) , QGNTBL(2<t), 
RLDTBL(28), VNPTYd7) 


BLASGTBL(16), 
BLVNTBL(23), DRPLTBL(25), 
GNATBL(8), GNLABTBL(19), 
PNATBL(7), PNLABTBL(18), 
SEGTBLdS), VNPNTBL(29) 


64 


ERRTBLdO), QTBL(3), RLDTBL(28) 


BLASGTBL(16), GNATBL(8), 
GNLBDTBL(27), LTLTBL(4), 
PNATBL(7), PNLBDTBL(26), 
QGNTBL(24), VIRPTRd3), 
VNPTYd7) 


65 


CARDINDXdl), PR0CINDX(5), SEGINDXd6) 


TGTADTBLdS) 


70 


FIPSMTBL(8), FIPSPTBL(9) 


ERRTBLdO) 


80 




FIPSMTBL(8), FIPSPTBL(9) 



Figure 62. Tables Used by Phases (Part 2 of 2) 
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DOS LINKAGE EDITOR DIAGNOSTIC OF INPUT 



ACTION TAKEN MAP REL 

LIST PHASE FCOBOL.S 

LIST INCLUDE ILACBLOO 

LIST INCLUDE ILACBLOl 

LIST PHASE FCOBOL04 

LIST INCLUDE ILACBL04 

LIST PHASE FCOBOL05 

LIST INCLUDE ILACBL05 

LIST PHASE FCOBOL06 

LIST INCLUDE ILACBL06 

LIST PHASE FCOBOL08 

LIST INCLUDE ILACBL08 

LIST PHASE FCOBOLIO 

LIST INCLUDE ILACBLIO 

LIST PHASE FC0B0L12 

LIST INCLUDE ILACBL12 

LIST PHASE FCOBOLll 

LIST INCLUDE ILACBLll 

LIST PHASE FCOBOL20 

LIST INCLUDE ILACBL20 

LIST PHASE FCOBOL22 

LIST INCLUDE ILACBL22 

LIST PHASE FC0B0L21 

LIST INCLUDE ILACBL2I 

LIST PHASE FC0B0L25 

LIST INCLUDE ILACBL25 

LIST PHASE FCOBOL30 

LIST INCLUDE ILACBL30 

LIST PHASE FC0B0L35 

LIST INCLUDE ILACBL35 

LIST PHASE FCOBOLIO 

LIST INCLUDE ILACBL'iO 

LIST PHASE FC0B0L45 

LIST INCLUDE ILACBL45 

LIST PHASE FCOBOL50 

LIST INCLUDE ILACBL50 

LIST PHASE FC0B0L51 

LIST INCLUDE ILACBL51 

LliT PHASE FCOBOL60 

LUT INCLUDE ILACBL60 

LIJ-T PHASE FCOBOL62 

LI;T INCLUDE ILACBL62 

LIbT PHASE FC0B0L63 

LIST INCLUDE ILACBL63 

LIST PHASE FC0B0L64 

LIST INCLUDE ILACBL64 

LIST PHASE FC0B0L65 

LIST INCLUDE ILACBL65 

LIST PHASE FC0B0L61 

LIST INCLUDE ILACBL61 

LIST PHASE FCOBOL70 

LIST INCLUDE ILACBL70 

LIST PHASE FCOBOL80 

LIST INCLUDE ILACBL80 

LIST INCLUDE ILACBL81 

LIST INCLUDE ILACBL82 

LIST INCLUDE ILACBL83 

LIST INCLUDE ILACBL84 

LIST INCLUDE ILACBL85 

LIST INCLUDE ILACBL86 

LIST INCLUDE ILACBL87 

LIST INCLUDE ILACBL88 

LIST INCLUDE ILACBL89 

LIST INCLUDE ILACBL8A 

LIST INCLUDE ILACBL8B 

LIST INCLUDE ILACBL8C 

LIST INCLUDE ILACBL8D 

LIST AUTOLINK IJJCPD 

LIST ENTRY 



,PH0END(FCOBOL) 

»CLIB(FCOBOL) 

,CLIB(FCOBOL) 

.CLIB(FCOBOL) 

,CLIB(FCOBOL) 

,CLIB(FCOBOL) 

,CLIB(FCOBOL) 

,PH0COPY(FCOBOL) 

•PHOCOPY(FCOBOL) 

,PH0COPY(FCOBOL) 

,PH0COPY(FCOBOL) 

,PH0COPY(FCOBOL) 

,PH0COPY(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 

,PH0TBDIC(FCOBOL) 



00050002 
00100002 
00150002 
00200002 
00250002 
00200002 
00250002 
00300002 
00350002 
00500002 
00550002 
00600002 
00650002 
00700002 
00750002 
00800002 
00850002 
00900002 
00950002 
01000002 
01050002 
01100002 
01150002 
01200002 
01250002 
01300002 
01350002 
01300002 
01350002 
01400002 
01^^50002 
01<t00002 
01450002 
01500002 
01550002 
01600002 
01650002 
01700002 
01750002 
01800002 
01850002 
01900002 
01950002 
02000002 
02050002 
02100002 
02150002 
02200002 
02250002 
02300002 
02350002 
02400002 
02450002 
02500002 
02550002 
02600002 
02650002 
02700002 
02750002 
02800002 
02850002 
02900002 
02950002 
03000002 
03050002 
03100002 



IN 
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PHASE XFR-AD 


LOCORE 


HICORE 


DSK-AD ESD TYPE 


LABEL 


LOADED 


REL-FR 


FCOBOL 020F80 


020000 


025BD7 


001 00 00 CSECT 


ILACBLOO 


020000 


020000 RELOCATABLE 








CSECT 


ILACBLOl 


0241E0 


0241E0 








CSECT 


PH0SECT2 


020F80 


020000 








« ENTRY 


START 


020F80 










CSECT 


IJ6WZNZU 


021970 


020000 








ENTRY 


IJGWZNZZ 


021970 










n ENTRY 


IJGMZZZZ 


021970 










» ENTRY 


IJGMZRZZ 


021970 










n ENTRY 


IJGMZZZU 


021970 










*» ENTRY 


IJGMZRZU 


021970 










CSECT 


IJJCPDO 


021E78 


020000 


. 






ENTRY 


IJJCPDON 


021E78 










» ENTRY 


IJJCPDl 


021E78 










ENTRY 


IJJCPD2 


021E78 










ENTRY 


IJJCPD3 


021E78 










* ENTRY 


IJJCPDIN 


021E78 










CSECT 


PHOTBSTl 


0222A0 


020000 








CSECT 


TBDATA 


022D60 


020000 








CSECT 


PHOTBDIC 


023158 


020000 








CSECT 


PHOCOPY 


023528 


020000 








CSECT 


CLIB 


0237B0 


020000 








CSECT 


PHOEND 


0241D8 


020000 








CSECT 


DATA 


0251A8 


0241E0 








CSECT 


IJ2M0021 


025750 


0241E0 








CSECT 


IJFWZNZZ 


025770 


0241E0 








CSECT 


MODLEN 


025920 


02'!»1E0 








CSECT 


ILA003 


025928 


0241E0 
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PHASE XFR-AD LOCORE HICORE DSK-AO ESD TYPE 

FCOBOL0<^ 0241D8 02^108 02706F OlA 00 00 CSECT 
FCOBOL05 0267A4 0237B0 027D81 026 00 00 CSECT 
FCOBOL06 023A18 0237B0 0246C3 038 00 00 CSECT 
FCOBOL08 023F3<^ 0237B0 027DA8 03C 00 00 CSECT 
FCOBOLIO 0237CA 0237B0 02C22B 04E 00 00 CSECT 

* ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 



LABEL 


LOADED 


REL-FR 




ILACBLO^ 


02^1D8 


02^108 


RELOCATABLE 


IKF0501 


0237B0 


0237B0 


RELOCATABLE 


IKF0601 


0237B0 


0237B0 


RELOCATABLE 


IKF0801 


0237B0 


0237B0 


RELOCATABLE 


ILAlOl 


0237B0 


0237B0 


RELOCATABLE 


PHI A 


0237CA 






ILA102 


02^658 


0237B0 




ILA103 


025228 


0237B0 




ILA109B 


025D18 


0237B0 




ILA104 


025FA0 


0237B0 




ILA105 


026E58 


0237B0 




ILA106 


0278A8 


0237B0 




ILA107 


0281F8 


0237B0 




ILA108 


028318 


0237B0 




I LA 1082 


028FB0 


0237B0 




ILA109 


0297F8 


0237B0 




ILA109A 


02A4F8 


0237B0 




ILAUO 


02B198 


0237B0 




ILAlll 


02B940 


0237B0 




ILA112 


02BA00 


O237B0 
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PHASE 


XFR-AD 


LOCORE 


HICORE 


DSK-AD 


ESD TYPE 


LABEL 


LOADED 


REL-FR 


FC0B0L12 


0237CA 


0237B0 


02Bd67 


071 00 


00 CSECT 
* ENTRY 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


ILAlOl 

PHRM 

ILA102 

ILA103 

ILA104 

ILA105 

ILA106 

ILA107 

ILA108 

ILA109 

ILAllO 

ILAlll 

ILAlllA 

ILA112 

ILA113 

ILA114 


0237B0 
0237CA 
024348 
024EE0 
025AA0 
026A38 
027398 
027B88 
027C78 
027ED0 
028CB8 
029978 
02A6A0 
02A810 
02B378 
02B748 


0237B0 RELOCATABLE 

0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 


FCOBOLU 


024070 


0237B0 


02AD<»F 


092 00 


00 CSECT 
CSECT 
« ENTRY 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


ILAIOO 

ILAlOl 

PHIB 

ILA102 

ILA103 

ILA104 

I LAI 05 

I LAI 06 

ILA107 

ILAlOd 

I LAI 09 

ILAIOA 


0237B0 
024070 
024070 
024D30 
025658 
025EA0 
026C70 
0276F8 
0280C8 
029058 
02A040 
02A0C0 


0237B0 RELOCATABLE 
0237B0 

0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237B0 
0237BO 
0237B0 
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PHASE 


XFR-AD 


LOCORE 


HICORE 


DSK-AD 


ESD TYPE 


UBEL 


LOADED 


REL-FR 


FCOBOL20 


023540 


023528 


02901D 


OBO 00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


IUCBL20 

ILA201 

IKF201D 

ILA210 

ILA202 

ILA203 

ILA204 

ZLA205 

ILA206 

ILA207 

ILA207A 

ILA208 

ILA209 


023528 
023540 
023A40 
023A98 
024740 
0257D0 
026208 
0268F0 
026A20 
026E38 
027D80 
027ED8 
026DB0 


023528 RELOCATABLE 

023528 

023528 

023528 

023528 

023528 

023528 

023528 

023528 

023528 

023528 

023528 

023528 


FCOBOL22 


0245C0 


023526 


029D8D 


0C8 00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


ILACBL22 

ILA202 

ILA203 

ILA204 

ILA205 

ILA206 

ILA207 

ILA208 

ILA209 


023528 
0245C0 
0252C0 
0259B0 
0269C0 
0274F0 
028078 
026C88 
029B20 


023528 RELOCATABLE 

023528 

023528 

023528 

023528 

023528 

023528 

023528 

023528 
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PHASE 


XFR-AD 


LOCORE 


HICORE 


DSK 


-AD 


ESD TYPE 


LABEL 


LOADED 


REL-FR 




FC0B0L21 


023DE0 


023528 


02D711 


0E3 


00 


00 CSECT 
CSECT 
CSECT 
» ENTRY 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


S0DEF2 

PHASE2B 

PH2B 

IVS202 

IVS203 

IVS204 

ITB200 

ILA201 

ILA202 

ILA203 

ILA204 

ILA205 

ILA206 

ILA207 

PERMCODE 

BUFGEN 

PH2BC0N 

ILA209P 


023528 
023540 
023OE0 
023DE0 
0248C0 
024DA0 
025128 
025928 
025B90 
026910 
027040 
027CC8 
028790 
029500 
02A3E0 
02A970 
02B980 
02C470 
02D468 


023528 
023528 
023528 

023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 
023528 


RELOCATABLE 


FC0B0L25 


023C90 


023528 


02<^C2F 


IOC 


00 


00 CSECT 
«» ENTRY 
CSECT 
CSECT 


ILA251 
PHASE25 
ILA252 
ILA25A 


023528 
023C90 
023FC0 
024668 


023528 

023528 
023526 


RELOCATABLE 


FCOBOL30 


023542 


023528 


0272EF 


112 


00 


00 CSECT 


ILACBL30 


023528 


023528 


RELOCATABLE 


FC0B0L35 


023528 


023528 


0251C7 


122 


00 


00 CSECT 


ILACBL35 


023528 


023528 


RELOCATABLE 
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PHASE 


XFR-AD 


LOCORE 


HICORE 


OSK-AD ESD TYPE 


LABEL 


LOADED 


REL-FR 




FCOBOUO 


02CD28 


023158 


030299 


12A 00 00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
1* ENTRY 
CSECT 
CSECT 
CSECT 
CSECT 


ZLACBL4A 

ILACBL4B 

ILACBL4C 

ILACBL4D 

ILACBL45 

ILACBL46 

ILACBL47 

ILACBL48 

ILACBL4E 

ILACBL46 

ILACBL4S 

PHINIT 

ILACBL4H 

ILACBL4J 

ILACBL4K 

ILACBL4L 


023158 
024058 
025198 
026698 
027758 
027FA8 
028510 
0299B8 
02A770 
02B610 
02C2E0 
02CD28 
02CE28 
02DCE8 
02E8F8 
02F4C0 


023158 
023158 
023158 
023158 
023158 
023158 
023158 
023158 
023158 
023158 
023158 

023158 
023158 
023158 
023158 


RELOCATABLE 


FC0B0W5 


023174 


023158 


024872 


15F 00 00 CSECT 

* ENTRY 
<♦ ENTRY 
CSECT 
CSECT 
CSECT 


ILACBL45 

PH45 

PHASE45 

ILA451 

ILA452 

ILA453 


023158 
023174 
023174 
0231F8 
0237B0 
0240F0 


023158 

023158 
023158 
023158 


RELOCATABLE 
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PHASE 


XFR-AD 


LOCORE 


HICORE 


DSK-AO 


ESD TYPE 


LABEL 


LOADED 


REL-FR 


FCOBOL50 


02C3CC 


023158 


02D0CB 


165 00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
n ENTRY 
CSECT 


IEQ501 

IEQ502 

IEQ503 

IEQ50B 

IEQ50C 

IKF506 

IEQ500 

IEQ50E 

IEQ50F 

IEQ50<^ 

PHASE5A 

IEQ505 


023158 
02<»0B8 
024B00 
026858 
0279F8 
028250 
029258 
02A0F0 
02AE10 
02BB18 
02C3CC 
02C570 


023158 RELOCATABLE 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 


FC0B0L51 


02D548 


023158 


02E4CE 


18E 00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
» ENTRY 
CSECT 


IEQ501 
IEQ50S 
IEQ503 
IEQ50A 
IEQ50L 
IEQ50G 
IEQ50R 
IEQ50H 
IEQ50P 
IEQ50Q 
lEQBOJ 
IEQ50M 
IKF50V 
IEq504 
IEQ50B 
PHASE5 
IEQ505 


023158 
024120 
0242AO 
025298 
025448 
026320 
026FF0 
027338 
026410 
029320 
029E7d 
02A958 
02B200 
02C0C8 
02CD10 
02D548 
02D690 


023158 RELOCATABLE 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 

023158 
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PHASE 


XFR-AD 


LOCORE 


HICORE 


DSK-AD 


ESD TYPE 


LABEL 


LOADED 


REL-FR 




FCOBOL60 


023170 


023158 


02B691 


IBC 00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


ILACBL60 

ILA602 

ILA603 

ILA604 

ILA605 

ILA605A 

ILA606 

ILA607 

ILA608 


023158 
023F80 
0251C0 
025E78 
026D20 
0274E8 
0285F8 
029470 
02A810 


023158 
023158 
023158 
023158 
023158 
023158 
023158 
023158 
023158 


RELOCATABLE 


FC0B0L62 


023170 


023158 


0275F7 


IDE 00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


ILACBL62 

ILA622 

ILA625 

ILA622A 

ILA623 

ZLA626 

ILA627 

ILA628 


023158 
023E28 
024C30 
0256A0 
0259D0 
026990 
026E38 
027308 


023158 
023158 
023158 
023158 
023158 
023158 
023158 
023158 


RELOCATABLE 


FC0B0L63 


023170 


023158 


02531E 


IFO 00 


00 CSECT 
CSECT 
CSECT 


ILACBL63 

ILA631 

ILA632 


023158 
02'i078 
025008 


023158 
023158 
023158 


RELOCATABLE 
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PHASE 


XFR-AD 


LOCORE 


HICORE 


DSK- 


-AD 


ESD TYPE 


LABEL 


LOADED 


REL-FR 




FC0B0L6<^ 


023170 


023156 


026C6B 


1F9 


00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


ILACBL64 

ILA643 

ILA644 

ZLA645 

ILA6455 

ILA646 

ILA647 

ILA648 


023156 
023536 
024436 
025296 
0260B0 
026B40 
027926 
028600 


023156 
023158 
023156 
023156 
023156 
023156 
023156 
023158 


RELOCATABLE 


FC0B0L65 


023172 


023156 


0246D1 


211 


00 


00 CSECT 
** ENTRY 
CSECT 
CSECT 
CSECT 


ILA651 

PHASE65 

ILA652 

ILA653 

ILA654 


023156 
023172 
023BF0 
024016 
024600 


023158 

023158 
023156 
023156 


RELOCATABLE 


FC0B0L61 


023172 


023156 


0250AD 


217 


00 


00 CSECT 
CSECT 
CSECT 


ILA6101 
ILA6103 
ILA6102 


023156 
023E20 
024216 


023158 
023158 
023156 


RELOCATABLE 


FCOBOL70 


023174 

f 


023158 


031601 


21F 


00 


00 CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


ILACBL70 

ILA702 

ILA712 

ILA711 

ILA709 

ILA719 

ACC 


023156 
023158 
024E56 
025CC0 
02F508 
02FA70 
030650 
030B46 


023158 
023158 
023158 
023158 
023158 
023158 
023156 
023158 


RELOCATABLE 
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PHASE XFR-AD LOCORE HICORE DSK-AO 
FCOBOL80 023172 023158 02D016 259 00 00 CSECT 



ESD TYPE 


LABEL 


LOADED 


REL-FR 


CSECT 


ILACBL60 


023158 


023158 RELOCATABLE 


<t ENTRY 


BE6IN80 


023172 




ENTRY 


RTRN85 


02339C 




ENTRY 


OPENEXIT 


023418 




CSECT 


IDSCAN 


026CD0 


026CB0 


CSECT 


ENVSCAN 


026FC0 


026FA0 


CSECT 


DATASCAN 


027FA0 


027F&0 


CSECT 


PROCSCAN 


029450 


029430 


CSECT 


HSGWRITE 


02C790 


02C770 


ENTRY 


EOF INPUT 


02C848 




ENTRY 


EOFQUEUE 


02CA18 




CSECT 


FIPSVT 


023610 


0235F0 


CSECT 




0235F0 


0235F0 


CSECT 


CHKCOPY 


0252C0 


0252A0 


CSECT 


CHKGLBLS 


0253B8 


025398 


CSECT 


GETMORD 


025C58 


025C38 


CSECT 


6ETLINE 


0256E0 


0256C0 


CSECT 


PUT LINE 


026A28 


026A08 


CSECT 


KSGHNDLR 


0267D8 


0267B8 


CSECT 


VERBCHK 


026B58 


026B38 


CSECT 


IJJCPDIN 


02CD68 


02CD68 


ENTRY 


IJJCPD3 


02CD68 




CSECT 




0252A0 


0252A0 


CSECT 




025398 


025398 


CSECT 




0256C0 


0256C0 


CSECT 




025C38 


025C38 


CSECT 




0267B8 


0267B8 


CSECT 




026A08 


026A08 


CSECT 




026B38 


026B38 


CSECT 




026CB0 


026CB0 


CSECT 




026FA0 


026FA0 


CSECT 




027FeO 


027F80 


CSECT 




029430 


029430 


CSECT 




02C770 


02C770 



CONTROL SECTIONS OF ZERO LENGTH IN INPUT 
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SECTION 5. DATA AREAS 



COMMUMICATIOW REGION 



This chaptar lists and dascrlbas tha 
diffarant calls that form tha 
Communications Rag ion (CONNON). COMMON 
is rasidant in storaga throughout 
compilation as part of phasa 00. Its 
format is dafinad as DSECTs in tha rast 



of the phasas* and tharafora aach phasa 
can rikf»r to any call in COMMON by nama. 
Much of tha information savad in COMMON 
by phasas 10 through 51 is usad by phasa 
60 or phasa 62 to form the Task Global 
Table (TGT) and tha Program Global Table 
(PGT) of the object program. The TGT and 
PGT are described in "Appendix B. Object 
Module.** 



call 

COS 



TIBO- 
TIB35 



NO. Of 

Bytos 

12 



8 
each 



Displ. 
H«X 

000 

OOC 

014 



Displ. 
Decimal 



12 



20 



APRIME 



134 



308 



AINSRT 


4 


138 


312 


ADSTAT 


4 


13C 


316 


RELADD 


4 


140 


320 


TAMNAO 


4 


144 


324 


ACCESU 


1 


148 


328 



AMAINF 



ALSTAM 4 



LOCCTR 



149 

14C 

150 
158 



329 

332 

336 
344 



Purposo 

Phase 00 initialization coding. 

Identifier - the word 'COMMON* 

Table Information Blocks (TIBs) usad by TAMER (see 
**Appendix A. Table and Dictionary Handling**). 
TIB20 is reserved for the DICOT table» and TIB30 is 
reserved for the HASH table. The rest are assigned 
to various compiler tables throughout compilation; 
one TIB may be reassigned when the table for which 
it Mas used is released. 

Address constants of TAMER used by the phases in 
table management requests. 

Address of PRIME subroutine in TAMER. 

Address of INSERT subroutine in TAMER. 

Address of STATIC subroutine in TAMER. 

Address of TABREL subroutine in TAMER. 

Address of TAMEIN subroutine in TAMER. 

ACCESS initialization suitch (see **Appendix A. 
Table and Dictionary Handling**). 

Pointer to the main free area for tables and the 
dictionary. This is also the address of the 
beginning of the HASH table. Routine ACCESS uses 
this field to locate the HASH table (see **Appendix 
A. Table and Dictionary Handling**). 

Pointer to routine TBDICSPC» Mhich obtains space 
for a neM dictionary section (see **Appendix A. 
Table and Dictionary Handling**). 

Unused. 

Contains the relative address of the next location 
available in the object program. It is initialized 
by phase 00 to the length of the INITl .routine and 
incremented by phases 21 and 22 as thay assign 
locations to data» and then by phase 60 or, under 
the optimizer version of the compiler, by phases 
62» 63» and 64 as they assign locations to the 
global tables and procedure instructions. 
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NO. Of Ditpl 
coll By too Hox 



PROGID 8 



15C 



Dfspl. 

Otcimal 

348 



LABELS 2 

PRBLDISP 2 

PNCTR 2 

GNCTR 2 

VIRCTR 2 



164 
166 

168 

16A 

16C 



356 
358 

360 
362 

364 



LTLCTR 2 



UCMAX 2 



TSMAX 2 



TS2I1AX 2 



ODOCTR 2 



16E 



170 



172 



174 



176 



366 



368 



370 



372 



374 



Purposo 

PROGRAM-ID from th« Idontif ication Division of th« 
sourcQ program. It is savod for use as the CSECT 
name of th« objoct module. If the program is 
segmented^ the name is the CSECT name of the root 
segments and its first six characters mrtk used Mith 
priority numbers to name the other segments. 

Contains label information. 

Contains displacement of beginning of PROCEDURE 
BLOCK CELLS in the PGT. 

Used in phase 11 as a counter for assigning unique 
PN numbers to source program procedure-names. In 
phase 60 or 62* it is set to the displacement of the 
PN field from the beginning of the PGT. 

Used in phases 10» 11» 22» 40» 50* and 51 as a 
counter for assigning unique GN numbers to 
compiler-generated procedure-names. In phase 60 or 
62 » it is set to the displacement of the GN field 
from the beginning of the PGT. 

Used in phases 50 and 51 as a counter for assigning 
unique identifying numbers to virtuals (names of 
external procedures). In phase 60 or 62» it is set 
to the displacement of the VIRTUAL field from the 
beginning of the PGT. It is initialized to 1 by 
phase 00. 

Used in phases 50 and 51 as a counter to save the 
number of literals. In phase 60 or 62# it is set to 
the displacement of the LITERAL field from the 
beginning of the PGT. 

Set by phase 50 to the size of the largest work area 
needed by any COBOL library subroutine. In phase 60 
or 62> it is set to the displacement of the WORKING 
CELL field from the beginning of the TGT. 

Set by phase 50 to the maximum number of doubleuiord 
cells needed for temporary storage at execution 
time by arithmetic statements. In phase 60 or 62» 
it is set to the displacement of the TEMPORARY 
STORAGE field from the beginning of the TGT. 

Set by phase 51 to the number of bytes needed for 
temporary Mork areas by nonari thmetic statements. 
In phase 60 or 62* it is set to the displacement of 
the TEMPORARY STORAGE-2 field from the beginning of 
the TGT. 

Set in phase 22 to the number of Q-routines 
generated to initialize an item in Morking-Storage 
or in a file containing an OCCURS clause uiith the 
DEPENDING ON option. A Q-routine is a subroutine 
that* at execution time* calculates the length of a 
variable-length field created by the 
OCCURS. . .DEPENDING ON option* and the location of 
the variably located field that may folloM it. It 
is used in phase 60 or 64 to set up table QTBL. 
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Ctll 

CKPCTR 



SBLCTR 



No. Of Displ. 
Bytot H«X 

2 178 



17A 



DUpl. 
Dtclmal 

376 



378 



VLCCTR 



17C 



380 



BLLCTR 



SEQERR 



DICN02 
DICNDl 

USDEF 



17E 
180 

182 

184 

188 
18C 



382 

IB** 

386 
388 

392 
396 



ERRSEV 
DICADR 



18C 


396 


18F 


399 


190 


400 


193 


403 


194 


404 



purpost 

Sot \n phasQ 21 to tha numbor of checkpoint 
requests. It is used in phase 60 or 62 to allocate 
space for the CHECKPOINT CTR field of the TGT. 
Phase 60 or 62 sets it to the displacement of the 
CHECKPOINT CTR field from the beginning of the TGT. 

Used in phase 22 as a counter for assigning unique 
identifying numbers for secondary base locators 
(SBLs). Intermediate and final values arm stored in 
SBLIMX. In phase 60 or 62 it is set to the 
displacement of the SBL field from the beginning of 
the TGT. 

Used in phase 22 as a counter for assigning unique 
identifying numbers for variable length cells 
(VLCs). Intermediate and final values are stored in 
VLCIMX. In phase 60 or 62, it is set to the 
displacement of the BLL field from the beginning of 
the TGT. 

Used in phase 22 to assign unique identifying 
numbers to Linkage Section base locators. In phase 
60 or 62 it is set to the displacement of the BLL 
field from the beginning of the TGT. 

Count of source cards whose user'Mri tten card 
numbers are out of sequence. Set by phases 10 and 
11 » and used by phase 70 in error message 
processing. 

Unused. 

Dictionary pointer for the last dictionary entry 
made in phase 22. 

Dictionary pointer for the last dictionary entry 
made in phase 11. If the UPSI feature was used* this 
cell contains instead the last dictionary entry 
made for an UPSI item by phase 22. 

Set in phase 22 to the last seven bytes of the Data 
A-text element for the Uorking-Storage Section 
address definition* Mhich gives the first base 
locator number and the length of the 
Morking-Storage Section. i)Jhen phase 60 assigns 
permanent base registers for base locators* it uses 
this information because it assigns base registers 
to the l4orking-Storage Section first. Uhen OPT is 
specified* this field is not used since base 
registers are assigned differently. 



Name 
WSSTRT 
USBL 
USSIZE 



Bytes Meaning 



Starting address of working 

storage 

BL number assigned to beginning 

of the Uorking-Storage Section 

Number of bytes occupied by the 

Ulorking-Storaga Section 



Set by phases 21 and 51 to the highest severity 
level encountered in any phase. 

ACCESS communication cell (see "Appendix A. Table 
and Dictionary Handling'*). 
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Cell 



DLSVAL 


4 


DICPTR 


1 


DCPTR 


3 


RPTSAV 


2 



SA2CTR 

LCSECT 
RGNCTR 



CURSGN 



DATABDSP 



No. of Displ, 
Bytes Hex 

190 



198 
19C 
19D 
lAO 



1A2 

1A4 
1A8 



1B9 



IBA 



Displ. 
Decimal 

400 



408 
412 
413 
416 



418 

420 
424 



ERF4SW 


1 


lAA 


426 


PTYNO 


1 


lAB 


427 


COMMAD 


2 


lAC 


428 





2 


lAE 


430 


AMOVDC 


4 


IBO 


432 


SDSI2 


4 


1B4 


436 


SEGLMT 


1 


1B8 


440 



441 



442 



Purpose 

WSSIZE 



3 Number of bytes occupied by the 
Working-Storage Section 



Ending address of section built. 

Latest dictionary pointer (high byte). 

Latest dictionary pointer. 

Set by phase 10 if a Report Save Area is needed at 
execution time. Used by phase 60 or 62 to determine 
whether that area should be set in the TGT and then 
set to the displacement of the REPORT SAVE field 
from the beginning of the TGT. 

Number of cells used to save register 14 in 
declaratives for return. 

Contains the length of the object module CSECT. 

Set by phase 60 to the number of unique GNs or» 
under the optimizer version of the compiler* set by 
phase 51 to the number of GNs requiring an address 
constant cell in the PGT. 

Switch used by phases 60 or 62 and 64» and 70. 

Priority number of current section. 

Contains a comma followed by a decimal point. If 
the DECIMAL-POINT IS COMMA clause is specified, the 
order of the two is reversed; that is, a decimal 
point is followed by a comma. This is set by phase 
10. 

Unused - inserted for alignment. 

Address of TAMER routine MOVDC. Phase 30 uses this 
cell. 

Set by phase 22 to the size of the largest SD entry 
in the program. 

Contains the priority number of the highest 
numbered Procedure Division section to be 
considered part of the root segment. Set in phase 
10 to the value specified in the SEGMENT-LIMIT 
clause or to 49 (hexadecimal 31). If phase 11 finds 
that the program is not segmented, it is set to 
hexadecimal 'FF' as an indication to later phases. 

Set in phase 10 to contain the literal specified in 
the CURRENCY-SIGN clause, and used by phase 20 to 
recognize this literal. 



Contains displacement into DATATAB 
for use by Phase 65. 



Set by Phase 25 
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No. of oispl. 
Cell Bytes Hex 

INDEXl 2 IBC 



lOPTRCTR 2 
TS3MAX 2 



TS4MAX 


2 


FLOWSZ 


1 




1 


RPNCNTR 


2 


AGETALL 


4 


IDENTL 


4 


BLCTR 


2 



VNCTR 



ONCTR 2 



PFMCTR 2 



PSVCTR 2 



IBE 
ICO 

1C2 
1C4 

1C5 
1C6 

1C8 

ICC 
IDO 

1D2 

1D4 
1D6 
1D8 



Displ. 

Decimal Purpose 

444 Number of index-names defined in INDEXED BY clause. 
Set in phase 60 or 62 to the displacement of the IND 
field from the beginning of the TGT . 

446 Number of input/output pointers resulting from SAME 
RECORD AREA clauses. 

448 Set by phases 50 and 51 to the number of bytes 

needed for temporary storage for the SYNCHRONIZED 
option. 

450 Set by phase 51 to the number of bytes needed for 
temporary storage by table handling verbs. 

452 Set by phase 01 to the number of traces requested 
for the flow trace option. The default is 99. Used 
by phase 65 to fill in the Debug table in the TGT. 

453 Unused. 

454 When OPT is specified, set by phase 51 to the number 
of PNs requiring an address constant cell in the 
PGT. 

456 Address of routine GETALL in phase 00. This is used 
by phases 60 and 61 to obtain all available table 
space. 

460 Set in phase 60 or 64 to the relative location of 
the first executable instruction. 

464 Used in phase 22 as a counter for assigning unique 
identifying numbers to base locators for files and 
the Working-Storage Section. In phase 60 or 62, it 
is set to the displacement of the BL field from the 
beginning of the TGT. 

466 Used in phase 40 as a counter for assigning unique 

identifying numbers to variable procedure-names. In 
phase 60 or 62, it is set to four times the phase 40 
value, which equals the number of bytes occupied by 
the VN cells. 

468 Used in phase 51 as a counter to assign unique 

identifying numbers to ON control cells. In phase 
60 or 62, it is set to the displacement of the ONCTL 
field from the beginning of the TGT. 

470 Used in phase 40 as a counter to assign unique 

identifying numbers to PERFORM control cells. In 
phase 60 or 62, it is set to the displacement of the 
PFMCTL field from the beginning of the TGT. 

472 Used in phase 40 as a counter to assign unique 

identifying numbers to PERFORM save cells. In phase 
60 or 62, it is set to the displacement of field 
PFMSAV from the beginning of the TGT. 



Communications Region (COMMON) 



279 



Licensed Material - Property of IBM 



Cell 

XSACTR 



No. of Displ. Displ. 
Bytes Hex Decimal 



IDA 



<t74 



XSWCTR 





2 


RELLOC 


4 


GTLNG 


2 


VNILOC 


2 


VNLOC 


2 


SUBCTR 


2 



PARMAX 



SPACING 1 
PRBLNUM 1 



ADATAB 4 

DATATBNM 2 

OBODOTBN 2 

NODECTR 2 



IDC 

IDE 
lEO 

1E4 
1E6 

1E8 

lEA 

lEC 



lEE 
lEF 



IFC 

200 
202 

204 



476 

478 
480 

484 
486 

488 

490 

492 



494 
495 



CORESIZE 


4 


IFO 


496 


INDEX 


4 


1F4 


500 


FIL5BUF 


4 


1F8 


504 



508 

512 
514 

516 



Purpose 

Contains the relative location within an EXHIBIT or 
SORT Save Area of the next area to be assigned. It 
is used by phase 51 in processing EXHIBIT or SORT 
and then set to the total number of bytes, needed for 
the Save Area. In phase 60 or 62» it is set to the 
displacement of field XSA from the beginning of the 
TGT. (This counter is used and then incremented^ 
unlike other counters* which are incremented and 
then used. The increment is equal to the number of 
bytes in the Save Area used.) 

Used by phase 51 as a counter to assign unique 
identifying riumbers to EXHIBIT first-time switches 
and special ON switches. In phase 60 or 62» it is 
set to the displacement of field XSASW from the 
beginning of the TGT. 

Unused. 

Set in phase 60 or 62 to the relative location* 
within the object module or root segment* of the 
beginning of the TGT. 

Set in phase 60 or 62 to the length of the TGT. 

Set in phase 60 or 62 to the relative location of 
the VNI field from the beginning of the PGT. 

Set in phase 60 or 62 to the relative location of 
the VN field from the beginning of the TGT. 

Used in phase 40 as a counter to assign unique 
identifying numbers to subscripted references. In 
phase 60 or 62» it is set to the displacement of the 
field SUBADR from the beginning of the TGT. 

Set in phase 51 to the size of the parameter area 
needed for parameter lists for macro instruction 
expansion of some of the source statements. In 
phase 60 or 62> it is set to the displacement of the 
PARAM field from the beginning of the TGT. 

Set by phase 01. Used for statistics. 

Set by phase 62 to indicate the number of Procedure 
Block Cells in the PGT if the optimizer option 
(OPT) is specified. Phases 63 and 64 use this 
i nformati on. 

Set by phase 01. Used for statistics. 

Number of index names. 

Used by phase 01 to store the address of SYS005 
buffer. Used by phases 25 and 65. 

Note address for first block of the DATATAB table 
on SYS005. 

Number of DATATAB blocks on SYS005. 

Total number of bytes used for OBODOTAB entries on 
SYS005, including the slack bytes needed to align 
each OBODOTAB entry on a fullword boundary. 

Number of node counters. 
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cell 


No. Of 

Bytes 


Displ. 
Hex 


Displ. 
Decimal 


Purpose 


PROCCTR 


2 


206 


518 


Procedu 


AMICTR 


2 


208 


520 


Used by 



FSTCDNMl 2 

16 
SWITV2 1 



TMCNTBS2 4 

2 

CCBLOC 2 

AMILOC 2 

INTVIRT 2 

LOCTMCTT 4 

2 

LISTERSW 1 



COLLOVAL 1 
COLHIVAL 1 

19 
COLLITNO 2 
LNGDSP 2 



20A 
20C 
21C 



21D 
220 
224 
226 
228 

22A 

22C 
230 
232 



233 
234 
235 
248 
24A 



522 
524 
540 



541 
544 
548 
550 
552 

554 

556 
560 
562 



563 
564 
565 
584 
586 



Used by phase 21 as a counter for assigning unique 
identifying numbers for File Information Blocks 
(FIBs). Phase 60 or 62 sets the field to the 
displacement of the FIB field from the beginning of 
the TGT. 

Number of CCB cells. 

Unused 

Swi tch 

Name Bit Meaning 

CNTFDECL Phase 11 found a declaratives 

NODABEND 1 No ABEND to be issued for 
D-level message condition 

C0B0L2 2 ANS 1974 interpretation 

LSTRETXT 3 If E-text from phase 04 

INFOMSG 4 On if messages 

SAMFILE 5 Sequential I/O exists in program 

MRGBIT 6 Merge was specified 

7 Unused 

Unused. 

Size of timer count table. 

Reserved 

Displacement of first CCB cell. 

Set by phase 62 to the number of FIB cells. Tested 
by phase 64 . 

Initial routine virtual number. Used by phases 
62-64. 

Start of timer count table. Used by phases 62-64. 

Unused. 

Lister option switch. 



Name 



Bit Meaning 



LSTRDECK 
LSTRCPCH 
LSTRCOMP 
LSTRONLY 
LSTRPRC2 



1 
2 
3 
4 


Lister source deck 
Lister copy deck 
Lister and compile 
Lister only 
Two-column Procedure 




5-7 


Division listing 
Unused 



Collating sequence LOUl VALUE. 

Collating sequence HIGH VALUE. 

Unused. 

Literal number of PCS. 

Displacement of first LINAGE-COUNTER. 
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Cell 

LNGBL 

DICTNAME 
APLSCALL 

BUGSTCRD 

PMAPADR 
BUFSIZE 

DATE 
TIME 

CRDNUMXX 2 
DTFNUM 



No. of 
Bytes 


Displ. 
Hex 


Displ. 
Dec i ma 1 


2 


24C 


588 


2 


24E 


590 


4 


250 


592 


4 


254 


596 


1 


258 


600 


2 


259 


601 


17 


25B 


603 


4 


26C 


620 


4 


270 


624 


8 


274 


628 


8 


27C 


636 


4 


284 


644 


2 


288 


648 





1 


SDTFCTR 


2 


DTFNOXX 


2 


DTNCNT 


4 


VRBCOUNT 


4 


CURCRD 


2 




6 


SWITCH 


2 



28A 

28B 
28C 

28E 

290 
294 
298 

29A 
2A0 



650 

651 
652 

654 

656 
660 
664 

666 
672 



Purpose 

BL number of first LINAGE-COUNTER. 

Unused. 

Pointer to dictionary name from LATPTR. 

Address of PLSCALL routine in phase 00, 

Reserved (do not use). 

Card number of first PN following declaratives. 

Unused - room for expansion. 

COBOL entry address. 

Size of buffers for compilation work files. Used 
for stati st i cs. 

Set by phase 01 to the date of compilation. 

Set by phase 01 to the time of the start of 
compi lati on. 

Unused. 

Used by phases 62 and 64 in sequencing the object 
deck . 

Used in phase 21 as a counter for assigning unique 
identifying numbers to DTFs. 

Unused. 

Used in phase 21 as a counter for assigning unique 
identifying numbers to secondary DTFs. 

Used by phases 62 and 64 to calculate the relative 
address of DTF cells from the beginning of the TGT . 

Number of data-names for statistics. 

Number of verbs for statistics. Set by phase 11. 

Contains the compi lei — generated card number of the 
text item currently being processed. If the text 
item is a verb> the high-order bit of CURCRD is on. 

Unused. 

Contains TRACE, DEBUG, SYMDMP, and Q-routine 
i nformati on . 



Name 
SWTRCE 



DELDSW 



Bit Meaning 



Set by phase 11 if TRACE is encoun- 
tered so that phase 40 will generate 
TRACE coding at each procedure-name 
def ini ti on. 

Set by phase 11 if there is a DISPLAY 
on SYSLST in a LABEL declarative. 
Tested by phase 51 to determine if a 
call to subroutine ILBDASYO should be 
generated. 
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Cell 



No. of Displ. Oispl. 

Bytes Hex Decimal Purpose 

DSLDSW 



SPILL 3 

ALDSM 4 

MQVAR 5 

Name Bit 

LDECLSW 6 

MQFILE 7 

SYMIFP 8 



SYS5TD 



PHZSW 



2A2 



674 



SORTRTN 10 



RERUNN 11 



SORTSW 12 
NOFITSW 13 



D0PH7 14 
RDERRFIL 15 



Set by phase 11 if there is a DISPLAY 

on SYSPCH in a LABEL declarative. 

Tested by phase 51 to determine if a 

call to subroutine ILBDASYO should be 

generated. 

Used if SYMDMP needs note or point 

on SYS005. 

Set by phase 11 if there is an ACCEPT 

in a LABEL declarative. Tested by 

phase 51 to determine if a call to 

subroutine ILBDOSYO should be 

generated. 

Set by phase 22 if it builds a QVAR 

table. 

Meani ng 



if there is a LABEL 
if it builds a QFILE 



Set by phase 11 
declarative. 
Set by phase 22 
table. 

Set by phase 25 if there is an 
internal floating-point data item 
and SYMDMP is requested. Tested by 
phase 60 to determine if a virtual 
for subroutine ILBDTEF3 should be 
generated. 

Set by phase 01 if SYS005 is on tape. 
Tested by phase 65 to determine if a 
WRITE UPDATE can be done on SYS005 if 
it is a disk file. If SYS005 is a 
tape file» copy SYS005 information on 
SYS002 and then recopy 
Set by phase 30 if the 
verb is specified^ and 
51. 

Set by phase 10 if RERUN is speci- 
fied* and used by phases 21 » 51 > and 
either 60 or 62 and 64. 
Set by phase 10 if SORT is specified. 
Phase 70 must read SYS003 for E-text 
since FRRTBL exceeded 256 bytes and 
has to be spilled. 
Tested by phase 60 or 62 or 64 to 
determine whether to call phase 70. 
Set by phase 60 or 64 if it did no 
processing. Tested by phase 70 to 
determine if SYS004 is to be read to 
find E-text. 



i nformati on 
on SYS005. 
sort RETURN 
used by phase 



Set by phase 01 from the compilation options, 

the bit is on» the option was chosen. 

Name Bit Meaning 

LIST LIST option specified 
LISTX 1 LISTX option specified 
DECK 2 DECK option specified 
LINK 3 LINK option specified 
SEQ 4 SEQ option specified 
FLAGW 5 FLAGW option specified 
LIBR 6 LIB option specified 
ERRS 7 ERRS option specified 



If 
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Cell 

PHZSWl 



No. of Displ 
Bytes Hex 

1 2A3 



Displ. 

Decimal Purpose 



675 



PHZSW2 



2A4 



676 



PHZSW3 



2A5 



677 



PHZSW4 



2A6 



678 



PHIBYTE 



2A7 



679 



Same as PHZSW for additional options. Phase 10 
sets RPTWR on if a Report Section is encountered, 



Name 

XREF 

CLIST 

SYM 

FLOW 

RPTWR 



APOST 
MAPSP 
TRUNC 



Bit Meaning 



XREF option specified 

CLIST option specified 

SYM option specified 

FLOW option specified 

(Not a compiler option, this bit is 

tested to determine whether to load 

phase 12). 

APOST option specified 

SUPMAP option specified 

TRUNC option specified 



Same as PHZSW for additional options. 

Name Bit Meaning 

SXREF SXREF option specified 

STXIT 1 STXIT option specified 

ZWB 2 ZWB option specified 

CATALR 3 CATALR option specified 

4 Unused 

SYMCAN 5 SYMDMP request cancelled 

STATE 6 STATE option specified 

SYMDMP 7 SYMDMP option specified 

Same as PHZSW for additional options. 

Name Bit Meaning 

OPT OPT option specified 

1 Unused 

SYNTAX 2 SYNTAX option specified 

CSYNTAX 3 CSYNTAX option specified 

4 Unused 

5 Unused 

6 Unused 

VERBR 7 VERB option specified 

Same as PHZSW for additional options. 

Name Bit Meaning 

VSUM VERBSUM option specified 

VREF 1 VERBREF option specified 

COUNTL 2 COUNT option specified 

TIMER 3 Elapsed time paragraph executing 

LVL 4 LVL=, (for FIPS) option specified 

COMPAT 5 COMPAT option specified 

NEWADV 6 ADV option specified 

7 Unused 

Switch for phases 10» 11, 22, 21, 50, 51, 62, and 
63. 

Name Bit Meaning 

Unused 



ADRSYM 



Set by phase 51 when SYMDMP is in 
effect and a call to the ILBDVMOO 
subroutine has been generated. Phase 
60 tests the bit and generates a call 
to the ILBDADRO subroutine if the bit 
i s set to 1 . 
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No. of Displ, 
Cell Bytes Hex 



Displ. 

Decimal Purpose 

OPTDISP 1 



SWITCHIX 1 



2A8 



680 



SWITVS 



2A9 



681 



SRTRERUN 8 
FIPLVL 1 



2AA 
2B2 



682 
690 



QRTNIPBL 3 



Name 



Bit 



Set by phase 50 if OPT is specified 
and a call to the ILBDDSPO subroutine 
is to be generated. Phase 51 tests 
the bit and generates the call if the 
bit is set to 1 . If the bit is set i 
0, phase 51 generates the call to 
ILBDDSSO. 

Set to 1 by phase 62 if all Q-routinc 
6Ns are contained in 1 Procedure 
Block. If phase 63 finds this bit 
turned on» it does not generate load 
instructions of register 11 for 
branches to Q-routines. 
Meani ng 



S370IN 4 
DBLBUFIS 5 

EOPPHl 6 
UPSIBT 7 



Set to 
compute 
Used by 
System/ 
Set to 
ISAM fi 
that is 
21 test 
name to 
Set to 
end-of- 
program 
Set to 
speci f i 



1 by 
r pa 

pha 
370 
1 by 
le N 

ope 
s to 

use 
1 if 
file 



phase 10 
ragraph sp 
ses 50 and 
i nstructi o 

phase 22 
ith no RES 
ned input 
determi ne 
for ISAM 
phase 10 
condi ti on 



if object- 
ecifies IBM-370, 

51 to generate 
ns. 

if there is an 
ERVE NO clause 
or I-O. Phase 

Mhat module 
f i les. 
encounters an 

in the source 



1 if an UPSI clause is 
ed. 



Compiler internal switch byte. 



Name 

RENAMON 

OCCTBON 

DICTSPIL 

SLIBOPTS 
NEDBIT 
CVBBIT 
ANEBIT 



Bit 



1 

2 

3 

5 
6 



Meani ng 



Set to 
exi sts 
Set by 
Tested 
Set by 
occurs 
Source 
Numeri 
Conver 
Alphan 
needed 
Unused 



1 by phase 22 if RENAMTB 
Tested by phase 25. 

phase 22 if OCCTBL exists. 

by phase 25. 

phase 00 if dictionary spill 
Used for statistics. 

library option override, 
c editing subroutine needed, 
t to binary subroutine needed, 
umeric edited field subroutin* 



UNSTRING, COLLATING information. 



Name 

VBFILES 
PHIDCON 
PH45BIT 



COLATON 



Bit Meaning 



5-7 



VB File(s) in program 

Phase ID Constant option 

Set by phase 40 to indicate that 

phase 45 i s to be called for the 

UNSTRING verg. 

Unused 

Non-NATIVE PROGRAM COLLATING SEQUEN( 

exi sts 

Unused 



File-name and logical unit number of file used for 
SORT checkpoint. 

Set by phase 02 to indicate use level of FIPS 
flagging that i s to be done by phase 80. 
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Cell 

IPRECS 

AHSEGMSG 4 

BGALLPN 2 

BGALLPRI 1 

V2BUGSW 1 



NO. of 
Bytes 


Displ. 
Hex 


Displ. 
Decimal 


Purpose 


1 


2B3 


691 


Unused 


4 


284 


692 


Number < 



BUGBLLNO 

BUGVLCNO 

MAXBGITM 

SA3CTR 

DBGLOC 

IDBYTES 



IDPHOO 
IDPHOl 
IDPH02 
IDPH03 
IDPH04 
IDPH05 
IDPH06 
IDPH08 
IDHPIO 
IDPH12 
IDPHll 
IDPH20 
IDPH22 
IDPH21 
IDPH25 
IDPH30 
IDPH35 
IDPH40 
IDPH45 
IDPH50 
IDPH51 
IDPH60 
IDPH61 
IDPH62 
IDPH63 
IDPH64 
IDPH65 
IDPH70 
IDPH71 
IDPM72 
ibPHSO 



2 
2 
2 
2 
2 
44 



288 

2BC 
2BE 
2BF 



2C0 
2C2 
2C4 
2C6 
2C8 
2CA 



2CA 
2CB 
2CC 
2CD 
2CE 
2CF 
2D0 
2D1 
2D2 
203 
204 
205 
206 
207 
208 
209 
20A 
20B 
2DC 
2DD 
2DE 
2DF 
2E0 
2E1 
2E2 
2E3 
2E4 
2E5 
2E6 
2E7 
2E8 



696 

700 
702 
703 



704 
706 
708 
710 
712 
714 



714 
715 
716 
717 
718 
719 
720 
720 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 



Number of source cards for statistics. Set by 
phases 10» 12/ 11. Used by phase 60 or 64. 

Address constant of header line in phase 00. Used 
by phase 60 or 64 . 

PN for USE-DEBUG all procedures. 

Priority for USE-DEBUG QALL procedure. 

DEBUG switch. 



Equate 
Name 

V2BUG0N 

V2BUG0CL 

BGALLPRC 



Bit Meaning 

Uith debugging mode 

1 Debugging sections 

2 USE-DEBUG all procedures 
3-7 Unused 



BLL for DEBUG 
VLC for DEBUG 

Maximum size for DEBUG-ITEM. 

Number of save cells allocated by Phase 51 
for use-for-DEBUGGING declaratives. 

Debug fields in the TGT. 

One byte for each phase of the compiler. Each phase 
dynamically stores its change level number in its 
corresponding byte. 



Phase 00 
Phase 01 
Phase 02 
Phase 03 
Phase 04 
Phase 05 
Phase 06 
Phase 08 
Phase 10 
Phase 12 
Phase 11 
Phase 20 
Phase 22 
Phase 21 
Phase 25 
Phase 30 
Phase 35 
Phase 40 
Phase 45 
Phase 50 
Phase 51 
Phase 6 
Phase 61 
Phase 62 
Phase 63 
Phase 64 
Phase 65 
Phase 70 
Phase 71 
Phase 72 
Phase 80 



level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 


level 


i denti 



f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f ier 
f i er 
f i er 
f i er 
f i er 
fer 
f i er 
f i er 
f ier 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
f i er 
fier 
f i er 
f i er 
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cell 

IDPH81 
IDPH82 
IDPH83 
IDPH84 
IDPH85 
IDPH86 
IDPH87 
IDPH88 
IDPH89 
IDPH8A 
IDPH8B 
IDPH8C 
IDPH8D 



LIBBUF 

LNCOUNT 

VIOVIRN 
SIOVIRN 

ATPLENT 

PATCHIT 



No. Of 


Displ. 


Displ. 












Bytes 


Hex 


Decimal 


Purpose 










2E9 


745 


Phase 


81 


level 


1 dent 


f i er 




2EA 


746 


Phase 


82 


level 


ident 


f ier 




2EB 


747 


Phase 


83 


level 


ident 


f ier 




2EC 


748 


Phase 


84 


level 


i dent 


f i er 




lED 


749 


Phase 


85 


level 


i dent 


f i er 




2EE 


750 


Phase 


86 


level 


i dent 


f i er 




2EF 


751 


Phase 


87 


level 


i dent 


f i er 




2F0 


752 


Phase 


88 


level 


1 dent 


f ier 




2F1 


753 


Phase 


89 


level 


i dent 


f i er 




2F2 


754 


Phase 


8A 


level 


i dent 


f i er 




2F3 


755 


Phase 


8B 


level 


i dent 


f i er 




2F4 


756 


Phase 


8C 


level 


1 dent 


f i er 




2F5 


757 


Phase 


8D 


level 


i denti 


f 1 er 


10 


2F6 


758 


Unuse( 


d 









2 
2 
2 

4 

16 
64 




300 



304 



768 



772 



306 


774 


308 


776 


30A 


778 


30C 


780 


310 


784 


320 


800 


360 


864 



Address of library input area (phase 04 to phase 
00). 

Number of lines per page of compilation listing. 
Set to 1 by phase 01; used for statistics. 

Virtual number for VSAM I/O. Used by phases 62-64 

Virtual number for SAM I/O. 

Unused 

Length and address of Phase Length table. 

Unused 

Patch area 

End of COMMON 
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TABLB FORHATS 



This chapter contains descriptions of 
all tables handled by the TAKER routines of 
Phase 00 » whether built, used* and released 
vithin a single phase or passed to e later 
one. These tables differ froa others in 
that additional storage can be obtained for 
thea and they occupy space in the TAHER 
area rather than within a phase. Their 
descriptions are not intended to be 
complete, but to provide a quicX reference 
to which phases use a table and for what 
general purpose. More explanation is 
provided in the chapters on the individual 
phases. 

The tables are arranged in alphabetic 
order. Bach description includep the TIB 
number (where applicable) and the foraat of 
an entry in the table. The TIB is 
explained in ''Appendix A. Table and 



Dictionary Handling.** The following notes 
apply to the foraat diagraas in this 
chapter; 

• The top row of figures shows the nuaber 
of bytes in the field. 

• Shaded areas indicate optional fiplds 
or a series of siailar fields. 

• n » the total nuaber of bytes to follow 
in the entry. 

c s the number of bytes in the 
following field, 

• Individual notes, applying to 
particular fields, are numbered 
consecutively with the numbers 

encircled. 



UPHTBl 
(TIB 27) 



Phase 10 builds this table! 
froa scan of alphabets in H 



1 



SPECIAL-MAHBS paragraph. | C 



256 



® 



© 
© 



ILhA££_lJl checks the table 
for alphabet-names found 
in CODE -SET clause. At 
end of SPECIAL-NAMES, 
phase 10 scans the table 
for alp ha bet- names found 
in PBOGBAB COLLATING 
SBQUEMCE. 

Phase ^1 checks the table 
for alphabet-names found 
in SORT or HBBGE Statements. 
P^^se ^ 1 deletes this table 
at termination of processing. 



The count of the nuaber of bytes in the 
name that follows. 



Ifariable | 

H k 1 

|alphabet-| SwitchI 256-byte 
I name | | Translation 
I I (2) I Table 



Code 

01 

04 

08 

60 



PROGRAM COLLATING SEQUENCE 
STANDARD-1 (ASCII), no 256-byte 

translation table needed. 
NATIVE (EBCDIC), no 256-byte 

translation table needed. 
Literal already defined. 



If none of the above switches are on, the 
table entry is for a user-defined alphabet 
which is not the Program Collating 
Sequence. If the Literal Already Defined 
bit is on, the next two bytes contain the 
literal number (if not ASCII or EBCDIC). 
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ASCTAB 
(TIB 12) 



Purpose 

Store address constants 

of DTFs for associated 

files when 3525 device 

if specified in ASSIGN 

clause. 

Entry frequency 

One entry for each DTP 

for an associated file. 



1 

Process- I System unit 
ing byte I (STSnnn) 

I for associ- 
lated file 
I 



Device 
code 



® 



-1 r 

I 1 I 



-I- 



+ 



Hopper I Type | Type of | Address 

select I of I associ- j of DTP 

|file|ation | 

® I ®! @ I 



Phases Involved 
Phase 21 builds and 
uses this table 
for generating 
address constants 
for each DTP for 
an associated file. 



I Address of | Card 
(address | number 
{constant | 
I in this I 
I DTP I 



® 



Code M eaning 

00 R (READ file) 

01 P (PUNCH file) 

02 W or n (WRITE file) 



(?) Code 



Code Device 

80 3525 

HO 2560 



@ 



Cod|e 
80 
40 
20 
10 



BLTABL 
(TIB 24) 



Me^pjLfiq 

V (READ, PRINT) 

X (READ, PUNCH, PRINT) 

Y (READ, PUNCH) 
Z (PUNCH, PRINT) 



Purpose 

Associate DTP numbers 

with buffers. 

Entry Prequency 

One entry for each PD 

in source program. 



® 



Code Meaning 
80 Primary hopper 
40 Secondary hopper 



DTP I Buffer I Adjustment 
number I area j factor 
Inimber I 

! © ! 



PLAG 

® 




© 



Phases Involved 

Phase 21 builds and 
uses when generating 
buffers to determine 
how to initialize the 
base locator for each 
file. 

Meaning, if ON 
VSAM file 
(Not used) 
Pile is single buffered and 

unblocked, or indexed 

sequential. 
X»01« for VSAM file 
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BLAS6T6L 

(TIB 16) Purpose 

Assign object-tine 
percanently loaded 
registers. 

Entry Freauencv 
One entry for each 
register: 6-10. 



P^iases Involved 

Phase 62 builds this table 
using the BLDST6L table. 

Phases 63 and 64 use the 
inforaation to determine 
which BL or BLL or OVERFLOW 
CELL is in a permanent 
register. 

The type cell contains one of the 
following hex values: 




BL, BLL, I 
or overflow j 
nunber j 



© 



Co^e 


MeJ^p^pq 


PF 


T6T overflow 


FO 


PGT overflow 


00 


data BL 


01 


data BLL 



Overflow cells for the T6T and PGT 
are assigned registers first. Since 
the number of PROCEDURE BLOCK ADDRESS 
cells has not yet been determined, it 
is impossible to know if another OVER- 
FLOW cell will be required for the PGT. 
Therefore, phase 62 assigns registers 
6 - 9 to the known OVERFLOW cells and 
to the most used data BLs and BLLs 
and reserves register 10 for the pos- 
sible PGT OVERFLOW cell. If no OVER- 
FLOW cell is needed, register 10 is 
assigned to the next most used data 
BL or BLL. 
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BLDSTBL 
(TIB 10) 



BLVHTBL 
(TIB 23) 



BOFTAB 
(TIB 29) 



Porpose 

Contains a count of 
the references to 
each BL and BLL. 

Entry Frequency 
One entry for each 
BL and BLL assigned 
to the Data Division, 



Phases InvoJLved 

Phases 50 and 51 build this 

table during the scan of 

P2-text. 
Phase 62 uses this table to 

assign registers to the 

DOSt used data BLs/BLLs. 

BLs 1 through n are followed 

by BLLs 1 through m. 




Purpose 

Optimize generation 
of instructions to 
return control 
from a performed 
procedure to the 
GN return point. 

Entry Frequency 
One entry for each EXIT 
statement in the range 
of a PERFORM statement. 



Phases Involved 

Phase 62 builds this table 
during Optimization A-text 
processing upon reading a 
6N PERFORM (24) element. 
It fills in the block num- 
ber during Procedure »-text 
processing upon reading the 
7NREF element which follows 
the coot element at the 
PERFORM EXIT. 

Phase 63 uses this table to 
determine whether the GN 
return point (COOS) is in 
the same block as the EXIT 
statement and thus which 
Procedure Block is contained 
in register 11 on return from 
the performed procedure. 



+ 



GN number | TN number | Block 
I I number 

I. .. .n , I 



Purpose 

store adcons to buffers 

for files. 

gptyy Fpequepcy 
One entry for each 
address constant for 
for an I/O area that must 
be filled into a DTF. 



DTF 
number 



I 1 
H 



DTF I SAME iSAHE 
number) AREA JRECORD 

I number I AREA 

I I 

I I number 



Flag 
byte 



O 
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Phases InvolYed 
Phase 21 builds and uses 
for buffer generation. 

Q Bits Contents * 

0-1 Size, minus 1, of DTP 
field receiving new 
(generated) address 

2-'» Alignment of generated 
area 

000 - at doubleword 

001 = at doubleword + 1 



Address of (Adjustment j Maximum 

DTP field lvalue (with jarea for 

or PIB jsign) for jthis gen- 

figld jarea address jeration or 

(2) I I DTP 



© 



111 = at doubleword + 7 
5-7 Dnique area number for 

individual area within a 
file 
» X»01» for VSAM file 

The address, relative to the beginning of the object module, of either the DTP field receiving 
the generated address or, for VSAM, the PIB field (IHECOBL) receiving the displacement in the 
TGT of the record's first BL cell. 



CASDINDX 
(TIB 11) 



© 



Purpose 

Store information about 
the first card number for 
each program fragment 
and user-written 
discontinuity within a 
segment for use by the 
COBOL library subroutines 
when SYNDNP is specified. 

Entry Preauency 
One entry for each 
program fragment and one 
entry for each non- 
contiguous section other 
than the first within a 
segment. 



Phases Involved 

Phase 65 builds this table 
while reading STS002 and 
building the PROCTAB 
table. 

Phase 65 writes this table 
on SYS005 and COBOL 
library subroutines use 
this table to relate card 
numbers to entries in 
the PROCTAB table. 

Bits Contents 
0-19 Card number 
20-23 Verb number 

(verb number is always or 1) 



I Card/verb number 
I for first card 
(in this group 



© 



Priority j Relative 
i fragment 
(number 
(within this 
i priority 
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CKPTBL 
(TIB 8) 



Purpose 

Save BERON statenent 
infornation from source 
program scan. 

Entry Frequency 
One entry for each 
REBON statement. 



\- 



+ 



|External-|SYS |CKPT |DTF number |Number 

I name or {number | counter | jof records 

ISISxxx I (number I j 

I I I i I 



Phases Involved 

Phase 10 builds this table 

from BERUN statement in 

source program. 
Phase 21 adds DTP number 

and checkpoint counter 

number. 
Phase 51 uses to generate 

coding to count and test 

"integer" with BEROH 

file OPENS, READS and 

WRITES. 



CNTLTBL 



® 



® 



Purpose 

Sorts data-names and 
procedure-names for the 
SXREF option. 



(Pointer to (Pointer to (Pointer to 
(associated (CONTROL (CONTROL 
Entry Frequency (DATA record ( record for (record for 

One entry (CONTROL record) ( (lower name (lower name 

for each DEF-text element. ( (on first (on next 

( (compare (compare 

Phases ^nvolve^ » • « 

Phase 61 builds and uses 
this table to reorder 
data-names and procedure- 
names alphabetically for 
the SXREF option. 

There is no TIB for this table. 
Phase 61 uses the phase 00 routine 
GET ALL to get space r but moves data 
in and out of the table by itself. 



CONDIS 
(TIB 1U) 



Purpose 

Store DISPLAY literals 
during literal optimiza- 
tion. 

Entry Frequency 
One entry for each 
unique DISPLAY literal. 



( Variable 



I 

( 

( Literal 

( 



Phases Involved 

Phase 60 or, when OPT is 
specified, phase 62 builds 
this table while process- 
ing Optimization A-text. 

Phase 60 or phase 62 uses 
this table with CONTBL 
and LTLTBL tables to 
eliminate duplicate 
DISPLAY literals. 
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CONTBL 
(TIB 9) 



Purpose 

store each non-DISPLAY 
literal value during 
optimization of literals w 

Entry Frequency 
One entry for each 
unique non-DISPLAY 
literal. 



I Variable 



I 

I 

I Literal 

I 



Phases InvoJ-ved 

Phase 60 or^ when OPT is 
specified, phase 62 builds 
this table while process- 
ing Optimization A-text, 

Phase 60 or phase 62 uses 
this table with CONDIS 
and LTLTBL tables to 
eliminate duplicate 
non-DISPLAY literals. 



CTLTBL 

(TIB 14) Purpose 

Store information on 
control names to check 
validity and build 
routines using them. 

Entry Frequency 

One for each control 

name. 



I 2 I 
I h 



n I Duplicate |Save name 
(name (-nnnn) j (-nnnn) in 
I in EBCDIC I EBCDIC 

I © ' © 



p. 

1 I 
-I- 



Flag {Level |GN number 
byte I of this! for control 
I control I heading 

®! ! 



Phases Involved 

Phase 12 routine BDSCAN 
builds this table. 

Phase 12 routine 6NSPBT 
and most other routines 
use this table to 
create CTB-ROUT, 
SAV-ROOT, and RET-HOOT 
routines. 



|6N number for 
i control foot- 
ling 
I 
I 



© 



© 



Variable 



Unused iSize of |Control-name includ- 

j previous ling qualifiers, 

jentry {indexes, and sub- 

1 jcripts, if any, in 

I jpo-text form. 

I I 



In PO-text form: 




Contents 
23 
05 

- (hyphen) 
nnnn 

Meaning* if on 

Control-name is subscripted or indexed 

Unused 

Control footing specified 

Unused 

Control heading specified 
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CVIRTB 
(TIB 12) 



purpose 

Store virtual nane from 
definition elements dur- 
ing virtual optimization. 

Bntrv Frequency 

One entry for each unigue 

virtual . 

Phases ;i;nvolved 

Phase 60 or^ when OPT is 
specified, phase 62 makes 
an entry when it finds a 
virtual definition during 
Optimization A~text 
processing. 

phase 60 or Phase 62 uses 
this table with the 
VIRPTR table to elim- 
inate duplicate refer- 
ences to virtuals. 



I 

Virtual I 



DATATBL 



© 



© 



purpose 

store information for 

XBEF or SXBEF processing. 

Entry Frequency 

One entry (DATA record) 

for each DEF-text element, 

phases Involved 

Phase 61 builds and uses 

this table in producing 

an XSEF or SXREF 

listing. 



There is no TIB for this table. 
Phase 61 uses the Phase 00 
routine GET ALL to get space, but 
moves data in and out of the 
table by itself. 



1 

1 3 

1 


1 

1 
1 


33 


1 

1 
1 


2 


1 
1 



I Pointer to (External name in EBCDIC, {Ascending 
I dictionary j defining card number, and j source order 
I entry for |a variable number of | pointer 
I data-name or | card numbers referring | (SXREF only) 
|PK number I to name j 





1 


1 




1 




1 


■ 




1 


1 
1 — 


2 1 
1- 


1 


1 
H- 


3 


1 1 
H 


1 


3 


1 
— 1 



I Descending I Offset in bytes {Pointer 
{source (from start of (to cur- 
( record to loca-jrent 



(order 
(pointer 
( (SXREF 
( only) 
( 



(tion for the 
(next card num- 
(ber referring 
(to name 



{ (last) (nal 

(OVERFLOW (name 

(record j 

( ( 

J I 



(Length (Pointer ( 
(of (to first ( 
(exter-( OVERFLOW I 
(record ( 
( ( 
( ( 
( ( 



DBGTBL 
(TIB 13) 



p^ypose 

Store information on 
procedure-names referred 
to in DEBUG statements. 

Entry Frequency 
One entry for each pro- 
cedure-name referred to 
by DEBOG. 



phases Involved 

Phase 40 builds this table 

from PHs in Pi-text referred to 

in DEBOG statements and 

from GNs from GNCTR in 

COMMON. 
Phase 40 uses this table 

to issue P2-text CALL 

statements to DEBUG 

procedures. 



PM number 

for procedure-name 



(GM number for debug ( 
( procedure associated j 
(with procedure-name j 
( ( 
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DBGTXT 
(TIB 06) 



DE?SBS 
(TIB 18) 



Purpose 

Save newly created 

Debug-text elements. 

Phases Involved 
Phase 35 builds this 

table and uses it 

to accumulate 

DEBUG verb text 

while processing 

an input verb string. 
Phase 35 deletes this 

table upon completion 

of processing. 

Pttrpose 

store subscript~defining 
string until all sub- 
scripts in statement are 
collected. 
Bntrv Frequency 
one entry for current 
string being built. 

Phases Involved 

Phase 90 builds this table 

from P1->text of subscripted 

data-name. 
Phase UO uses this table 

with STRING table to issue 

P2-text subscript strings. 

DETTBL 

(TIB 17) Purpose i 

Store information on | 
detail report group for 
processing SOH...OPOM 
clauses and generating 
detail-names. 



I Number of 

I bytes 

I following 



Variable 



DEBUG 

verb string 

element 



invariable 



iiillililliillit 



I I First 
jclelement 
I jin string 

L_J 




30 



I 1 
-« 



Entry Frequency 

One entry for each detail 

report group. 

Phases Involve d 

Phase 12 builds this table 

from scan of 01 -level 

statements. 
Phase 12 uses this table |OSM-ROOT 

to process SUM...OPON " 

clauses, and to generate 

USM-ROOT. 
Phase 11 uses this table 

to generate detail-names 



(Detail report I 
I group data- j 
Iname -. | _^ 
I © I© 



6N number 
for this 
detail 
report 
group 



® 



Displacement of 
entry in BHRTBL for 
report-name 
associated vith 
this detail report 
group 



|GN number for J © j © 



^^Left- justified, padded with binary zeros in 
low-order bytes. 

^) Length of the detail report group data -name. 

(s) Code for correlating SOORCE and SUM.. .UPON clauses. 

Code Meaninq 
00 This entry was made as the result of a 

detail report group encountered. 
FP This entry was made when an UPON clause » 
encountered. (This code is changed 
to 00 when a detail report group is 
encountered for the data-name.) 
Code for unique detail-name. 

Code Meaninq 

00 This entry was made as the result of a 
unique detail group data-name. 

01 This entry is a non-unique detail group 
name that must be qualified. 



® 
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DICOT 

(TIB 20) Porpojse 

Store starting address 
of each section in the 
dictionary. 

Entry Fregaencv 
One entry for each 
dictionary Section. 



© 



First entry in table is a dummy < 



1 I 



T 1 

f 8 



^T) i Displacement \\2) 
I of section in| 
I dictionary j 



Phases Involved 

Phases 11 and 22 build as they 

build the dictionary. 
Phases 11, 22, 21, 25, and 30 use 

to find dictionary sections. 

© Bits Meaning. If ON 

Section has been spilled 

1 Section is now in main storage 

2 Section has been updated 

3 A section, which had been spilled and 

read back into storage, has been 
modified and the copy on the 
external device is obsolete. 
U-7 Not used. 



© 



Address on disk where section has been 
spilled, if it was ever spilled. 



DSPTBL 

(TIB 24) Purpose 

Optimize the use of 
temporary registers 
1U and 15. 

Bntrv Frequency 
One entry for each BL, 
BLL, SBL, SBS, or BDISP 
address increment if it 
is not assigned a 
permanent register and 
if a temporary register 
is unavailable. 



Item type I Item number | 

© I I 



© 



Phases Involved 

Phase 62 builds this table 
and keeps the entries 
until a decision is made 
as to which temporary 
register, 1U or 15, 
should be used. 

Code Meaning 

80-00 BL 

40-01 BLL 

20-04 SBL 

10-06 SBS 

08-02 BDISP address increment 

(code values are in hexadecimal) 
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DRPLTBL 
(TIB 25) 



purpose 

Store infornation for 
addressing BL, BLL, SBL, 
SBS, or BDISP address 
increment itens. 

Entry yreauencv 

One entry for each of 

the above items if it is 

not assigned a permanent 

register. 



Phases Involved 

Phase 62 builds this table 
during Procedure A-text 
processing. 

Phase 63 uses this table. 
If a load instruction is 
to be generated # it generates 
the instruction and inserts 
the proper temporary 
register to address the 
item. If no load instruction 
is to be generated, it uses 
the proper temporary register 
as the base in the 
instruction . 



1 bit 



1 bit 



- Load instruction |0 s Register 14 

required jl = Register 15 

1 = No load instruction! 

required j 



DTAB 
(TIB 04) 



® 



Bit 

ir 

1 

2-7 



Purpose 

Eacn entry describes a 
USE FOR DEBUGGING (UFD) 
operand . 

Phases Involved 
Phase 30 builds this 
table and makes 
entries for all the 
PN definitions in the 
program after the 
debug declaratives if 
the BGALLPPC switch 
is on. 
Phase 35 deletes this 
table upon completion 
of processing. 

Meaning 
Unused 

Procedure neime 
Unused 



1 1 


1 1 1 i 2 ] 


j Switch 

1 ® 


PN DO Priority j PN nximber | 

Reference | number j for USE | 

element i for PN | | 

1 r 1 




1 3 1 Variable j ] 


! < ' 1 
DICTPRT or 1 Alpha 1 

1 PN number Literal ' 

j @ 1 1 1 

1 III 



@ The PN number is preceded by FF. 
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BH?TBL 
(TIB 3) 



Pm^ppse 

Store file information 
from Environment Division 
to be merged with Data 
Division Information to 
form Data ic-text. 

Entry Frequency 

One entry for each file. 

Phases Involved 
Phase 10 builds this 

table from Environment 

Division. 
Phase 10 uses this table 

to merge with Data 

Division information 



1 



I 1 1 

(Compiler- (Either external |nnn 
(generated (name (if specified) (from STSnnn 
(source card (or SYSnnn (portion of 
(number ( (file-name in 
( ( (binary 
I I I 



1 2 ( 


1 ( 


(Flag ( 
( field ( 


VSAM ( 
Flag ( 


10)1 


© 1 



Buffer (Pointer to (Device organiza- 
off set (entry in (tion codes for 

(PIOTfiL (associate files 

. L _5?^ L ^"fS^ 



(Flag 
(field 

I© 



1 



Unused (number (Pointer to (Number (Flag 
(of SORT (entry in (assigned (field 
(work (CKPTBL 
(units ( ^^ 

! ! ® 



(to SAME (^^ 
(AREA (4^ 
(clause ( 
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1 I 

+■ 



1 



8 11 



is 



5) I Number assigned | Integer in 
I to SANE 6EC0BD |MOLTIPLE 
I &BEA clause 



I Number of 
I tracks for 

I PILE . . .POSITION I CYL-OVEBFLOW 

j clause j 

I I 

I I 

I I 

I 1 



Device i Device I Number assigned 
type i number jto SAME SOBT 
code I of I AREA clause 

©I highest I 
t index | 

I © I 



31 



File-name | TRACK 
in FD entry I AREA 
I size 

1® 



NOMINAL I ACTUAL | RECORD | Pointer to data -name 
KEY and JKET and |KET and j qualifiers from APPLY 
qualifiers | qualifiers j qualifiers j option 

^-^ I ,^->, I ^-v I (aPPI-I CORE-INDEX) 



File I Password I RELATIVE 

status and I and I KEY and 

qualifiers I qualif ieraj qualifiers 

(2) I (2) I ® 



© 



ria^ 



Bit Meaning 

1 = RANDOM ACCESS 
1-3 Organization 

000 = Not specified 

001 = INDEXED 
010 = DIRECT 
100 = RELATIVE 

U-6 Device Class 

000 = Not soecifled 

001 = DIRECT-ACCESS 
010 = ONIT-RECORD 
100 = UTILITY 

7 1 * No RESERVE 

ALTERNATE AREA 

8 1 = SELECT OPTIONAL 

9 1 =: SAME AREA specified 

10 EXTENDED-SEARCH 

11 SAME RECORD AREA specified 

12 SAME SOBT AREA specified 

13 1 * CKPTBL pointer exists 
1U 1 = PIOTBL pointer exists 
15 'ALTERNATE* specified in 

RESERVE clause 

Bits Meaning 

~T5 1 = AS specified in ORGANIZATION 

parameter of system-name 
1 1 = No organization pareuneters 

specified in system-name 
2-4 ORGANIZATION clause 

Code Meaning 

000 Not specified 

001 SEQUENTIAL 
010 INDEXED 
100 RELATIVE 



5 ACCESS MODE IS DYNAMIC 

6 Unused 

7 PASSWORD data-name specified 
with RECORD KEY or for the file. 

@ Displacement of entry in table. 

^ Device organization codes for 

associated files (see dictionary 
entry) 

® 



Bit 


Meaning 


d 


1 = COPY 


1 


Unused 


2 


RECORD CONTAINS clause 


3-4 


BLOCK CONTAINS integer 




00 = Not specified 




01 = RECORDS 




10 » CHARACTERS 


5-6 


LABEL RECORDS 




00 = Not specified 




01 = STANDARD 




10 « OMITTED 




11 = Data-name 


7 


1 = REPORT clause 
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09 


Bit 


Meapipq 




0-1 


TSACK AREA 

00 - Not specified 
10 = Integer 




2 


Onused 




3 


1 = NOMINAL KEY 




U 


1 = ACTDAL KEY 




5 


1 = RECORD KEY 




6 


1 = WRITE ONLY 




7 


FILE STATUS clause specified 




8 


1 = WRITE VERIFY 




9 


CYL-OVERFLOW 




10 


•integer* of RESERVED clause not 
in valid range 




11 


HULTIPLE REEL/DHIT 




12 


HOLTIPLE PILE TAPE 




13 


HASTER-INDEX 




ia 


CYL-INDEX 




15 


RELATIVE KEY 


© 


Bits 


Coptepts 




0-3 


Temporary storage for Phase 10, 
Phase 11, or the nusber of 
nonstandard reels. 




4 


CORE-INDEX 




5 


Unused 




6 


ASCII file 




7 


•integer' of ASSIGN clause not 
in valid range 


© 


Code 


Device 


1 


ia42R 




2 


1442P 




3 


2520R 




4 


2520P 




5 


2540R 




6 


2540P 




7 


2501 




8 


1403, 5203, or 3203 




9 


1404 




10 


1443 




11 


1445 




12 


3211 




13 


3505 or 3504 




14 


Reserved 




15 


3525R 




16 


3525P 




17 


3525W or 3525M 




18 


Reserved 




19 


3881 




20 


Reserved 




21 


5425R 




22 


5425P 



© 



23 


5425W 


24 


Reserved 


25 


2560R 


26 


2560P 


27 


2560W 


28-39 


Reserved 


40 


2400,3410,3420 


41-47 


Reserved 


48 


2311 


49 


Reserved 


50 


2314,2319 


51 


2321 


52 


Reserved 


53 


3540 


54 


Reserved 


55 


3330 


56 


333B 


57 


Reserved 


58 


3340 


59-61 


Reserved 


62 


3350 


63 


FBA1 


Byte 


Heaping 


35 


Count of ALTER 



clauses 
36-37 INDTBL displacement, the dis- 
placement to the first entry 
associated with this file 
(that is, if any ALTERNATE 
RECORD KEY clauses appear 
under the select) 

peapjLpq 

Incorrect class 

Incorrect device 

Incorrect organization 

parameter 

Unused 



38 



39 



Bit 

1 
2 

3-7 

Bit 



1 
2-7 



40 
41-42 

Bytes 
0-1 



2-3 



Meaning 
Assigned 
Assigned 
Unused 

Assigned 
Unused 



Contents 

Length of name (s) in bytes 
(or binary literal if TRACK 
AREA is specified) 
Displacement of name in QNHT6L 
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ERRTBL 

(TIB 10) Purpose 

Store E-text to separate 
it froB Data A-text for 
phase 70. 

Entry Frequency 

One entry for each nes- 

sage to be generated. 



Phases Ipyplved 

Phase 60, or when OPT is 
specified/ phase 64 build 
this table from Data A-text. 

Phase 70 uses this table 

to generate error messages. 




(V) Table ends with one-byte eleaent X»77» 



PDTAB 
(TIB 28) 



Pass record description 
information from phase 
22 to 21. 



I 



Efftry FpequeppY 

One entry for each FD in 

source program. • 

Phases Involved 
Phase 22 builds from 

Record Descriptions in ATP-text. 
Phase 2.1 uses to generate 

DTFs and buffers. 



I 1 1 

I Maximum | Minimum | First 
i record (record jbase 
I length {length j locator 
j I {number 
I i I 



Flag 
byte 

© 



{ Maximum ( Buffer {Dictionary 
( label i offset (pointer 
(record { j 
(size ( ( (2) 



© Bits Use 



Bits 
0-3 
4 



Use 

Number of base locators 

0D02 switch: ON, if any 

record descriptions 

contained more than one 

ODO clause. 
ODO switch: ON, if any record 

description contained an ODO 

clause. 



© 



ODO object switch: ON, if any 
record description contained 
the object of an ODO clause. 

(Not used) 



Used by phase 21 to get dictionary 
attributes when LATRNH returns 
a duplicate code. 



FILTBL 
(TIB 2) 



(Location to (Name of 
(be entered (virtual 
(on ESD cardj 

I I 



Purpose 

Store virtuals related 

to input/output label- 

or error -processing 

virtuals. 

Entry Frequency 
One entry for each vir- 
tual related to input/ 
output label- or error- 
processing routines. 



Phases Involved 

Phase 60, or when OPT 
is specified, phase 
62 builds this table during 
virtual optimization . 

Phase 60 or phase 62 uses this table 
to place virtual names in DTFs, 
for example, for SYNAD routines. 



8 
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FIPSMTBL 
(TIB 8) 



FIPSPTBL 
(TIB 9) 



Purpose 

Store FIPS messages 

generated by earlier 

phases. 

Entry Frequency 
One entry for each mes- 
sage . 

Phases Involved 
Phase 70, v;hen LVL is 
specified and earlier 
phases generate FIPS 
(phase-id=F) message (s) 
Phase 84 uses this table 
to merge into FIPS 
messages. 



First byte of FF indicates 
end of table. 



Purpose 

Store parameters (if 
any) needed for FIPS 
messages in FIPSMTBL. 

Entry Frequency 
One entry for each para- 
meter. 

Phases Involved 
Phase 70 builds from 

E-Text. 
Phase 85 merges into FIPS 

messages. 



Major Code (01=FD, 04=SD, 10=record) 

File organization (01=SAf4 or ESDS, 
02-KSDS, 04=RRDS, FF=non-stnndard) 

Entry consisting of a single byte 
of FF signifies end of table. 



1 


1 


2 


01 


Message # 
(in binary) 


Line number in 
binary 



1 


1 


1 


C-3 


C 


Major 
Code 


File 
Organi- 
zation 


EBCDIC 
name 
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PHTBL 
(TIB 10) 



puppoipe r 

Store Environaent Division | 
information about a file 1- 
for Procedure Division 
processing. 



Entry Prequencv 

One entry for each file. 



I Pointer to | Pointer to | Unused |GN nunber tGS nunber |GN nunber 
IPIOTBL entrylGVHHTBL I I for STANDARD | for header I for trailer 
I I I lESROH {labels I labels 
i I I I I I 



Phases Involved 
Phase 10 builds this 

table froa the EHVTBL 

table and the Data 

Division. 
Phase 12 uses in Report 

Section processing . 
Phase 11 uses this table 

in Procedure Division 

processing. 



1 1 {Variable | 



4-4- 



-i 



|GN number 1 6N number f Switch |c|File-naBe| 
I for EOV I for BOV I byte | fin EBCDIC | 
{labels {labels ( M) { { ( 



lit pe^pj-ffc^, if op 

ACCESS RANDOM 

1 Mass storage file 

2 LABEL RECORDS ARE STANDARD 

3 LABEL RECORDS ARE OMITTED 
H BEFORE (in OSE statement) 
5 AFTER (in DSE statement) 
6-7 Dnused 



GCWTBI 
(TIB 2a) 



pyrpojse 

store card numbers for 
statements that contain 
NEXT GROUP or LINE 
clauses that may be in 
error; also, store card 
numbers for TYPE IS PAGE 
HEADING or TYPE IS PAGE 
FOOTING groups that may 
be in error. 



( 4 I 



{^n{ Generated card! 



{ {number 



Entry Frequency 

One entry for each clause 

in error. 

Phases Involved 
Phase 12 builds and uses. 
It makes an entry for 
each clause that con- 
flicts with the PAGE 
LIMIT clause. Entries 
are saved until the end 
of the report, when it 
can be established whether 
these statements are ac- 
tually in error, as sig- 
nalled by the presence of 
at least one relative LINE 
or relative NEXT GROUP clause. 

C^J These four bytes contain the 

address of one of the following 
messages: 
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BSGSt, for a NEXT GROUP clause error 
HSG119» for a LINE clause error 
NSG165, for an illegal PAGE HEADING 
HSG166, for an illegal PAGE FOOTING 



6NATBL 
(TIB 8) 



?UFpo)se 

Determine which GNs 
require an address 
constant cell in the PGT. 



GN nunberl 



Entry Frequency 
One entry for each GN 
requiring an address 
constant cell in the PGT. 

Phases Involved 

Phase 62 builds this table 
froB 6NDBEF elements in 
Optimization A-text. 

Phase 63 uses this table to 
determine whether a GN 
requires an address 
constant cell. 

Phase 64 uses this table when 
determining the address in 
the PGT of the GN cell to 
be used in an instruction. 



GNCALTBL 

(TIB 16) Purpose 

Store GN numbers 
for Q-routines. 

Entry Frequency 
One entry for each 
GN number. 



I Count-1 of I GN first 

I Q-routines j number for 

I to call i 0-routine call 



Phase Involved 

Phase 51 builds this table 
and uses it to generate 
call to the Q-routines 
after return from the 
CALL statement. 



6NPHDBTB 

(TIB 21) Purpose 

Optimize size of a 
procedure block. 

Entry Frequency 
One entry for each 
forward reference to a 
GN within a Procedure 
Block . 



h 



I GN number | Counter 



Phases Involved 

Phase 62 builds this table 
from Procedure A-text. 

Phase 62 uses this table 
to keep count of the 
number of U-byte load 
instructions of the 
Procedure Block which 
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might be needed If a new 
block is begun before the 
GN is defined. 



GNLABTBL 
(TIB 19) 



GNLBDTBL 
(TIB 27) 



Purpose 

Determine inter-block 

and intra-block 

references. 



Entry Frequency 
One entry for each 



Block 

number for 
GN 



GN. 



Purpose 

Determine displacements 
from the beginning of 
the block for GN defini- 
tions. 

E ntry Frequency 

One entry for each GN. 



Phases Inyolved 

Phase 62 enters in this 
table the block number 
for each GN as it reads 
Procedure A -text. 

Phase 63 extracts the block 
number in which a GN is 
defined each time a GN is 
referred to. 



12 bits 



I 

I » 

I Displacement | 
I from beginning j 
I of block for GN | 



Phases Involved 

Phase 63 builds this table 
during Procedure A-text 
processing. 

Phase 64 uses this table to 
insert the displacement 
in generated instructions 
which address the GN. 



GNTBL 
(TIB 8) 



Purpose 

Create and store a list 

of optimized GN numbers. 

Entry Frequency 

One entry for each GN 

number. 



I 2 I 

I 1 

I Number relative | 
I to beginning of j 
|PN cells I 



Phases Involved 

Phase 60 builds this table 

from GNCTB and PN and GN 

equate strings. 
Phase 60 uses this table 

to optimize procedure-names 

and process Procedure 

A-text. 
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GPLSTK 

(TIB 10) Purpose 

Count length of group 
Item while subordinate 
itens are being pro- 
cessed . 

Entry Frequency 

One entry for each group 

item being currently 

processed. 

Phases Involved 
Phase 22 builds this 

table froB dictionary. 
Phase 22 uses this table 

to determine group item 

length. 



1 1 1 

Flag I0D2TBL displacement of | Haxisua | Generated 



bytes I entry for OCCDRS 

©I DEPENDING ON object 
I within group item 
I (if none, field 
I contains zeros) 



I number of 
I occurrences 
i (if none^ 
I field is 0) 
I 



I card 
j number 



+■ 



I 



Pointer to dictionary | Pointer to|Haxinun length | 
entry for REDEFINES j dictionary j of variable | 
object within group j entry for jgroup | 
item (Of if none) litem j j 

J I I 



Level number I Address {Number of index- {Number of| 
{parameters j names (Or if (keys (0, j 
{ (idk) (none) |if none) ( 



4- 



Displacement of entry (Displacement of entry I Displacement of 



for item in INDKET 
table (0, if none) 



(for item in SBCHKY 
(table (0, if none) 



(entry for V»LOE 
(clause literal 
(in VAI6RP table, 
(if used (0, if 
(not) 



I 1 
H 



Displacement of (Flag 
entry for VALUE (byte 
clause literal in j 
VALTRO table, if { 
used (0, if not) |(^ 



Flag 
byte 

© 



O 



Bits 


1 
2 

3 
H 



6 

7 

8-11 

12-13 

ia 

15-31 



Meaning 

1 = group occurs more than once; 
alignment reguired 
= contains object of OCCDRS DEPENDING ON 
■• SYNC clause in item under 

group item 
■ STNC clause in group item 
: VALUE clause in group 

item 
: Condition-name under group 

item 
' Group is or is in a label record 
Unused 
Minor code (see LD dictionary 

entry format) 
MBS (must be subscripted) bits 
1 = Item contained OCCURS or an ODO clause 
Length of group or VLC 
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GVPHTBL 
(TIB 4) 



CD Bits Meaning 

3 Justified 
H-7 Set to XM111' if OSAGE is other than 

DISPLAY 

^^ Bit 3 is set to 1 for the master of an ODO clause. 



Purpose 

Store pointer to PNTBL 
for VSAM files referred 
to in USE AFTER STANDARD 
ERROR/EXCEPTION with 
GIVING option. 



Displacement in FNTBL | 



Entry Frequency 

On entry for each file-nane 

mentioned in USE Declarative. 

Phases Involved 

Phases 11 builds the table 

using the FNTBL. 

Phase 11 uses the table 

to complete the FNTBL 

entries after building 

the GYNHTBL table. 



GVNHTBL 
(TIB 5) 



11 



■Variable | 

H h 



Purpose 

Store the data-name 

specified in the GIVING 

option of the STANDARD | 00 | data-name | number of bytes 

ERROR/EXCEPTION PROCEDURE | | |in preceding field 

Declarative for VSAM « « " 

files. 



Entry Frequency 
One entry for each 
Declarative. If the data- 
name is qualified the en- 
try contains all of its 
qualifiers 



Phases Involved 
Phase 11 builds the table 
from the entries in the 
CURBCD and CORN data areas 
and for qualified data names 
from the OLTABL table. 
Phase 1 1 uses the table to 
create the OPEN coding for 
VSAM files. 



For qualified data-names the following fields are added 



BBrBS 
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IHDKEY 
(TIB 31) 



purpose 

Store OCCOBS... DEPENDING 
ON (ODO) information for 
use in table handling. 

^ntyy yreqy?ncY 

One entry for each item 
that has an OCCORS cluase 
and an INDEXED BY clause. 

Phases Involved 
Phase 22 builds this 

table from Data IC-text 
data-names with OCCURS 
and INDEXED BY clauses. 
Phase 30 uses this table 
to process SEARCH and 
SEARCH ALL verbs. 



I 

I 1 



Dictionary pointer to 
subject of OCCURS or 
maximum number of 



occurrences 



© 



Flag 
byte 

© 



Dictionary | Number 
pointer jof index- 
to object (names 
of OCCURS I 
or maxi- j 
mum number! 
of occur- j 
rences 1 | 



I 3 

I 

I Dictionary 
{pointer to 
jfirst^index- 
jnameM) 




m) Contents of dictionary pointer: 



B4.ts Contents 

0-1 7eros 

2-14 Dictionary section number 

15-23 Displacement in section 




® Sit 

0-2 
3 



4-6 

7 



Unused 

1 » Next three bytes contain 

pointer to subject of ODO clause 

= Next three bytes contain 

maximum number of 
occurrences. 
Unused 

1 = Error detected in key processing 

(Phase 30 uses) 
= No error found 



INDXTB 
I (TIB 27) 



Purpose 

Save all index-names 

associated with a data 

item. 

Pptyy Fr^qn^i^cy 
One entry for each index- 
name associated with the 
data-item currently being 
processed. 



Phases Involved 

Phase 10 builds this table from 

level-number entries in 

the source program Data 

Division. 
Phase 10 uses this table 

to append index-names 

to the Data IC-text LD 

entry for the data 

item. 



T — r 
HI 
-h- h 



Variable | 
1 



1 04 |c| Index-name I 
I (hex) I tin EBCDIC | 
I I I I 
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IND2TBL 
(TIB 35) 



Purpose I 

Store inforoation on VSAN, 3 

files for 0F6ANIZATI0H isl 

INDEXED. I Dictionary 

I pointer for 
Entry Preqoencv . RECORD KEY , 

One entry for each PD RELATIVE KEY, 
entry for VSAM files with! or ALTERNATE 
ORGANIZATION IS INDEXED. | RECORD KEY 

Phases InTolved 
Phase 21 builds this table 
from Data IC-text. 
Phase 30 uses the table 
to build Pi -text. 



idk 

parameters 
for RECORD 
KEY, 

RELATIVE KEY, 
or ALTERNATE 
RECORD KEY 



level 
number 



lOPTBL 
(TIB 5) 



Purpose 

Store SANE RECORD AREA 

infornation. 

Entry Freauencv 
One entry for each 
unique BL number within 
an output file PD entry 
that also contains a 
SANE RECORD AREA clause. 

Phases Involved 

Phase 51 builds and uses 

as object-time I/O 

buffer pointers. 



DTP I lOPTR I 
number I number I 



KEYTAB 
(TIB 26) 



© 



lits 

0-5 
6 

7 



Purpose 

Save all key-names 

associated with a data 

item. 

Entry Frequency 
One entry for each key- 
name associated with the 
data item currently being 
processed . 

Phases Involved 
Phase 10 builds from 
level-number entries 
in source program Data 
Division. 
Phase 10 uses this table 
to append key-name to 
Data IC-text LD entry 
for data item. 

Weaning* if on 
Unused 

Descending key 
Ascending key 



I 1 



invariable 
+_l 



I© I Ii 



Key-name 
in EBCDIC 
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KEYTBL 
(TIB 20) 



Purpose r ^~^ 

Ensure that, if key is j 3 jlj 

tested in WHEN condition, [ -j— j 

all previous keys are j Addressing parameters} j 

also tested. jfor item (IDK) froM i j 

I dictionary entry |^ 

Entry Frequency I (i) II 

One entry for each key »■ -»— ' 

in KEY clause associated 
with identifier-1 in 
SEARCH ALL statement. 



Phases Involved 

Phase UO builds this table 
while processing a SEARCH 
ALL statement. 

Phase UO uses this table to 
make sure SEARCH ALL 
statement processing tests 
keys associated with iden- 
tifier-1 and does not test 
a key without having tested 
the previous key. 



(T) Bits Field 



0-3 



Meaning 

Type of BL containing base 

address of area 



U-15 
16-23 



0000 = BL 

0001 = BLL 
0100 = SBL 

Displacement from base address 
BL number 



(2) Initially 0, but set to 1 whenever a 

WHEN condition for KEY is found during 
processing of this SEARCH ALL statement. 



LABTBL 
(TIB 13) 



Purpose 

Save LABEL RECORD data- 
names referred to in a 
Data IC-text FD entry. 

Entry Frequency 

One entry for each LABEL 

RECORD data-name referred 

to in the Data IC-text FD 

entry currently being 

processed. 

Phases Involved 

Phase 20 builds this table from 

Data IC-text FD entries. 
Phase 20 uses this table 

to differentiate label 

records from nonlabel 

records in processing 

Data IC-text LD entries - 



r-T n 

lljvariable j 
|._+ ^ 

I cj LABEL RECORD] 

I I data-name inj 

I I EBCDIC I 
L_i J 
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LTLTBL 
(TIB 4) 



Purpose r 1 

Contains pointers to | 2 j 

CONTBL and CONDIS tables |- H 

during optimization of | Displacement from start) 

literals. |of appropriate table j 

I of entry for literal j 

Entry Frequency •■ J 

One entry for each 
reference to a literal. 



Phases Involved 

Phase 60 or, when OPT 
is specified, phase 
62 builds this table 
while building CONDIS and 
CONTBL tables. 

Phase 60 or, when OPT 
is specified, phase 
64 uses this table 
with CONDIS and CONTBL 
tables to eliminate duplicate 
DISPLAY and non-DISPLAY 
literals. 



MASTODO 
(TIB 13) 



Purpose 

Identify masters of 

OCCURS. . .DEPENDING 

ON clause*- if SYMDMP ii 

specified. 

Entry Frequency 
One entry for each 
master of an OCCURS... 
DEPENDING ON clause. »• 

Phases Involved 

Phase 22 builds this table 

as it encounters OCCURS.. 

DEPENDING ON clauses. 
Phase 25 uses this table 

to identify master of 

OCCURS.. .DEPENDING ON 

clauses*- for the DATATAB 
table. 



^See Glossary for definition of "master of an 
OCCURS Clause with the DEPENDING ON Option." 



NPTTBL 

(TIB 18) Purpose 

Store Ninnnn names that 
contain number of lines 
a particular report 
group occupies. 



r 1 

I 3 I 

j. ^ 

I Dictionary pointer for | 
[master of an ODO^ j 
L J 



I T — T 1 

I 1 I 1| 6 I 

I 23 (hex) I 07 I Name in EBCDIC | 

L X X J 



Entry Frequency 
One entry for each report 
group that contains PLUS 
clause. This table is cleared 
at the end of each RD. 

Phases Involved 
Phase 12 builds from 

relative line clauses. 
Phase 12 uses this table 

to generate Data IC-text 
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LD entries at the end 
of the RD. 

OBJ SUB 

(TIB 5) Purpose j y f t 1 

Relate files to objects | 2 | 2 | 2 | 2 | 

and subjects of OCCURS — j- +- >;=r+-x;^+ ^ 

DEPENDING ON clauses. |DTF ) (l) j (l) JX'FFFF' | 

It is used to build the | Number j ] | j 

QFILE table. L -L J- -i- J 
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Entry Fpeggencv 
One entry for each file 
whose record descriptions 
contain at least one ob- 
ject and/or subject of an 
OCCURS... DEPENDING ON 
clause. 



Pjiajses Ipvolved 
Phase 22 builds and uses 
to build the QPILE table, 



MJ Nhen present, this field contains the 
0D2TBL table displacement if the 
field refers to the object of an 
ODO clause f or the GN nunber of 
the subject if the field refers 
to the subject of an ODO clause. 
If the field contains a GN number, the 
high-order bit is ON. 



OCCTBL 
(TIB 2) 



Purpose 

Store information about 
items in OCCOBS and 
OCCURS... DEPENDING ON 
clauses if SYMDHP is 
specified and program 
contains an OCCURS or 
OCCURS... DEPENDING ON 
clause. 

Entry Frequency 
One entry for each 
subject of an OCCURS 
or of an occurs . . . 

DEFENDING ON clause. 



j Dictionary pointer j Maximum number >^i 
jfor subject of clause! of occurrences \})\ 



I Number of bytes 
I to next , 
I occurrence (2) \ 



ODO i Reserved for 
Switch I OBODOTUB pointer 
(3) I object of ODO (v\ 



fori 



Phases Involved . 

Phase 22 builds this 
table as it encounters 
an OCCURS or OCCURS . . . 
DEPENDING ON clause. 

Phase 25 uses this table 
and the QRTN and QITBL 
tables to build the 
ODOTBL table. The ODOTBL 
table is then used 
to fill in the OBODOTAB 
pointers in this table. 

(^J The field contains either the number of 
occurrences for an OCCURS clause or the 
maximum number of occurrences for an 
OCCURS... DEPENDING ON clause. 

^\ If the subject of the clause is a 
^"^ variable-length group, the field contains 
its VLC number. 

^3^ If this byte contains 0, the entry is for 
an OCCURS clause; if it contains 1, the 
entry is for an OCCURS. ..DEPENDING ON 
clause . 



Table Formats 309 



Licensed Haterlal - Property of IBN 



r«) The field is present only when the entry 
is for an OCCUBS.. .DEPEHDING ON clause. 
Phase 22 fills the field with zeros. 
Phase 25 enters the OBODOTAB pointer; then 
the contents of the field are as follows: 

Ei;ts Contents 

0-8 Relative block number within the 

OBODOTAB table 
9-15 Displacement in fullwords within 

the block 



ODOTBL 
(TIB ia) 



Purpose 

Determine which entries 
in the dictionary are 
objects of OCCDRS . . . 
DEPENDING ON clauses and 
therefore must be entered 
in the OBODOTAB table if 
SYMDHP is specified and 
the program contains and 
OCCOBS... DEPENDING ON 
clause. 



3 12 12 



I Dictionary 
t pointer for 
(object of ODO 
I 



(Displacement 
(within OCCTBL 
(for OBODOTAB 
( pointer 



(OBODOTAB 
(pointer for 
(object of 
(ODO 



Entry Frequency 
One entry for each 

OCCURS . . .DEPENDING ON 

clause . 

Phases Involved 

Phase 25 builds this table 
using the OCCTBL, ORTN, 
and QITBL tables. 

Phase 25 uses this table 
to build the OBODOTAB 
table and to fill in the 
OBODOTAB pointers for objects 
of OCCDRS... DEPENDING ON 
clauses in the OCCTBL table. 



0D2TBL 
(TIB 9) 



Purpose 

Store objects of OCCDRS 
DEPENDING ON clauses and 
their gualifiers for 
Q-routine generation. 

Entry Frequency 

One entry for each OCCDRS 

DEPENDING ON clause. 

Phases Involved 

Phase 10 enters EBCDIC 

names from OCCOBS 

DEPENDING ON clauses. 
Phase 22 uses this table 

to generate Q-routines. 
Phase 25 uses this table 

In building the OBODOTAB 

table. 



2 ( 1 (Variable 



H ( 

( c (EBCDIC name of 
( (highest level 
( (qualifier 





1 (Variable ( 



K 



c (EBCDIC name( c( 00 
(of object ( ( 

I ( ( 
1 i I 
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OPLQTBL 



Purpose 

Store referencing card 
nuBbers when the DATATBL 
table entry is full. 
Dsed in processing for 
the SXRBF or the XRBF 
option . 

Entry Frequency 
One entry for each 
referencing card nunber 
which cannot be stored 
in the DATATBL table 
entry for the data-name 
or the procedure-name. 



I Referencing | Referencing | Referencing | Referencing | 
I card number I card number! card number j card number j 
« ■ ' ■ ' 



offset I Pointer to 
(2) I preceding 
^-^ I OVERFLOW 
i record 



P^ageg ipTQJLved 

Phase 61 builds and uses 

this table to store referencing 
card numbers for the SXREF 
or the XREF option. 



© 



There is no TIB for this table. Phase 61 
uses the phase 00 routine GETALL to get 
space, but moves data in and out of the 
table by itself. 



^) This byte contains binary values 3, 6, 9, 12 
^^ as the OVERFLOW record contains 1, 2, 3, U 
referencing card numbers. 



PFMTBL 
(TIB 12) 



Purpose 

Store procedure-names and 
VMS to be equated in 
PERFORM statements. 

EntpY Frequency 
One entry for each 
delimiting 
procedure -name. 



|PN number of |VN number cor- 
Inext procedure-) responding to 
I name after JPN that is 
I end -of -range |end-of -range 



Phases Involved 

Phase 40 builds this table 
from Pi-text procedure-names 
and VNCTR in COMMON. 

Phase 40 uses this table 
to keep track of de- 
limiters of performed 
procedures to set up 
return VMs. 
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PIOTBL 
(TIB 7) 



© 



Purpose 

Store input/output 
information for a file 
from Procedure Division. 

Entry Frequency 

One entry for each file, 



Switch 




Bits 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



Phaser Involved 

Phase 10 sets aside space 

for one entry for each file. 
Phases 11 and 12 set appropriate bits. 
Phase 21 uses this table to 

generate Data A -text. 

Statement referring to file, if bit is op 

OPEN INPUT 

OPEN ODTPOT 

OPEN I-O 

Unused 

WRITE APTEE ADVANCING 

CLOSE WITH LOCK 

CLOSE 

REWRITE 

RERUN 

OPEN INPUT REVERSED 

SEEK 

WRITE BEFORE ADVANCING 

USING 

GIVING 

USE 

WRITE AFTER POSITIONING 

BEFORE in USE 

OPEN NO REWIND 

WRITE 

USE ON file-name 

START 

Unused 

REVERSED 

Unused 



@ lit 



Bit Statement referring to file if on 

KEY IS data-name (for START) 

1 DELETE 

2 USE AFTER STANDARD ERROR GIVING DN 

3 OPEN EXTEND 

(physical sequential only) 

4-7 Unused 



PNATBL 

(TIB 7) Purpose 

Determine which 

PNs require an 

address constant cell |PN number 

in the PGT. 



Entry Freguencv 

One entry for each 

PN requiring an address 

constant cell in the PGT. 

Phases Involved 

Phase 62 builds this table 
from PNUREF elements in 
Optimization A-text. 

Phase 63 uses this table to 
determine which PNs require 
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address constant cells. 
Phase 64 uses this table 

when determining the address 

in the PGT of the 

PN cell to be used in 

an instruction. 



PMPWDBTB 
(TIB 20) 



Purpose I 

Optimize size of a I 2 

procedure block. | 

JPN nuBber 

Entry Frequency • 

One entry for each 

forward reference to 

a PS within a Procedure Block. 



I Counter 



PNLABTBL 
(TIB 18) 



PNLBDTBL 
(TIB 26) 



Phases Involved 

Phase 62 builds this table 
froB Procedure A -text. 

Phase 62 uses this table 
to keep count of the 
number of U-byte load 
instructions of the 
Procedure Block which 
might be needed if a 
new block is begun before 
the PN is defined. 



Purpose 

DeterBine inter-block 

and intra-block 

references. 

Bptyy Pfeque^^cY 

One entry for each PM. 



I Block nunber 
I for PN 



Phases InvojLved 

Phase 62 enters in this 
table the block nuBber 
for each PN as it reads 
Procedure A-text. 

Phase 63 extracts the block 
number in which a PN 
is defined each tiBe a PN 
is referred to. 



Purpose I ' ■ 

Determine displaceBents | 12 bits 
froB the beginning 
of the block for PN 
definitions . 

gntrv Frequency 

One entry for each PN. 



I 

I Displacement from 
I beginning of block 
I for PN 



Phases Involved 

Phase 63 builds this table 
during Procedure A-text 
processing. 

Phase 64 uses this table to 
insert the displaceaent 
in generated instructions 
which address the PN. 
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PNOOHT 
(TIB 14) 



Purpose 

Stack operands of COBPUTF 

and IF statements. 

Entry Frequency 
One entry for each 
operand in statement. 

Phases Involved 

Phase 40 builds this table 
from Pi -text scan. 

Phase 40 uses this table 
with PSI611T table 
to stack operands until 
the string is ready to 
be created. 



Variable 



I 1 I 
H 1 



I t 



tsame operand as in 

I Pi-text, including I ^-. I 

I byte identification I (1)1 



m) Number of bytes in the preceding field. 



PHQTBL 
(TIB 6) 



© Bil 



7 

8 

9 

10 

11 



12 
13 

14 
15 



11 



^ — , 

I 1 [Variable 



In 
I 

I I 



I— I 1 1 1 — 

I c| Procedure- I Flag |Onused|22 
I I name in fb^tes) | 
I EBCDIC \(T) I I 



HI 
I— I- 



Variable 



I c I Procedure-name 
I (qualifier in 
I I EBCDIC 



Purpose 

Store information on 
references to qualified 
PNs for completion of 
dictionary entry. 

EntFT yr^quQi^cy 
One entry for each 
qualified PN. 

Phases Involved 

Phase 11 builds this 
table from Procedure 
Division. 

Phase 11 uses this table 
to complete procedure- 
name dictionary entries. 

Me^pii^q, if op 
. Procedure-name 
Section-name 
Either name follows 

THBD in PBBP0RI1...THR0, 

or follows PERFORM without THRU 

Referred to by ALTER 

Procedure-name of GO TO 

Procedure-name of EXIT 

Procedure-name following 

TO PROCEED TO in ALTER 

statement 

Unused 

Referred to in DEBUG 

Defined in DEBUG 

Dummy section-name 

Defined in Declaratives Section (or 
in DEBUG statement referring to such 
section) . Bits 12-15 describe type of section. 

Declarative error routine 

Declarative label routine 

Unused 

Declarative report section. 



I 1 
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PNTABL 
(TIB 5) 



II 



O Bit 

1 
2 



3 

a 

5 
6 

7 

8 

9 

10 

11 



12 
13 
It 
15 

® Sit 


1-7 



In 



T— T 1 1 1 

|1|Variable | 2 | 1 I 

+_| 1 1 1 

I c| Procedure- 1 Flag (Dictionary | 
I I name in | b^tes | sea£ch codej 
I I EBCDIC IQT) I (2) I 



Purpose 

Store information on 
references to unqualified 
PNs for later 
completion of PNs | 
dictionary entry. I 

I 

Entry Frequency 

One entry for each PN 

that is not qualified. 

Phases Involved 

Phase 11 builds this table 
from Procedure Division. 

Phase 11 uses this table 
to complete procedure- 
name dictionary entries. 



Weaning* if on 

Procedure-name 

Section-name 

Either name follows 

THRO in PERFORM... THRO, 

or folloHs PERFORM without THRO 

Referred to by ALTER 

Procedure -name of 60 TO 

Procedure -name of EXIT 

Procedure-name following TO 

PROCEED TO in ALTER statement 

Onused 

Referred to in DEBOG 

Defined in DEBOG 

Dummy section-name 

Defined in Declaratives Section (or 

in DEBOG statement referring to such 

section). Bits 12-15 describe type of section. 

Declarative error routine 

Declarative label routine 

Onused 

Declarative report section 

Me^pj,pq, jf op 
Dictionary was searched for 
this PN before this section 
Onused 



PHTBL 
(TIB 7) 



Purpose 

Create and store list of 

optimized PN numbers. 

Entry Freguentiv 
One entry for each 
optimized PN number. 



I Displacement of PN | 
I from start of PN cells j 
I in object module | 



Phases Involved 

Phase 60 builds this table 

from PNCTR in COMMON and PN 

equate strings. 
Phase 60 uses this table 

to optimize PNs and 

process Procedure A-text. 
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PHDTBL 
(TIB 6) 



Purpose 

Optimize procedure -nanes 
by eliminating those not 
referred to or, when 
OPT is specified, 
determine entry points. 

Entry Frequency 

One entry for each source 

program procedure-name. 



1 bit 



1 = Name is referred to | 
= Name is not referred to j 



Phases Ii^volved 

Phase 51 reserves space 
for as many entries as 
there have been PNs 
counted in PNCTR. These 
entries are initially 
set to 0. In later 
processing, phase 51 
turns on a bit each 
time the PN associated 
with the bit is referred to. 

Phase 60 uses this table 
to eliminate names not 
referred to, or, when 
OPT is specified, 
phase 62 uses this table 
to determine which 
PNs are entry points. 



PFOCTNDX 
(TIB 5) 



Purpose 

Store information about 

the PBOCTAB table which 

is written on STS005 if 

STMDHP option is in 

effect. 

Entry Frequency 

One entry for each block 

of PR0CTA6 entries. 



Card/verb number | Relative address | Device address 
for first entry jof code for this | of PROCTAE 
in PBPCTAB blocJcl entry within | block 
Mj {segment | 



Phases Involved 

Phase 65 builds this 
table while reading 
sys002 and building the 
PROCTAB table. 

Phase 65 writes this 
table on S7S005 and 
COBOL library subroutines 
use this table to address 
entries in the PROCTAB table, 
table . 



© 



0-19 
20-23 



Contents 
Card number 
Verb number 
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PSHTBL 

(TIB 17) Parpose 

Store GN nnnbers of 
ELSE branches in nested 
and conpound IP state- 
nents. 

Entry Frequency 

One entry for each false 

branch. 

Phases Involved 

Phase UO bailds this table 

froB Pi -text and GNCTR 

in COHNOH. 
Phase to uses this table 

to generate branches. 



16 = Master label |GH 
= Otherwise j number | 



|P1-text 
I code for 
j sign 



PSIGNT 

(TIB 15) Purpose 

Store operators in 
COMPOTE and IF 
statements. 

Eptry Frequency 
One entry for each 
operator in the state- 
ment being processed. 



Phases Involved 

Phase 40 builds this table 

from PI -text. 
Phase 40 stacks operators 

until strings are ready 

to generate. Table used with 

PMOONT. 



PTBFLS 
(TIB 16) Purpose 

Store branches in an IF 

statement . 



Entry Frequency 
One entry for each 
decision in statement. 



1 = 'HOT' is 

active 
10 = 'NOT* is 

not active 



|GN number for|6N number 
I fall-through jfor bypass | 
j branch j branch 

t I 

ji I 



Phases Ipvolved 

Phase 40 builds this table 

from PI -text compound IF 

statements and GMCTB 

in COMMON. 
Phase 40 usei^ this table 

with the PSHTBL table to select 

branches for P2-text. 
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P1BTBL 
(TIB 2) 



Purpose 

Pass phase operating in- 
fomation fron phase 10 
to phase 11 or 12 or 
from phase 12 to phase 11 

Entry Freouencv 
One entry made at end of 
phase 10 processing and, 
optionally, at end of 
phase 12 processing. 



Phases Involved 
Phases 10 and 12 build 

this table from stored 

information. 
Phase 11 and/or 12 moves 

data into its own data 

areas . 



12 t 
1 h- 


8 


1 — 

8 

1 


1 3 
H 


1 80 
H 


— 1 

1 

H 



|n (Generated (Generated (Unused (Last 

( (card number (card number j (record 

( (for last (for last ( (read 

( (record read (record read ( ( 

( ( (packed) ( (unpacked) ( ( 



1 — 




1 — 




1 — 


■■ 




,..,. 




—I 


( 


6 


1 


18 


( 


82 


6 


1 


2 


1 


»— 




h- 




(— 


1 


1 


1— 




— 1 



(Sequence (Error in- (INSERT (Sequence (Phase ( 
(number of (formation (card work (number (switches j 
(last record (on record (area from (from BASIS ( ( 
(read ( (BASIS ( ( n) ( 



I 114 I 



h 



( Unused (STSOOI pointer (Unused(Phase 

( (for BASIS/COPT ( (switches 

I (READ ( ( 

II I I © 



1 


-T 


1 




— 1 1 — 




■| 




1 


1 2 

1 


1 *» 
_l 


1 
— *— 


80 


1 81 

l>»vl 


2 


1 
4— 


1 


1 
1 



(Current (Phase (Double- (^(Contents (Phase ( 
(generated (switches (buffer for( (of ( switches ( 
(card numberj (COPY... ( (columns ( ^-^ j 
( ( (3) (RBPLRCIMG ( (72 and 73 ( fs) ( 
I I 2=1 I I I I _r_ I 



© 



© 



© 
© 



PYte 1 
Unused 

COPYSW 
BASISH 
Unused 
Unused 
Unused 
Unused 

CPYXSW 

Byte 1 

PSTRC 

Unused 

Unused 

Unused 

Unused 

Unused 

Unused 

Unused 



Bvte 2 
INDLSW 
IHSTSW 
INDEBR 
IHOWSW 
DELSM1 
DELSfr2 
DELSW3 
CPYCSW 

Byte 2 

Unused 

Unused 

Unused 

USEPDL 

USEPDE 

SRTSW 

Unused 

Unused 



© 



nts 


Byte 1 


Pyte 2 


Byte 3 


Byte H 





Unused 


CDSUSP 


C0N2SW 


Unused 


1 


unusecl 


Bur2sw 


HWCDSW 


SURPSW 


2 


Unused 


BUE3SW 


SKCDSW 


BU75SW 


3 


Unused 


Bupasw 


Unused 


Unused 


4 


REPSW 


CONTSW 


Unused 


Unused 


5 


Unused 


Unused 


Unused 


Unused 


6 


Unused 


Unused 


Unused 


Unused 


7 


Unused 


Unused 


DBRDSH 


Unused 



For Phase 10 

Bytes 0-2 = Report Writer generated name 
Bytes 3-7 = Not used 

Bits 0-6: Not used 
7: PRGNSM 
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PITEXT 
(TIB 05) 



Purpose 

Save input Pl-text 

elements and newly 

created Debug-text 

elements. 

Phases Involved 

Phase 35 builds this 
table and makes 
entries in this table 
as it is processing 
its input once the 
determination has 
been made that no more 
debug declaratives 
exist. 

Phase 35 uses this 
table to accumulate 
verb strings until 
all debug processing 
is complete. 

Phase 35 deletes this 
table when processing 
is complete. ' 



Number of 

bytes 

following 



Variable 



J 



PlA-texti 
element , 
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OAITBL 
(TIB 23) 



Purpose 

Work table, for example, 

to store qualified names 

and qualifiers in reverse 

order of appearance 

in RD. 




^Ti%^y Frequency 
One for each name in the 
current string of a name 
and its qualifier. 

Phases ;i|ivoJ.ved 

Phase 12 builds this table as 

it scans a name and its 

qualifiers. 
Phase 12 uses this table 

to reverse the order of a 

name and its qualifiers. 



QFILE 
(TIB 23) 



Purpose 

Store Q-routine 6N 
numbers connected with 
all files in which at 
least one of the records 
contains an OCCUBS . . . 
DEPBVDIHG ON clause. 



|DTF number for|GN number for single 0-coutine fori 
I file I file or for chain of 6Ns, where 

t there is more than one 0-rontine 
I associated with the file 

t ■ 







® 



Entry Frequency 

One entry for each file 

of this type. 

Phase Involved 

Phase 22 builds this table 
from Q-rotttines for file. 

Phase 30 adds Q-routine GM 
numbers to dictionary 
attributes for corre- 
sponding files. 

Table ends with a word of zeros. 



QGBTBL 
(TIB 24) 



?uypose 

Pass O'Boutine GM numbers 
and their Procedure Block 
numbers from phase 63 to 
phase 64. This table is 
built only if there is a 
Q-BEGIM macro element 
passed in Procedure 
A-text . 



|6M number I Procedure 
j I Block number 



One for each Q-Boutine GN. 

Phases ;Cnyo;^ved 

Phase 63 builds this table 

from the 6NLABTBL. 
Phase 6U uses the data to 

initialize Q-Boutines 

during processina for 

INIT3. 
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QITBL 
(TIB 22) 



Purpose 

Contains a pointer to 
the dictionary attributes i 
of each OCCURS. ..DEPENDING | Pointer to entry 
ON object entered In the jln dictionary for 
0D2TBI table. |OCCOBS. . .DEPENDING 

ION variable 

Entry frequency • 

One entry for each 0D2TBL 
table entry. 



1 t 

1 


— 1 

1 ft 

-H 


1 

1 
1 



IDlsplacenent of 
j entry in 0D2TBL for 
I OCCUBS . . . DEPENDING 
ION variable 



Phase jtpvolved 

Phase 22 builds this table fron 

dictionary and 0D2TBL table. 
Phase 22 combines this 

table with 0D2TBL and 

QRTN tables to form QTAB table. 
Phase 25 uses this table with 

QRTN and OCCTBL to build 

the ODOTBL. 



QLTABL 

(TIB 1) Purpose 

Store qualified names in 
order of receipt. 



■I I 

1| 11 Variable 

H h 



11 



35100 I Name in EBCDIC( 
I I 

I I L. 






1 1 Variable 1 1 1 

I Last qualifier C?) 
name in EBCDIC | | 



Entry Frequency 
One table entry con- 
taining name currently 
being processed and its 
qualifiers. 

Phases Involved 

Phase 10 builds this table when 

a qualified EBCDIC name 

is inserted in the QNHTBL or 0D2TBL table. 
Phase 12 builds and uses 

when a qualified EBCDIC name is 

to be written in PC-text. 
Phase 11 builds and uses when a 

qualified EBCDIC name 

is to be written in PO-text. 



m) Count of bytes in preceding field. 



ONBTBL 
(TIB 2) 



Purpose 

Store BCD nane^ for 
REPORT, LABEL RECORD, 
ACTUAL KEY, NOMINAL KEY, 
RECORD KEY, and APPLY 
CORE-INDEX clauses from 
Data and Environment 
Divisions until Data 
IC-text is written. 

Entry Frequency 

One entry for each name 

of this type. 



I 2|1 1 Variable 

|_4_| 

|n|c|Last qualifier 
I I I name in EBCDIC 
I I I 





320 Section 5. Data Areas 



Licensed Haterial - Property of IBH 



Phases InvoJ-v^a 

Phase 10 builds this table 
from clauses in FD, SELECT, 
and APPLT statements. 

Phase 10 uses this table to 
write out Data IC-text. 



QBTN 
(TIB 21) 



Purpose 

Store GH numbers of 
Q-routines and 0D2TBL 
pointers for each OCCURS 
DEPENDING ON clause in 
a record. 

Entry Freauencv 
One entry for each 
record containing an 
OCCUBS DEPENDING ON 
clause. 

Phases Involved 

Phase 22 builds this 
table from GNCTP in 
COMMON and 0D2TBL table. 

Phase 22 combines this 
table with 0D2TBL and 
QITBL to form QVAR table. 

Phase 25 uses this table 
with QITBL and OCCTBL 
to build ODOTBL. 



|6N number I Number of fields 
I of first I to follow 
I Q-routine | 



i Displacement of 0D2TBL 
I entry for first 
i Q-routine 




QSBL 
(TIB 1) 



purpose 

Hold information 
on secondary base 
locators (SBLs) . 

Entry Frequency 

One entry for each INCSA 

verb generated. 



I First SBL number I —^ 
I associated with | M^ 
I an INCRA verb | 



Phases Jj^volyr^d. 
Phase 22 builds as it 

generates INCRA verbs 

for 0-routines. 
Phase 30 uses table to 

generate for each INCRA 

verb a Pi-text literal 

the value of which equals 

the number of SBLs 

associated with the verb. 

^l) Last entry is followed by a byte of zeros. 



OTBL 
(TIB 3) 



Purpose 

Store 6N numbers for 
O-routines during Data 
A -text processing. 

Entry Frequency 
One entry for each 
Q-routine definition 
in Data A-text. 



|6N number 
I of Q-routine I 
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Phases Involved 

Phase 60 or, when OPT is 

specified, phase 64 nakes an 
entry when it finds a 
Q-routine identification 
element in Data A-text. 

Phase 60 or phase 64 uses 
this table to initialize 
Q-routines when 
generating INIT3 code 
for object module. 



QVAS 
(TIB 24) 



Purpose 

store Q-routine GN 
numbers connected with 
items containing OCCURS 
DEPENDING ON clauses. 

Entry Frequency 

One entry for each item. 



(Pointer to dictionary |6N number for 
1 entry for object of j Q-routine for 
fOCCORS DEPENDING ON | first item 
I for first item Q | 



I 1 
H 



® 



Phases Involved 

Phase 22 builds this table 
from QRTN, QITBL, and 
0D2TBL tables. 

Phase 30 adds Q-routine 
GN numbers to dictionary 
attributes of items that 
are objects of OCCURS 
DEPENDING ON clauses. 



© 




Contents 

Zeros 

Dictionary section number 

Displacement in section 



^2) Last entry is followed by a byte of zeros, 



HCDTBL 
(TIB 11) 



Purpose 

Store each level-01 

record-name in PD Section 

until input/output verb 

processing. 

Entry Frequency 
One entry for each 
01-level entry in FD 
section. 



II 



Variable j 



I Displacement of |c| Record -name | 
I entry for file I I in | 
I in PNTBL I (EBCDIC | 
I I I I 



Phases Involved 

Phase 10 builds this table from 

01-level statements. 
Phase 11 uses this table 

in processing input/output 

statements. 
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RDFSTK 
(TIB 11) 



Pa ppose 

Store InforDation 
about subject and 
object of 
BEDBFIMES clauses 

gptry Ffequ^pcy 
One entry for each 
BEDEFINES clause. 



i Level nuBber icon tents of address j Displacement (d) (Length ofj^^^^ 
I of BEDEPIHES I parameter field |of i d It, right-) REDEFINES |fl) 
(subject I (i d k) (justified (object ( 



Ptiapes Involved 
Phase 22 builds from 

dictionary. 
Phase 22 uses this table 
to assign address 
parameter to items 
after BEDEFINES clause. 



^n First entry is a dummy, 



BENAHTB 
(TIB 3) 



Store information for 
associating a renamed 
item with all of its 
renaming items if SYHDNP 
if specified. 



I Dictionary pointer (Dictionary pointer I 
I for renamed item (for renaming item 



Entry Frequency 

One entry for each BENAHES item. 

Phases Involved 

Phase 22 builds this table 

vhile processing BENAHES 

clauses . 
Phase 25 uses this table 

to associate renamed items 

with renaming items. 



BEPTAB 

(TIB 29) Purpose 

Store COPY. .. 
BEPLACING data-names 
to be used during a 
READ from library. 



I I — r 

1 (Variable (1( 



Variable 



+ 



-I-+ 



c(Word being (c( Replacing word^ 
(replaced j j literal r or 
( ( (identifier 



■^ 



Entry Frequency 
One entry for each pair 
specified in the BEPLACING 
clause of the COPY 
statement currently 
being executed. 

Phases Involved 

Phase 01 builds this 

table from COPY. . .REPLACING 
clause in source program. 

Phase 01 uses this 

table to replace data- 
nanes while source 
statements are being 
read from a library. 

(^ Last entry followed by a byte of zeros. 
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BLDTBL (Phase 60) 



© 



Purpose 

Store information 
on items to be 
inserted in the 
data area or a 
Global Table in the 
object module. 




+ 



Target (Priority (Value | 

address! (0, if no jof j 

I segmenta- 1 ADCON j 

I tion) I I 

I I J 



Entry Frequency 
One entry for each PH 
definition, VN definition, 
and ADCON in Data A-text. 



© 



© 



Phases Involved 

Phase 60 builds this table 

during Data A-text processing. 
Phases 60 uses this table to 

punch BLD and text 

cards for object module. 

There is no TIB for this table. Phase 60 uses the phase 00 
routine GBTALL to get space, but moves data in and out of 
the table by itself. When it receives control back from 
phase 00, phase 60 stores the first address in the table 
space in location ARLDTB and the length in bytes in 
location RLDSIZ. During processing, it uses location 
SLDINDEX as a counter of the bytes used so far. 

Code Meaning 

Sa Data-A text RLD 

94 GN or PN information to be used to match VN definitions 

A4 YM definitions 

CH VCONTBL ADDR INITI ADDR 



RLDTBL (Phases 63 and 64) 

(TIB 28) Purpose 1 

Store information on | 1 
items to be inserted in \ - 
the data area or a Global jcode 
Table in the object 
module. 



Entry Frequency 

One entry for each PN 

and GN definition 

VN definition, and each 

address constant in 

Data A-text. 



(Target (Priority (Value of 
( defining ( address ( (0, if no (ADCON 
(item (l)( (segmentation) ( 



© 



Code 
10 
84 
94 
A4 
C4 



Phases Involved 
Phases 63 and 64 build 
this table during 
Procedure A-text and 
Data A-text processing. 
Phase 64 uses this table 
to punch RLD and text 
cards for the object module 
and VN EQUATE GN addresses. 

Meaning 

RPT-ORIGIN GN 
DTF address 
PN definition 
VN definition 
INITI address 
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RNHTBL (Phase 22) 

(TIB 12) Pv>ppog^ 

Store Infornation 
on objects of 
RBDE7INES clauses. 

Eptry frequ^pcy 
One entry for each 
REDEFINES clause. 



1 


1 — 








1 


1 1 
1 


1 
— 1— 


3 


1 
1— 


1 


1 
1 



i Level nuBber {Pointer to j Dictionary I 
I of REDEFINES {dictionary I Binor codej 
{subject (entry for (for object ( 
( (REDEFINES ( ( 

{ (object { ( 



Phases Involved 

Phase 22 builds this table 
froB dictionary. 

Phase 22 uses this table 
to check whether the 
REDEFINES clause is valid. 



RNHTBL (Report Writer) 

(TIB 12) ?\trP9gg 

Store data-naaes 
of report groups, 



1 1 

( 32 

1 1 


1 '1 
2 { 

1 1- 


, 

1 
1 


2 

1 


1 1 
i-j 



Entry Frequency 

One for each 

report group 

that has a data-naBe and 

is not a detail report group. 



(Data-naae (6N nuBberl NQP code (Displaceaent of entry (2^ 
(for report (for this (00 = NOP PLUS (in RWRTBL for report- ( ( 
(group in (report- (01 « NOP ZEROJnaae associated vith ( ( 
(EBCDIC 1 (group { (this data-naae ( ( 
■ ' I i I — I 



© 



Phases Involved 

Phase 12 builds this table froa 

scan of report groups. 
Phase 11 uses this table to 

generate coding in response to USE 

BEFORE REPORTING stateaents. 

Mj Left- justified, padded with binary zeros in low-order bytes. 
^^ Code for unique report group naaes 

Co^e Me^ipj-nq 

00 This entry was Bade as the result of a unique report group naae. 

01 This entry is a non-unique report group naae that aust be qualified. 

(3) First entry is a duamy. 



ROLTBL 
(TIB 15) 



PUrPQIse 

Store the SUN clause 
data-naaes and operand- 
names that are needed to 
create ROL-ROUT and 
RST-ROUT routines. 



(2( 
»— I- 



Entrv Frequency 
One entry for each 
rolled forward. 



sum 



iaJ Unused 

CD 

I ( 

( ( 

( ( 

( { 

( { 
i I 



sun 
level 



Unused (Displacement (Displacement of sub naae 
(of SUH naae (in SNHTBL or nnnn portion 
(entry in (of S.nnnn. This is the 
{SNHTBL. This(iteB into which the 
(is the itea (suaaing takes place 
(to be rolled ( 
(forward ( (2) 



Phases Involved 

Phase 12 DOROL routine 
builds this table. 

Phase 12 6NSPRT routine 
uses this table to 
create ROL-BODT and 
RST-ROUT routines. 




Contains zeros { 
to indicate ( 
end of entry ( 
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(1) Contains zeros if last entry in table. 

(2) Bytes Contents 
^-^ FF 

1 00 
2>3 Displacement 



BODTBL 

(TIB 16) Purpose 

Store 6Ns for 
routines in each 
Report Writer 
generated subprogram. 

Entry Frequency 
One entry for 
each report 
in Report 
Section. 

Phases Involved 

Phase 12 builds and uses 

this table. 
Phase 11 uses this table 

in Report Writer verb 

processing 



RWRTBL 
(TIB 13) Purpose 

Store information on a 
report-name. 

Entry Frequency 
One entry for each 
report-name. 



Phases Involved 

Phases 10 and 12 build 
this table from scan 
of FD and RD entries. 

Phases 12 and 11 use 
this table fluring scan 
of Report Writer verbs, 



GN number 

for 

RPH-ROOT 



6N number 

for 

LST-RODT 



6M number 

for 

ROL-RODT 



6N number 

for 

CHF-ROUT 



6N number 

for 

ALS-aOOT 



6N number IGN number |6N number IGN number! 
for jfor I for jfor j 
HPF-ROUT IP6H-R0DT |P6F-R0UT | IST-ROUT | 



6N number I GN number |6N number |GK number | 
for jfor jfor jfor I 
WRT-ROOT IWRT-1 |WRT-2 |CTB-HOUT | 



GN number JGN number! Unused JDnused 
for !for | | 

RST-ROUT IRST-1 | | 
1 1 I 



I 



1 1 1 

GN number !GN number !6N number |6N number 
for jfor PH-1 jfor jfor 
CFF-RODT ! !LAST ! INT-ROUT 

! !ROIL I 
1 I ■ ... I I 



GN number !GN number !6N number! 
for jfor jfor | 
BLS-ROUT ISAV-ROOT !RET-BOnT | 

1 I.. I . . . I 



30 



1 1 1 

Report-name I -nnnn portion ! Pointer to |Size in 
in EBCDIC jof record-name jfile-name-l j binary 

jfor file-name-1 lentry in jof larger | 
1") I IFNTBL ! record 
—I 1 I 



© 



-nnnn portion of! Pointer to entry ! Displacement inj 
record-name far jfor file-najne-2 JROUTBL of entry j 
file-name-2 Cz) !in FNTBL (2) |for this report! 
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(l) Left- justified, padded with binary zeros in lov-order bytes, 
^2) Contains zeros if report is to be written on only one file. 



SATBL 
(TIB 5) 



SDSB&TBL 
(TIB 5) 



SE6INDX 
(TIB 16) 



+ 



invariable 



I Count of (Card |c| File-name 
I number of I Number! jin EBCDIC 
I files in I It 
j clause I I I 



Store file-names 
associated vith SAHB &BEA 
clauses until all SAHB 
ABBA clauses have been 
processed . 

Entry Frequency 

One entry for each file 

in a SANE ABBA clause. 

Phases Involved 
Phase 10 builds this 
table from SAME ABBA 
clauses in source pro- 
gram. 
Phase 10 uses this table 
to check SAME ABBA 
clause syntax. 



Purpose 

Determine the size of the 
SAME BECOBE ABEA and the 
record boundary within (SAME BECOBDjBL | Number | Maximum 
the area for SOBI records. j ABEA number | number j of BLs | record 

I I I Isize 

yp^ry Frequency I 1 « • 

One entry for every SD 
sharing SAME BECOBD ABEA 
with an FD. 

Pfrase Tl^volv?4 

Phase 21 SOBTPBOC routine 

builds this table. SB A 

routine uses the table 

to build the SSAHAX 

table and also to generate 

SAME BECOBD ABEAs. 




I- 



Purpose 

Store information about 

program fragments if 

STMDMP or STATE is 

specified. 

g^tyy yrequ^pcy 
One entry for each 
program fragment. 



Priority I Address of this {Table-locator fori Table-locator for 
{fragment rela- |PBOCT%B entry forjPBOCTAB entry for 
jtive to the | first card/verb |last card/verb in 
I beginning of jin thj^ fragment j this fragment 
I the segment | M) | (T) 



P^iasejB Ipvolved 

Phase 65 builds this table 

while reading STS002 

and building the PBOCTAB table. 

COBOL library subroutines 

use this table. 
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(l) Por the STMDMP option, the field contents are: 

BjLts Content s 

0-14 Relative block number in PBOCTAB 

15-23 Displacement within block 

For the STATE option, the field contents are: 

Bits Contents 

0-23 Displacement from the beginning of the 
PBOCTAB entries in the object module 



© 



SE6TBL 

(TIB 15) Purpose 

store disk address of 
sections of Procedure 
A -text. 

Entry Frequency 
One entry for each 
segment control break. 



Phases Involved 

Phase 51 creates an entry 
when it finds a 
segment control break. 
Gets priority from 
PHODT + 1 in phase 51, 
and device address from 
cell SE6SAV in phase 00. 

Phase 60 or, when OPT is 

specified, phases 62 and 63 
use this table to 
combine sections into 
a segment. 



Priority 
number 



Device address 






Bvte Contents 

0-1 Relative track number 

2 Block number on track 

3 Record identification 



SBTTBL 
(TIB 21) 



I Pi-text 
{element | 
I for operandi 
J I 



Purpose , , , 

Build SET strings for the | 1 t Variable | 

SET statement after | 1 1 

processing the final | c | Pi-text | 

operand of the statement; | 

or determine whether the I 

ON SIZE ERROR option is >- 

present before building 

strings for ADD and 

SUBTRACT statements with 

multiple receiving fields. 

Entry Frequency 

One entry for each operand 

before the TO, OP BY, or 

DOHM BT options of the 

SET statement; or one entry 

for each operand between 

either the first receiving field 

and ON SIZE ERROR or the next 

verb after the ADD (or SUBTRACT) 

statement. The table is cleared 

at the end of processing 

for each verb. 
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Pfrftseg 3;BV<;>a.v^a 

Phase to builds this table to 
store operands before the TO, 
OP BY, and DOfiN BT options of the 
SET statement. 

Phase 40 also uses this table to 

store the operands after the receiving 
field and before either the ON 
SIZE ERROR option or the verb 
following the ADD (or SUBTRACT) verb. 

Phase 40 uses the table to build 
SET strings after processing the 
operand following the TO, UP BY, 
and DOWN BY key words of the SET 
statement. 

Phase 40 uses the table to determine 
whether the ON SIZE ERROR option 
is present before issuing the 
string for the receiving fields 
after the first in an ADD or 
SUBTRACT statement. 



SHSTBL 
(TIB 28) 



?SgP9se 

Store SDH clause operand- 
names for correlation of 
sun and SOURCE clauses. 

Entry Frequency 

One for each operand-name 

in a sun clause. 



2 I 
h 



|SUM clause 
I operand-name 
fin EBCDIC 



© 



Phases Involved 

Phase 12 builds this table 

from SUM clauses. 
Phase 12 uses this table 

with SRCTBL and SUHTBL tables 

to generate a USH-ROOT routine 

for each detail report 

group and to build the 

ROLTBL table. 



(j) Pirst entry is a dummy. 



SNHTBL 
(TIB 35) 



PuyppSQ 

Store all data-names of 

SUH clauses. 

TJT^^FY Pyequepci 

One entry for each SUH 

clause . 



32 



I Data-name (Unused 
(for sum,.^! 
I bucket (y I 



© 



Phases Involved 

Phase 12 builds this table 
from sun clause. 

Phase 12 uses this table 
to correlate SOURCE and 
SUN clauses, build 
ROLTBL table, and generate 
USH-ROUT routines. 

^N Left- justified, padded with binary 
zeros in low-order bytes. 

^) First entry is a dummy. 
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SPHTBL 
(TIB 21) 



Purpose 

Store function-name 
information from 
SPECIAL-VAHES paragraph 
In Bnvironnent DItIsIod. 



I 3 MITariable | 

l__4H 1 

I (1J I c I Hnemonic-name | 

II I in EBCDIC I 



Entry Frequency 
One entry for each 
function-name implementor. 

Phases Ulnvolved 

Phases 10 builds this table 

from SPECIAL-NAMES 

paragraph . 
Phases 11 and 12 uses this table 

to substitute function - 

name for mnemonic-name 

in Procedure Diyision. 



Q) Three possible configurations are: 





?Yt:e 


Byte 1 


a. 


1 -character 
literal in 
EBCDIC 


Unused 


b. 


54 


Code f 



c. 55 



pyte , 2 
Unused 



Code for device used (see COBOL word Unused 

list under PC-text in "Section 5. 

Data Areas'*) . 
COBOL vord code for carriage control Unused 

word (see special name element 

under PO-text in "Section 5. Data Areas") . 



SRAMAX 

(TIB 10) 



Purpose 

Determine the size of 
the SAME RECORD AREA and 
the record boundary 
within the area. 

One entry for every 
SAME RECORD AREA number. 



[SAME RECORD I Maximum BL (Maximum 
I AREA number (adjustment (record size! 
(factor ( 

I I 



SRATBL 
(TIB 6) 



Phase Involved 

Phase 21 builds this table 
on entry to routine SRA 
using the SRATBL, BLTABL, 
and SDSRATBL. Routine 
SRA uses this table to 
generate SANE RECORD AREAs. 



(Phase 10) 
Purpose 

Store file-names 
associated with SAME 
RECORD AREA clauses 
until all SAME clauses 
have been processed. 



I 1 II • 

( 1 ( 2 I 1 (Variable 

I ( 1 ( 

(Count of number (Card ( (Pile-name 
(of files in ( number ( c (in EBCDIC 

(clause i ( ( 




Entyy fiegx^ertcy 

One entry for each 

SANE RECORD AREA clause. 
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Phases InyoiLved 

Phase 10 builds this table 

frOB SANE RECORD AREA 

clauses in source prograa. 
Phase 10 uses this table 

to checlc SAME RECORD 

AREA clause syntax. 



SRAT6L (Phase 21) 
(TIB 9) Purpose 



store address of buffers 
for files with SAME 
RECORD AREA clauses. 

Ep^yy yyeq^gpcY 
One entry for each file 
named in a SAME RECORD 
AREA clause. 



1 



IDTF I SAME RECORD I Size of |BL | 
I number I AREA number | area j number j 

I I I . ,1 ■ t 



Phase 21 builds by extracting 

files entered in the BUETAB table 
with a SAME RECORD AREA clause. 

Phase 21 uses for buffer generation. 



SRCHKT 
(TIB 31) 



Purpo|se 

Save names of keys cited 
in KET clause for group 
item until group item is 
processed . 

Entry Prequencv 
One entry for each key 
named in KET clause in 
current group item. 

Phase 22 builds this table 
from group items in 
Data IC-text. 

Phase 22 uses this table 
to make sure keys named 
are defined in group. 
If not, sets error bit 
in INDKEY table for 
Phase 30 reference. 



11 I 
|1|7ariable 



101 = ASCENDIMG |c|Rame of 

102 s DESCENDING I |key in 
I I I EBCDIC 
■ ' I 



SRCTBL 

(TIB 22) Purpose 

Store SOURCE clause 
operand names to corre- 
late SODBCB and SOM 
clauses . 

Entry Preanencv 
One for each SOURCE 
clause in each detail 
report group. 

Phases Inyolyed 

Phase 12 builds this table 

while scanning detail 

report groups. 



I Length of | Displacement 
I variable |into DETTBL 
I field I table of detail 
I {report group 
I I data -name 



Variable 



I SOURCE operand with 
tall qualifiers r indexes, 
land subscripts, if any, 
I in PO-text format. 
I 
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SSATBL 
(TIB?) 



Phase 12 uses this table 
in conjunction with SHSTBL 
and SUMTBL tables to generate a 
USH-ROOT routine for each detail 
report group. 



Purpose 

store file-names 
associated with 
SANE SORT AREA 
clauses until all 
SANE clauses have 
been processed. 

Entry Frequency 
One entry for each 
SAME SORT AREA clause. 



I 1 (Variable 
-I 1 



I Count of I Card | IPile-nane 

I number of j number j c iin EBCDIC 

I files in I | | 

I clause i i t 




SSCIN 
(TIB 5) 



SSCOUT 
(TIB 11) 



Phases Involved 
Phase 10 builds from 

SAME SORT AREA Clauses 
in the source program. 
Phase 10 uses to check 

SAME SORT AREA clause syntax. 



Purpose 

Save all subscript 
strings preceding an 
UNSTRING verb string. 

Entry Frequency 
One entry for each 
subscripted data-name 
in an UNSTRING 
statement 

Phases Involved 
Phase 45 builds and 
uses this table. 



Purpose 

Store subscript strings 
in the order in which 
they are to be written 
as P2-text. (T) 

Entry Frequency 
The table is divided 
into sections which 
contain the subscript 
strings for any 
subscripted data items 
that are referred to 
by the text in the 
corresponding section 
of the TXTOUT table. 



8439 (hex) followed 
by count of elements 
that follow 



Variable < Variable 

I 
Data-name I Data -name reference (30) 
reference (30) I or alphanumeric literal 
element I (34) element for first 

I subscript string 




Variable 

Subscripted data- 
name reference (31) 
element with sub- 
script string ID 
number in place of 
idk field 



3 I Variable 

I 
I 8439 (hex) followed | Data-name 
I by count of elements j reference ( 
j that follow I element 



Variable 

I 

I Data-name reference (30) 

30) I or alphanumeric literal 

. (34) element for first 

I subscript string 




Variable 

Subscripted data- I 

name reference (31) | 

element with | 

subscript string ID | 

nximber in place of | 

idk field , 
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Phases Involved 
Phase 45 builds and 
uses this table with 
the TXTOUT table. 



SSDELIM 
(TIB 20) 



1 



I PFFF (hex) to I 

I indicate end of: 

subscript I 

I information 



^ If the corresponding data item 
in the TXTOUT table is not 
subscripted/ the entry consists 
of a half word containing hex 
• FFFF ' . 



Purpose 

Save delimiters from an 
UNSTRING statement that 
would have to be 
repeated . 

Entry Frequency 
One entry for each 
delimiter that is 
either subscripted or 
follows a variable-length 
group . 

Phases Involved 
Phase 45 builds and 
uses this table. 



! 2 ] 2 ] . 


mmm u 


I Pointer to 1 541D (hex)-| 5479 (hex) - 
1 entry in 1 code for code for 
SSCIN for "DELIMITED i "ALL" if 
1 subscript BY" specified 
1 string (if 1 1 
1 none contains 1 | 
. zeros) 1 1 


^S^^^^^^ Data-name 
■^^^S^HR information | 
■^QHHH| for UNSTRING 1 
^M^H|MB| (2A) element 



STRING 
(TIB 9) 



® 



i Variable 



IVerb 
i string 



Pqppos^ 

Store verb strings 

while they are being 

built for output as 

P2-text. 

gfl^yy FFequency 

One entry for each operand 

in current string. 



Phases Involved 

Phase 40 builds as strings 

are processed. 
Phase 40 uses this table to 

collect output before generating. 

This field contains the number of bytes in 
the preceding field. 



1 I 



0! 



SOHTBL 
(TIB 19) 



Purpose 

Store data-names and 
operand -names from SON 
clauses that are used to 
create routines DSM-ROOT, 
IHT-ROOT, RST-ROOT, and 
ROL-ROOT . 

Eptyy ypequ^^cy 

One for each SUN clause. 



I 2 I 



h 



+- 



I n |Onased|SOR {Generated card IReset 
l-^>. I I level I number for this | level 

\\l)\ I I son clause I 

till I 

I 1 1 1 I 
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P^as^p lnv9;^vea 
Phase 12 builds this 

table fron scan of 

SQH clauses. 
Phase 12 uses this table 

to build routines 

OSB-ROUT, IHT-ROUT» 
RST-ROOT, and ROL-ROOT. 



■ 

1 2 


• 






1 Displacement of entry 
|in DETTBL for detail 
Iname in SDN...OPOM 
1 clause 










1 1 f 1* 
1 1 


1 7 1 24 1 
1 1 • 




tCode for {Pointer to SON |B.-nane | PICTURE fort 
Inext field {name in SNHTBL { (REDEPIMES) (name in | 
1 -^ jor nnnn portion! in PO-text {EBCDIC | 
1 (2) |of S.-name jformatQ | | 










1 2 
1 


■■■ 


2 1 


IDisplaceaent of entry 
lin SHSTBL for first 
joperand-nane in SUM 
1 clause 

I- _ — 1 


Zeros 1 



m) Contains zeros if last entry in table. 

© 



© 



Code 
00 
10 

FP 

pyte 



1 

2 

3-6 



2 bytes contain displacenent into SNHTBL table 
Next 4 bytes contain nnnn portion of S.-nane 
Next field contains nnnn portion of S.-nase 

06 
B 

. (period) 
nnnn 



T6TADTBL 
(TIB 18) 



puppope 

Gather inforaation 
needed by phase 65 for 
processing the STMDHP, 
STATE f and FLON options, 



Entry Fpeguepcv 
Information entered 
depends on options in 
effect . 

Pl^ft^ep jRV9^yea 
Phase 60 builds this 

table. 
Phase 65 uses this 

table in processina 

STHDHP, STATE, 
and FLOW options. 



I Displacement of |ID nuiber of last 
{Debug table from (card written by 
(beginning of T6T{ phase 60 

I 1 , , . 



(Relative address (Relative address of 
{of byte following (O-routines, o r 5 -F 
{last byte of {none, INIT2 (2) 
{IHIT3 Q \ ^^ 



(Relative address of (Relative address 
(first instruction (of START (2) 
(in Declarative ( 
(Section (T\ (3\ { 
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I 

IDisplaceaent of 

I first DTP cell 

I from beginning 

I of TjST 

I 

I 



©© 



(^) If PLOW is in effect, phase 65 changes this 
▼alue to the relative address of the byte 
following the last byte allocated for the use 
the COBOL library subroutine for the PLOW 
option (ILBDPLWO) . 

(2) The field is not present if PLOW is the only 
option in effect. 

^) The field contains the relative address of 
START if there are no declaratives. 

Q) The field is allocated but not filled in if 
the STATE option is in effect. 



IDisplaceaent from 
(beginning of P6T 
I to virtual for 
ITLBDTBP3 (0 if 
I virtual not present) 



TXTOUT 

(TIB 19) Purpose 

Save UNSTRING verb 

strings. 

Entry Frequency 
One entry for each 
UNSTRING verb string. 
The table is organized 
in sections which 
contain all the strings, 
except subscript 
strings, for an UNSTRING 
statement . 



(^ The field is present only if 
the text string is for a data 
item which is the object of 
an OCCURS. . .DEPENDING ON 
clause. 



1 

8465 (hex) I 5496 

I followed I (hex) - 
by count j code 
of elements for 
that follow I "FIRST" 

I 



Variable 



Verb information (24) Text string element. 



element containing 
the sequence number 
of this string and 
the total number of 
strings 



for DELIMITER, 
RECEIVING FIELD, 
DELIMITER IN, COUNT 
IN, POINTER, or 
TALLYING 



I 54A1 
I (hex) 
I code 
I for 
"END" 



FFFF (hex - I 
to indicate | 
end of I 
string 1 



8484 
(hex) 

® 



Numeric literal 
(BB) element 
which contains 
the number of 
Q-routines 
needed (l) 



I GN reference (AA) 
I element which I 
I contains the GN I 
I number of the | 
! first Q-routine . 

i ® i 



I FFFF (hex) - 
to indicate (I) 
end of string ' 
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OPSTBL 

(TIB 25) Purpose 

Store OPSI-switch byte 
inforaation for phase 
22 use in dictionary 
processing. 

Entry yreguencv 

One entry for each OPS I 

na>e. 

Phases Involved 
Phase 10 builds from 
Special-nan es paragraph 
and Data Division. 
Phase 22 uses in diction- 
ary processing. 



I r 

12 I 
I h 



|n I Card nuaber 
I I of OPSI-x naae 
» « 



— T" 

11 



I 1- 



+ 



I lUPSl-x I Dictionary I 
1 06 1 naae in j attributes) 
I I EBCDIC I of OPSI-x I 

I I I L. 




Dictionary | 
attributes of j 
aneaonic-naae j 
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Purpose 

Store dictionary pointer 



0-3 



and PMs for Error or Label h 



«-13 



Declarative associated 
with the USING clause of 
SORT or MERGE verb until 
all file-nases in clause 
have been processed. 



+ 



I 14-15 I 
H \ 



I Dictionary I Pns for Error {Unused t 
{pointer for Label | j 
I i Declarative | | 
I i I I 



Entry Frequency 
One entry for each file-nane 
in SORT... USING clause. One 
entry for each file-nane in 
MERGE... USING clause. 

Phase Involved 

Phase 30 builds and uses 

this table during USING 

processing. 



YALGRP 
(TIB 6) 



© Cofis 
01 
PF 



Purpose 

Save Data A-text 
address constant 
definitions object for 
group items containing 
▼ALUE clauses. 

gpippY Frequ?T>CY 
One entry for each group 
item with a VALUE clause 
that is currently being 
processed . 

Phases Involved 

Phase 20 builds this table 

from Data IC-text LD 

entries. 
Phase 22 uses this table 

to generate Data 

A-text entries. 

Meaning 

Alphanumeric literal 
ALL or a figurative 
nonnumeric constant. 



i Variable I 



1X» 100028* I Target |Code| 
i address I 

! !® 



4- 



-\ 



Size of I Value of | 
constant I constant j 
in bytes j I 



VALTRU 
(TIB 33) 



Purpose 

Store literals for 
VALUE... THRU clause or 
VALUE clause in level 
88 group item. 

Entry Frequency 
One entry for each value 
in each VALUE clause of 
this type. 

Phases Involved 

Phase 20 builds from Data 
IC-text LD entries. 

Phase 30 uses to fill in 
PI -text literals with 
the actual values. 



1 I Variable 



■+■ 



I 1 {Variable 
H (- 



{1 { 
H — I 



{Pi-text literal { c (Pi-text literal {FF{ 
J) (element { (element j ( 

5! ® !®! la 
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Phase 22 uses for syntax- 
checking of the VALOE 
IS SERIES clause. 



Qj In the high-order bit: 

= value is not followed by THRO 

1 = value is followed by THRD 

(2) This portion of the entry follows 
the format of a PI -text element 
as follows: 



^) If the count field is all zeros, the entry 
is a dummy entry for a group item 
whose subsequent Level-88 items are 
in error and were ignored by phase 20. 



© 



Type Meaning 

32 Numeric literal 

33 Floating-point literal 
3(| Alphanumeric literal 
39 ALL constant 

Indicates the end of the entries 
for a VALUE clause. 



VARLTBL 
(TIB 15) 



Purpose 

store information about 

variable-length items 

needed for the DATATAB 

table if STHDMP is 

specified. 

Entry Frequency 
One entry for each 
variable-length item. 



Phases Involved 

Phase 22 builds this table 
using information in the 
GPLSTK table. 

Phase 25 uses this table 
while processing variable- 
length items for the 
DATATAB table. 



i Dictionary pointer for (Maximum size (including 
I variable-length items (slack bytes) in bytes 



VARTTB 

(TIB 10) Purpose 

Control GN numbers 
branched to in 
PERFORM... VARYING. 

Entry Frequency 
One entry for each 
PERFORM... VARYING. 



I 



I 1 1 1 

(GN number (VN number (GN number (GN number 
(for condition (for varied (for PL0S6N(for MOVEGN 
(branch (branches ( ( 
I I — _ — ~ i_ I 



Phases Involved 

Phase 40 builds this table from 

PERFORM... VARYING 

strings in Pi-text. 
Phase to uses this table 

to issue P2-text strings 

with correct branches 

for different steps. 
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VERBDEF 
(TIB lU) 



Purpose r — t t — t t — i 

Store information about 1 1 1 1 1 ! 1 1 1 I 

the occurrences of COBOL |- — + i — 4 + — ^ 

verbs. | 48 | Number of JEOJ Alphabetic verb | 00 j 

I I occurrences I (sequence number | | 

Entry Frequency •■ — -l •*• — J- -»• — J 

One entry for each COBOL 

verb used. r t — t 1 

|1 |1 I Variable j 

Phases Involved {■ + — + ■ 4 

Phase 11 builds this table} Length |FB| Verb-text j 

when VERBREF or «■ -»■ — -•• J 

VERBSUM is specified. 
Phase 22 uses this table 

to generate verb DEF-text. 
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▼ISPTB 
(TIB 13) 



® 



Code 
00 
OP 
FO 
?F 



P^ypoge 

Store pointers to CVIRTB 
during virtual 
optimization . 

Entry Frequency 
One entry for each 
virtual definition 
element. 



I 1 

I Displacement from start of | 
tPGT in the object module to | 
I virtual I 



Phases Involved 

Phase 60 or, vhen OPT 
is specified, phase 62 
builds this table vhen it 
builds table CVIRTB. 

Phase 60 or, vhen OPT is 
specified, phase 64 uses 
this table vith table CVIRTB 
to eliminate duplicate 
virtuals. After P6T 
allocation, each entry 
points to entry in PGT 
virtual field. 



VRPNTBL 

(TIB 29) Purpose 

Establish addressability 
at PN definition 
location . 



I Type (T)tPN or 6M number |VM number! 



Entry Fyeguencv 

One entry for each 

VN EQU PN or VN EQO 6N 

element encountered during 

Optimization A-text 

processing. 

Phases Involved 

Phases 62 builds this table 
during Optimization A-text 
processing. 

Phase 62 uses this table 
to update the ACCOMCTR 
counter by 4 for each load 
instruction to be generated 
by phase 63 for each PM or 
GN associated with 
an ALTER statement. 

Phase 63 creates, for 

every entry in this table, 
BLD entries for the VHI 
cells in the PGT. The 
phase generates a load 
instruction of the 
current Procedure Block 
into register 11 
at the point of definition 
of the PN or GN associated 
with an ALTER statement. 

peapiflfl 
PN, ALTER 
PN, PERFORM 
GN, ALTER 
GN, PERFORM 



(code values are in hexadecimal) 



Table Formats 337 



Licensed Material - Property of IBM 



VNPTY 
(TIB 17) 



Purpose 

Store TN numbers and 

associated priority 

numbers to later compute 

the position of VNI 

cells in the object 

module. 



I Priority I VN 
I number j number I 
I 



▼HTBL 
(TIB 11) 



Entry yreauency 

One entry for each VN 

number . 

Phases involved 
Phase 60 or, when OPT 
is specified, phase 62 
builds from VN 
DEP-text elements in 
Optimization A-text. 
Phase 60 or, when OPT 
is specified, phases 63 
and 64 sort entries 
by priority numbers 
and uses the resulting 
order to compute the 
position of VNI cells 
in the object module. 



Purpose 

Store information on 
procedure-names that 
have been altered by an 
ALTER STATEMENT or are 
ends-of-ranges of 
PERFORM statements. 

Eptry Frequency 
One entry for each 
procedure-name . 



Phases Involved 

Phase 40 builds this table from 

Pi-text PNs and VNCTR 

in COMMON. 
Phase 40 uses this table 

to modify addresses 

and set up return VNs. 



PN number I VN number | 
I corresponding j 
|to PN I 

I I 



VRBDN 
(TIB 07) 



Purpose 

Describes each procedure 
name encountered by the 
phase in the Pl-text for 
a specific verb for 
debugging . 



1 


3 


2 


Switch 

® 


Dictionary 
pointer 


Displacement 
in DBGTXT 
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Phases Involved 

Phase 35 builds this 
table and uses it to 
describe each k- 



procedure name I Displacement 
encountered by the I in PITEXT 

phase in the Pl-text ' ' 

for a specific verb 
which may be 
considered for 
debugging. 
Phase 35 deletes this 
table upon completion 
of processing. 

Bit Meaning 

Valid entry . 

1 Procedure name in DTAB table. 

2 Generate procedure name debug 

text if statistics is on 
and duplicates is off. 

3 Generate debug text twice. 

4 Procedure name may change. 

5 Duplicate procedure name. 

6 Procedure name in DTAB, 

subscripted. 



XATAL 
(TIB 2) Purpose 



Optimize use of | 2 | 

arithaetic tenporary | 1 

storage by object aodule. JID number of 8-byte | 

I slot available in j 

Entry Frequency j temporary storage j 

One entry for each ' ■■ ' 

8 -byte slot. 

Phases Involved 

Phase 50 makes an entry 

for each slot as it is 

released . 
Phase 50 uses this table 
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to obtain teaporary 
storage that has been 
used and released In the 
object module. 



XIMTR 
(TIB 1) 



© Bit 



Purpose 

Store and analyze 
internediate results in 
complle-time arithnetlc. 

pi^tgy yreque^cY 
One entry for each 
internediate result. 



16 



I 1 1 1 

IComplle-tiae jLength after {Length afterl 
lvalue in j scaling in | scaling in j 
[internal decinalj internal declDalj binary j 

■ « ii ,. ■ , , ■ —I 



Pl eases Involved | 

Phase 50 builds this table h 



from ID number of inter- INuaber of IMumber of 



I Length 



aediate result passed 
from phase 40 and its 
own analysis of 
operands in arlthaetic 
statements. 
Phase 50 uses this table 
to process compile-tine 
arithmetic verbs. 



{digits after Ideciaal places | occupied 
I scaling {after scaling jin 
I I I temporary 

I I I storage 

I I . ... J 



{Relative 
I pointer in 
I teaporary 
{storage 
I 



I Register | Characteristics { Interaediate 
jnuaber (of operand m) (result 
i I jnuaber 



P^apjpq, if op 

Register used in double-precision 

Bode 
Overflow could occur 
Double-precision floating-point 
Operand is in register 
Operand is a literal 
Operand is floating-point 
Operand is generated constant 
Operand is literal ZERO 



XSCRPT 
(TIB 3) 



Purpose 

Store subscript and index 
Inforaation for optimi- 
zation. 

Entry Frequency 
One entry for each sub- 
scripted or indexed item. 



I 2 I 



I h 



-1 — r 
HI 
-h-l- 



+ 



(n't-2|Hufflber of | (New addressing (Dictionary pointer 
( (subscripts (OJparaneter of (to unique identi- 
( (or indexes} (subscripted orjfier of snb- 
( ( j (indexed item^ ( scriptedltem 

! ! U ©! © 
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© 



Bit 
0-3 



Phases Involved 

Phase 50 builds this table 

from subscript verb 

string passed by 

phase 40. 
Phase 50 uses this table 

to calculate address of 

subscripted or Indexed 

Item, or to generate 

object code for the 

calculation . 

Me^pj.ffq 

3 = byte 2 contains number of 

register vhlch at object time 

contains nev address. 
6 = bytes 2 and 3 contain the 

number of a SOBSCRIPT CELL which 

at object time contains the 

nev address. 




If bits 0-3 contain any other value, then the 
configuration is as follows: 



© 



Bi^p 


Field 


Meanipq 


0-3 


1 


Type of BL containing base 
address of area: 

OOOObBL 

0001=BLL 

0100-SBL 


«-15 


d 


Displacement from base address 


16-23 


k 


DL number 


Pits 


Coptgpts 



0-9 Zeros 
10-22 Dictionary section number 
23-31 Displacement in section 



S) Sit 

1-7 


pean^nq, ±f op 

Literal 

Onused 


J) B^ts 
0- 1 
2-14 

15-23 


Contents 

Zeros 

Dictionary section 

number 
Displacement in 

section 


XSSMT 
(TIB 4) 


Purpose 

Store pointers to 
XSCRPT table during 
calculation of sub- 
scripted or Indexed 
addresses. 



Entry yreauencv 

One entry for each entry 

in XSCRPT table. 



tID number | Displacement in XSCRPT 
I of subscript I table of new address 
jor index {parameter of subscripted 
j computation jor Indexed item 



Phases Involved 

Phase 50 builds this table while 

building XSCRPT table. 
Phase 50 uses this table 

to locate entries in 

XSCRPT table. 
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TEXT FORMATS 



This chapter contains diagrams of the 
formats of the texts used by the compiler. 
The diagrams are arranged in the following 
order: 

1. Data Translation Texts: Data IC-, 
ATF-, and Data A-texts. 

2. Procedure Translation Texts: P0-, 
P1-, P2-, Procedure A-, Optimization 
A-, and Procedure Al-texts. 

3. E-text. 

a, XRBF-text. 

5. Debug-text. 

With some exceptions r one ic-text 
element represents one source element. 
(IC-text here refers to Data IC-, ATF-, 
P0-» Pl-r or P2-text; a source element is a 
COBOL reserved word, a punctuation symbol, 
an arithmetic operator, a relational 
symbol, an EBCDIC name, or a literal.) The 
major exception is that one IC-text element 
represents a complete data item 
description, other exceptions are: the 
word DIVISION is suppressed in division 
headers, the word SECTION is suppressed in 
section headers, and standard 
paragraph -names are omitted. 

All internal text elements begin with an 
identifier byte. In IC-text and A-text the 
first two bits of this byte contain a code 
with the following significance: 



Code q^a^pJBq 
01 1 byte follows 

10 2 bytes follow 

11 3 bytes follow 

00 The byte immediately following 
this gives the; number of 
bytes that follow it. 



The following notes apply to the format 
diagrams in this chapter: 



• The top row of figures shows the byte 
number for each field except where the 
preceding fields include a 
variable-^length field. 

• Broken lines indicate fields that are 
present only if the condition they 
satisfy is present. 

• c =^ Number of bytes in the following 

field. 

• n - Total number of bytes to follow in 

the text element. 

• lb = Length of field is one byte. 

• Individual notes, applying to 
particular fields, are numbered 
consecutively with the numbers 
encircled. 

• Double sets of characters in bytes 
and 1 represent hexadecimal numbers. 



DATA IC-TEXT 



LD ELEMENT 



0|1|2 



03|n|Level 
I i Indicator 

! ! © 



3-U 



Compiler-generated 
source card nusber 



Switch 
byte 



© 



1 7-8 

-\ 



Switch I OCCURS DEPENDING 

byte I ON ■aximum 
_^ I occurrences 

© ! 



no 
-J — 



Switch {Number of 
bytes I indexes 

I following 

® I 



|12|yarlable | 1b | Variable | lb IVariablel lb fVariable (Variable 



111 



H 1- 



^ 1- 



H 1- 



-I — f. 



+ 



I Number of|c |Name of |c | PICTURE |c (Encoded |c (REDEFINES (OCCURS DEPENDING ON 

(keys ( (data Itemj ( (actual) j (VALUE ( ( data-name j pointer 

(following( ( ( ( ((^^11 I _. 

( ( ( ( ( ((©II I (J) 
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Wpt^: 



A series of logical records can follow the LD element, 
ordered as follows: 



The types of records are 



Value for 

condltion-nane 

with multiple values 



lib 

I 



I lb I Variable I 
^ 1 1 



I Switch I c I Encoded | 
I byte I I VALUE | 



L® 



t I 
I I 



Indexes (first) 

or 

Keys (second) 



lib 
I 



I lb I Variable 
H 1 



I Flag I c I Index-name I 

II I in EBCDIC I 
I® I I I 



RENAMES 
or 

THRO 

name 



I 1 1 1 

Mb I lb I Variable | 

I 1 1 , 

I ID |c I Name in | 
I code I I EBCDIC I 

I -. I I I 

I© I I I 



® 



Bits 
0-2 

3 

4 



5-7 



Cppt^pts (b) 

Zeros 
1 

" Either value is upper limit 
of THRU range, or THRU was 
not specified. 
Value is lower limit of 
range; upper limit name 
follows. ^,^ 

Vaj.ue Meaning (£/ 

Alphanumeric literal 
Numeric literal 
Floating-point literal 
Figurative constant or ALL 
Figurative constant ZERO 



1 = 



001 
010 

oil 

100 
101 



Bits Meaning 

0-3 Zeros 

4 Unused 

5 1 = INDEXED BY 

6 1 = DESCENDING KEY 

7 1 = ASCENDING KEY 



ID 

Code Meaning 

22 This name guallfles the name that 
follows. 

23 This is either a name without 
qualifiers or it is the last 
(qualified) name in a string. 
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~oW 



— I 

03|n 

b 



Level 
indicator 
36 (hex) 



13 l*-5 



16-7 



|8-9 

+ 



^^ICompiler-generatedlMininun RECORD inaxiaun RECORD! 
r^lsource card number | CONTAINS value | CONTAINS value) 

It I I I 

I I I 1 • 



|10|11 112 
1— 1 1 


13|1«»-U3 1 
t 1 


(?)is&HE RECORD! Device 
! lAREA number! code 
II 1 x->- 

II 1 d^ 

II 1 
II 1 

l_JL. 1 1 


c I Sort-name | 

tin EBCDIC, 1 

jlow order | 

1 unused bytes j 

1 padded vith I 

1 blanks | 
• i 



RD ELEMENT 
-1 — I 



10 1112 

-HH 

|03tn|Level 
I I indicator 
I 134 (hex) 



|3-«» 



I 5 ! Variable 



|1b| 
H 1 



I Compiler- !c| User-assigned 100! 
j generated source! ! EBCDIC report- | | 
jcard number ! jname j j 



FD ELEMENT 



— I — I — 
01112 



|03Jn|Level 

I I indicator | 
! 138 (hex) 



I I 



!3-«» 



ICompiler- 
I generated 
jcard number 
I 



113 

4- 



!1U 



115 
+ 



116 
+ 



! 17-18 



1 

5-11112 

1 . . 

©ISYS I Switch I Switch I VSAM {Buffer {Displacement 

{number I byte {byte j flags {offset jof entry for 

{in \ j^\ \ r^ \ /'-N I Ifile in PIOTBL 

I binary I (l2) { Qis) { fisa) { { 



19 



{20 

+ 



{21-22 



{23-2« 
H 



{25-26 
H 



{27-28 

^ 



I 

(Device and or- { Switch |Integer-1 {Integer-1 !Integer-2 lUnused 
Iganization code | byte I specified in {specified in {specified inj 
{for associated ( ^^ {BLOCK CONTAINS {RECORD {RECORD { 
{files nSU { m) { {CONTAINS {CONTAINS { 



29-30 {31-32 



{33 



(34 



{35 



+ 



-h 



36 



37 



{38 



{39 



+ 



Dnused{ Displacement (SAME {Switch (Switch 
(of entry for (AREA {byte jbyte 
I file in CKPTBL I number | ^^-^. I 

I I I 0$ I ^""s. 

{ { { ^^ I 



Switch 
byte 

® 



SAME (Integer in (Number of 
RECORD (POSITION (CYL-OVERPLOW 
AREA (option for (tracks 
number (thisu^ile ( 

! ® ! 
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40 



41 



42 



43-44 



45 



46 



47-48 



49 



50 



51 



52 



53 



54 



Device I Device 
code , number 

I of 
OO) I highest 

I index 



SAME 
SORT 
AREA 
number 



Integer-2 
specified 
in BLOCK 
CONTAINS 



Switch 
byte 



Count |IND2TBL 
of idisplace- 
[ALTKEYSfnent 



20a ' 20b 



! @ 



ALT KEY LINAGE Unused 
PW CNT I flag I 



I 1 1 1 1 1 1 1 

Variable {Variable | Variable (Variable (Variable (Variable (Variable (Variable 



H- 



File-name 
in FD 
entry 



(TRACK ABEA(HOMINAL KEY(ACTOAL KEY(RECORD KET(APPLY CORE-(PILE STATUS (PASSWORD 

(size (and (and (and (INDEX data- (data-name and (data-name and 
( (qualifiers (qualifiers (qualifiers (name and (qualifiers (qualifiers 

I © I ( @ ( @ (^'**(2|^" ( (22) ( @ 



Tariable 



RELATIVE 
KEY and 
qualifiers 



I VARIABLE 



LINAGE 
DATE-NAME 
or INTEGER 



! FOOTING 
' DATA-NAME 
•or INTEGER 



© I © 



VARIABLE 



VARIABLE I Variable 



|1b| 



TOP T 
DATA- NAME ( 
or INTEGER J 

t 



-f- 



-\ 1 



INTEGER I OR INTl 

© ! © 



BOTTOM (LABEL RECORDS | 00) 

DATA-NAME names 
OR INTEGER "»■*'• 

I @ I I 

i LJ 



ID ENTRY 



1 

1 

J 


1 1 
J 


( 
— h- 


2 


1 


3 ( 4-5 
1 


( 



IXC icount (IC |Flag(Card ( 

(typesiof fixedjleTelj byteinufflbec ( 

I ipositionl^-^ (_^ I { 

('03' I .04- iQj) t^ I I 



VARIABLE 


VARIABLE 


16 


ALTERNATE 
RECORD KEY 
and qualifiers 


PASSWORD 

DATA-NAME 

and qualifiers 


00 
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© 



Code 
(hex) 
01-31 
32 
33 
3U 
36 
38 



39 
© lits 

1 

2-U 



Meaning 
= Levels 01-49 
= Lev.el 77 
»= Level 88 
= RD 
= SD 
= FD 

*-nnnn* nase in Report Section 
= Level 66 

Code 

1 == BLANK NHEN ZERO 

1 = JUSTIFIED 

Type of VALOE Clause 

000 = No clause 

001 = Alphanunerlc literal 
010 s Numeric literal 

Oil = Floating-point literal 

100 = Figurative constant or ALL 

101 = Figurative constant ZERO 
111 = Condition -name with 

multiple values 
5-7 Type of DSAGE 

000 = No clause 

001 = DISPLAY 

010 = COMPOTATIONAL 
Oil = COnPDTATIONAL-1 

100 = COBPDTATIONAL-2 

101 = COMPUTATIONAL-3 

110 = DISPLAT-ST 

111 = INDEX 



® 



® 



Bits 


cpa? 





1 « OCCORS DEPENDING ON 


1 


1 = REDEFINES 


2 


1 = PICTURE 


3 


1 = COPY 


4 


1 = internal REDEFINES 




(RD entry) 


5 


1 = S.nnnn description 




(PICTURE field contains 




the E.nnnn from which 




PICTURE information is 




to be extracted) 


6 


1 « RENAMES data-name entry 




follows 


7 


1 e SYNCHRONIZED 


B;Lts 


Meanina. if SYNCHRONIZED 





« SYNC LEFT 




1 * SYNC RIGHT 


1 


RENAMES THRU data-name follows 


2-1 


000 = No SIGN clause 




001 = TRAILING 




Oil = LEADING 




101 = SEPARATE TRAILING 




111 s SEPARATE LEADING 


5-7 


Unused 



® 



VALUE encoded like a figurative 
constant, literal, or ALL character in 
Procedure IC-text, except: for numeric 
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© 



literal, digits not packed but in EBCDIC 
format, with sign in zone of low-order 
digit. 

Note ; This field contains zeros when 
the iteiti is a condition-name with 
multiple values. 

a. If there is an OCCURS DEPENDING ON 
clause, the field is a 16-bit number 
representing displacement from start 
of OD2TBL of entry for object of 
clause. 

b. If internal REDEFINES (RD entry), 
the field is a 16-bit number 
representing the displacement which 
added to the object gives address of 
REDEFINES subject. 

c. If neither, field is 8 bits of 
zeros. 

(tJ Always contains 42 (hexadecimal). 

® 



® 



@ 



Bits 


Contents 


0-3 


Number of work units 


U-5 


Label Records are: 




01 = Standard 




10 = Omitted 


6 


1 = SAME RECORD AREA 


7 


1 = SAME SORT AREA 


Bits 


Contents 


0-2 


Device Class 




000 Not specified 




001 Direct Access 




010 Unit Record 




100 Utility 


3-6 


Recording Mode 




1000 = F 




0100 = V 




0010 = U (invalid) 




0001 = S 


7 


ASCII collating sequence 


Code (decimal) Device 




1 1UU2R 




2 m'»2P 




3 2520R 




4 2520P 




5 2540R 




6 2540P 




7 2501 




8 1403, 3203, or 5203 




9 1404 




10 1443 




11 1445 




12 3211 




13 3505 




1 4 Reserved 




15 3525R 




16 3525P 




17 3525W or 3525M 



18 


Reserved 


19 


3881 


20 


Reserved 


21 


5425R 


22 


5425? 


23 


5425W 


24 


Reserved 


25 


2560R 


26 


2560P 


27 


2560W 


28-39 


Reserved 


40 


2400, 3410, 342C 


41-47 


Reserved 


48 


2311 


49 


Reserved 


50 


2314,2319 


51 


2321 


52 


Reserved 


53 


3540 


54 


Reserved 


55 


3330 


56 


333B 


57 


Reserved 


58 


3340 


59-61 


Reserved 


62 


3350 


63 


FBA1 



@ 



Seven-byte external name or six-byte 
SYSnnn with a padding blank. 



Bits 


Code 







1 = RANDOM ACCESS 


1-3 


Organization 




000 


Not specified or 

SEQUENTIAL 'S' 




001 


INDEXED 




010 


DIRECT with REWRITE 
or 'W* 




Oil 


DIRECT "'A' or 'D' 


4-6 


Device 


class 




000 


Not specified 




001 


DIRECT-ACCESS 




010 


UNIT-RECORD 




100 


UTILITY 



•u' 



1 = RESERVE NO ALTERNATE AREA 



^ Bits Meaning,, if on 

SELECT OPTIONAL 

1 SAME AREA 

2 EXTENDED SEARCH 

3 SAME RECORD AREA 

4 SAME SORT AREA 

5 Pointer to CKPTBL in entry 

6 Pointer to PIOTBL in entry 

7 Word ALTERNATE specified in 
RESERVE clause 



3^ VSAM Support Byte Format 

Bits Meaning 
1 = AS specified in ORGANIZATION 
parameter of system-name 
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1 1 = No organization parameter 
specified in system-name 
2- a ORGANIZATION clause 

Code Meaning 

000 Not specified 

001 SEQUENTIAL 
010 INDEXED 
100 RELATIVE 

5 ACCESS MODE IS DYNAMIC 

6 ALTERNATE RECORD KEY(S) 

7 PASSWORD data-name specified 
with RECORD KEY or for the file. 



.3a Code Meaning 

^-^ 02 RCE <Read column eliminate) 

(3505 or 3525R) 
04 Optical mark READ (3505) 
08 PUNCH/PRINT (5U2itP, 3525P or 

2560R) 
80 READ/PUNCH/PRINT (5U24R, 542UP, 

5U2UW, 3525R, 3525P, 3525W, 

2560R, 2560P, or 2560W) 
90 READ/PUNCH/PRINT (3525M) 
AO READ/PUNCH (5a2UR, 542ap, 3525P, 

3525R, 2560P, or 256GR) 
CO PUNCH/PRINT (5U2UP, 5a2aw, 

3525P, 3525W, 2560P, or 2560W) 
DO PUNCH/PRINT (3525M) 
EO READ/PRINT (5U2aR, 5U2aw, 3525R, 

3525W, 2560R, or 2560W) 
FO READ/PRINT (3525M) 
82 READ (with RCE feature) /PUNCH/ 

PRINT (3525R) 
A2 READ (with RCE feature) /PUNCH 

(3525R) 
E2 READ {with RCE feature) /PRINT 

3525R) 
01 RESERVE integer- 1 [ALTERNATE] 

AREA in binary (maximum is 1) 



© 



Bits 



Code 



a 6) 



@ 



ri8^ 



0-1 


TRACK AREA 




00 = Not specified 




10 = Integer 


2 


1 = Direct file with relative 




addressing 


3 


1 = NOMINAL KEY 


U 


1 = ACTUAL KEY 


5 


1 = RECORD KEY 


6 


1 = WRITE ONLY 


7 


FILE STATUS clause specified 


Bits 


Meaning, if on 





WRITE VERIFY 


1 


CYL OVERFLOW 


2 


'integer* of RESERVE clause 




not in valid range 


3 


Multiple REEL/UNIT 


4 


Multiple File Tape 


5 


MASTER- INDEX 


6 


CYL-INDEX 


7 


RELATIVE KEY 


Bits 


Meaning, if on 


0-3 


Number of SORT work units or 




number of reels with non- 




standard labels 


a 


CORE- INDEX 


5 


Unused 


6 


ASCII file 


7 


'integer* of ASSIGN not in 




valid range 



If not specified, file-names in 
multiple file clauses are assigned 
sequential numbers as encountered, 
starting with 1, and an entry is made 
in this field for each file. 



(19) Initialized as 2311. 



&) Bits 
^"^ 



1 

2 

3-a 



5-6 



Code 

1 = COPY 

Unused 

RECORD CONTAINS clause 

BLOCK CONTAINS integer option 

00 = Not specified 

01 = RECORDS 

10 = CHARACTERS 
LABEL RECORDS option 

00 = Not specified 

01 = STANDARD 

10 = OMITTED 

11 = Data-name 

1 = REPORTS clause 



(20) 



Bits 
0-1 

2 
3 
4 
5 
6-7 



Bit 




Meaning, if on 
Unused 

RECORDING MODE 
Format F 
Format V 
Format U 
Format S 
Unused 



Meaning, if on 

Incorrect class parameter of 

implementor 
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1 Incorrect device parameter of 
implenentor name 

2 Incorrect organization 
parameter 

3-7 Unused 

Bit Meaning* if on 

Primary input hopper select 

1 Secondary input hopper select 
2-7 Dnused 



21) 2-byte field giving integer TRACK AREA 
count. 

(22) Sul)f ield Contents 

1 2-byte count of bytes in all 

the subfields that follow in 



n+1 



Name of highest-level qualifier 
preceded by 1-byte count 
of characters. 



Name of lowest-level qualifier 
preceded by 1-byte count 
of characters. 

Zero, to separate this field 
from the next. 



If the option is not specif led r the 
field consists of one byte of zeros. 

Series of all label record-names 
preceded by 1-byte count of characters. 



(20c) Bit 

1 
2 
3 
4 
5 
6 
7 



Meaning 

LINAGE clause specified 
FOOTING option specified 
TOP option specified 
BOTTOM option specified 
Object by LINAGE is data-name 
Object by FOOTING is data-name 
Object by TOP is data-name 
Object by BOTTOM is data-name 



22)Subfield 



Contents 
2-byte count of bytes in all 
the subfields that follow 
in this field. 



If the field is a data-name, it will be 
preceded by a one-byte count field. If 
integer, the field will be eight bytes 
in length. If LINAGE clause or other 
three clauses are not specified, each 
unspecified field will be replaced by 
one byte of zero. 



Code Meaning 
"IT" Level Is ID 



Bit Meaning 

0-2 Unused 

3 1 = Another ID follows 

4 1 " PASSWORD specified 

5 1 = DUPLICATES specified 
6-7 Unused 
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ATF-TEXT 



Level 
01-49 
or 77 
items 



Level 

88 

itens 



I I — 
1112 



■+-+■ 



13-4 

+ 



5-6 |7-8 
4- 



19 
+ 



110 



111-12 

4- 



03 1 n (Level {Generated 
LJ number I card 
Ml I number 



I FLAG I Maximum | Number j Number (Length of the) 

©(number of j of | of (item in the ( 
(occurrences (indexes (keys (object module j 
I I , . I I I 



13-Variable 



EBCDIC name I 
of item 






© 



^'■^^fWB #^' ;=■ 



I Variable 

I Partial 
I dictionary 
I attributes 



tribi 
© 




(1 
(_ 



03 (n 

( 

( 

( 

. I 



(3-l» 

4 



( {X»33» (GENERATED (EBCDIC 

j (Level (card (name of 

(number) (number (it^ 

( I i 



I 1 

(Variable (Variable 

+ 



bem 



H 

IDicTionAm 
I attributes 
I (paitial) 

! © 



© 
© 



© 

© 



The maximum length of any element is 
204 bytes. 



The flag indicates the origin of the 
element, as follovs: 

Bit Meaning, if on 

RENAMES... THPO clause 

1 Next element is an ?D 

2 Next element is an SD 

3 Next element is an RD 

4 Conditional variable 

5 Data A-text follows 

6 VALTRO table entry 

7 VALGEP table entry 

8 ODO 

9 REDEFINES clause 

10 USAGE is not DISPLAY 

11 Item is or is in a LABEL record. 

12 Internal Redefines 

13 ttD 

14 RENAMES clause 

15 SrCHRONlZED. 

The name is prefixed by a 1-byte count 
of its length. 

Either: 

1. A 1-byte length count followed by 
the objects of the REDEFINES 
clause, if flag bit 9 is on; or 



© 



© 
© 

© 



A 1-byte length count followed by 
the object of the internal 
REDEFINES clause, if flag bit 12 
is on; or 

A 1-byte length count followed by 
the Report Section (RD) name, if 
flag bit 13 is on; or 
The field does not exist. 



Either: 

1 . A 2-byte 0D2TBL table displacement 
if flag bit 8 is on; or 

2. A 2-byte Internal Redefines 
displacement, if flag bit 12 is 
on; or 

3. The field does not exist. 

The attributes are prefixed by a 
1-byte count of their length 

Either: 

1 . A 2-byte VALGRP table displacement 
if flag bit 7 is on; or 

2. The field does not exist. 

Either: 

1 . A 2-byte VALTRO table displacement 
if flag bit 6 is on: or 

2. The field does not exist. 
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DATA A-TEXT 



SECONDARY DTF ADDRESS 

r — T T 1 

1 0|l-3 14 I 

^_.4 + ^ 

I 04 1 Relative address in | Number assigned from SDTFCTR in | 
I I object module of | COMMON* | 

I JSDTF 1 I 

L X X J 

DTF ADDRESS 

r — T T 1 

I 0|l-3 j4 I 

^__+ ^ ^ 

I 08 1 Relative address in | Number assigned from DTFCTR in COMMON | 
] I object module of DTFJ | 

L X X J 

BLOCK ADDRESS 

r T T T T 1 

I 011-3 jU 1 5-6 1 7-8 1 
y..^ + + +--_^ 

]0C I Relative address in (BL number — first base locator number j 00 | Ql) | 
1 jobject module of buffer | assigned to file from BLCTR in COMMON j j j 
I I assigned to file. | III 
L X X X J J 

FIB ADDRESS > 

r — T T n 

jO |i-3 |u I 

^__+ + ^ 

1 14 {Relative address in IFIB number — File Information | 
I jobject module of | Block number assigned from | 
I I File Information Block jAMICTR in COMMON | 

L X X J 

COUNT INFORMATION 

r T T T T 1 

jo 1 1-3 I 4 I 5-6 1 7 through 6 + c | 

|._.+ +-_+ + ^ 

|20|Relative address following} OOj c (Actual constant (COUNT table j 

I I Q- routines during | j j information) | 

I |Data-A-text processing III I 

L X X J X J 

WORKING-STORAGE SECTION ADDRESS 

r — T '■ T T 1 

I 0|l-3 14 1 5-7 1 

i.__+ + + ^ 

I 24 1 Relative address in |BL number — first base locator number assigned} Ql^ j 
j jobject module of jto Working- Storage Section from BLCTR in } j 
} } Working-Storage Section] COMMON j ) 
L J X X I 

CONSTANT DEFINITION 

r T T T T 1 

j 0|l-3 )4 1 5-6 1 7 through 6 + c | 

|28|Relative address in|Type (2) \ c (Actual constant | 
j jobject module where} of ' /^^ ' /'"n ' 

j j constant is located | constant ( (3) j (3} | 

L X -x x_Z-x J 
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ADDRESS CONSTANT DEFINITION 



r — T 

0|l-3 



■T — 



5-7 



I 

i.__+ 1 + ^ 

12C I Relative address in object |Size, m bytes, | Relative address in | 
I I module where address jof address | object module specified | 
I I constant is located j constant |by address constant | 

L X X X J 



Q-ROUTINE IDENTIFICATION 



r — T 1 

I 011-2 I 

^__+ ^ 

|34|GN number -- generated procedure-name number | 
I I assigned from GNCTR in COMMON | 

L X J 



BL REFERENCE 



r — T 

JO |l-3 



•T — 

14 

4- 



^ 

I 38 1 Relative address from beginning |BL number — base locator] 
I jof the program where displacement I number | 

I I for base locator cell described I I 

j I in next field is to be placed j I 

L X L J 



BLL REFERENCE 



r — T 

10 |l-3 



■T — 

|4 



1 3C I Relative address from beginning |BLL number — base 
I I of the program where displacement | locator number 
I I for base locator described in | 
] {next field is to be placed | 

I X -,0. 



DATA- NAME XREF ELEMENT 

r T T T-T 1 

I 0|l-2 I 3-5 |617 through 6+cj 

I 48 j Card number in source [Pointer to dictionary] c| EBCDIC j 
j I program defining data-name] entry of data-name | | data-name | 
«. — J. X x-x J 



(1) size, in words, of block section or area to which this entry refers. 

(2) Code 
^^ (Hex) 



00 
01 
FF 



Meaning 
Binary 

Alphanumeric 
ALL constant 



(T) If the constant is an ALL constant, the format is 
different, beginning with byte 5, as follows: 

r T-T 1 

I 5-6|7|8 through 7 + c j 

|d |c| Value specified for the constant] 

L x-x J 



where d is the number of bytes 
reserved for the constant. 
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PROCEDURE- NAME DEFINITION 

r — T-T 1 

I 01112 through 1 + c | 

h~+-+ ^ 

I 05 1 c I Procedure-name in EBCDIC | 
t x_u. J 

QUALIFYING EBCDIC NAME 

I 0|1|2 through 1 + c | 

H-+-+ ^ 

I 22| c| User-assigned name in EBCDIC | 
I I I that qualifies procedure-name | 
I I I or data- name j 

L x_j. J 

EBCDIC NAME 

r — T-T 1 

I 0|1|2 through 1 + c j 

j._-+_+ ^ 

j 23|c|User-assigned name in EBCDIC | 
L X-± J 

EBCDIC data-name of GIVING option for USE 
error declarative 

r — T-T 1 

|0 |1|2 through 1 + c | 

!._-+_+ ^ 

12U|c|User assigned EBCDIC name that | 
I I I was object of GIVING option j 

L X_J. J 

|gNS FOR ERROR/LABEL DECLARATIVES 

r — T — T T 1 

1 0| l|2-3 |4-5 I 

h~+~+ + H 

]26|0A|GN number | GN number for | 
I I I for STANDARD I file header | 
I I I ERROR I labels | 

t X X X J 

r T ^ 

1 6-7 1 8-9 I 

^ 1 ^ 

|GN number for|GN number for| 
I file trailer j end-of -vcl\ime | 
I labels (labels | 
L J. J 

r 1 

1 10-11 I 

H- ^ ^ 

|GN number f or | {!) 
jbegining-of- j 
I volume labels! 

I J 



NUMERIC LITERAL 

r — T-T T 1 

I 0|1|2 |3 I 

I 32 |n| Positions to | Positions toj 
I I jleft of I right of | 
I I I decimal j decimal j 
L X-X L J 

r T 

I U through 1 + n 1 

^ ^ 

I Literal in packed decimal! 
I format j 

L J 

FLOATING-POINT LITERAL 

r — T — T 1 

I 0|1 |2-9 I 

H-+~+ H 

133! 08 1 Literal represented as j 
I I (double-precision j 
I I I floating-point number j 
L X — X J 

ALPHANUMERIC LITERAL 

r — T-T 1 

I 0|1|2 through 1 + c ! 

|3J»!c|Literal in EBCDIC) 

L X-X J 

"EXHIBIT NAMED" NAME 

I 0|1|2 through 1 + c j 

H-+-+ ^ 

ISSJcJEBCDIC name used in EXHIBIT | 
I I I NAMED statement j 

L X-X J 

LISTING A-TEXT FOR PROCEDURE- NAMES 

|0 |1!2 through 1 + c j 

|37|c|EBCDIC procedure-name; bit of | 
I I I the preceding field is set to 1. | 
L X-X J 

LISTING A-TEXT FOR VERBS 

r — T-T T 1 

|0 |1|2 through njn + 1 \ 

I 37 |n| EBCDIC verb (Alphabetic verb ] 
ill I sequence number j 

L X-X X J 

CRITICAL PROGRAM BREAK 

r — T T 

I 0|1 1 

H-+ -;=rH 

I 421 Break code (2) j 
L X ^j 
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VERB 

r — T 1 

I 0|1 I 

|.__4 ^ 

I 441 Verb code | 

II ® I 

L X 2Z. J 

RELATIONAL CODE 

r — T 1 

I 0|1 I , 

^__+ ^ 

I 50 1 06 (hex) = equal | 
) I 08 (hex) = greater than) 
I JOA (hex) = less than j 
I I OC (hex) = not equal | 
L J. J 

PARENTHESIS 

r™ r 1 

I 0|1 I 

^__+ ^ 

1 52 1 00 (hex) = left parenthesis | 
I 1 01 (hex) = right parenthesis] 
L X J 

ARITHMETIC OPERATOR 

r — T 1 

I 0|1 I 

^__+ H 

1 53 1 Operator code To) | 
L — X _rlj 

COBOL WORD 

r — T T 1 

I 0|1 |2 I 

Y—i + ^ 

1 5i»|Word_code|Code (phases 10, 12, 11 | 
I I (Z) I only, not passed on) (i) | 
L — J .„ X Jr_ J 

SPECIAL NAME 

r — T 1 

I 0|1 I 

f~+ 7=r1 

) 55 I Coded) I 

L L J 

FIGURATIVE CONSTANT 

r — T 1 

I 0|1 I 

^__+ ^ 

1 75 1 EBCDIC value of figurative! 
I I constant | 

L X J 

STANDARD DATA- NAME REFERENCE 

r — T ^ 

I 0|1 I 

^_-+ ^ 

1 79 1 05 (hex) = TALLY j 
L — X J 



CARD NUMBER 

r — T 1 

I 0|l-2 I 

^__+ ^ 

I 81 1 Compiler-generated secmential | 

I source card number (9) j 

L X ^^ J 

GENERATED PROCEDURE-NAME DEFINITION 

r — T 1 

I 0|l-2 I 

^_.+ ^ 

|88|GN number — identifying number | 
j I assigned to compiler-generated j 
I I procedure-names from COMMON field j 
I I GNCTR I 

L X J 

GENERATED PROCEDURE-NAME REFERENCE 

r — T 1 

I 0|l-2 I 

^__+ ^ 

jAAjGN number — identifying number | 

I j assigned to compiler-generated j 

I I procedure-names from COMMON field j 

1 I GNCTR I 

L X J 



ERROR SYMBOL 



r — T — ^ 
I Oil I 

|B9|©| 

I X J 



COBOL WORD 



r 



® 
® 



j 57 I Word code I Code (phases 10, 12, 111 
I I I only, not passed on) I 
I I I 1 



Each field contains zeros if there is 
GN for that purpose. 

Code 

(hex ) Meaning 

01 Data Division 

02 File Section 

03 Working-Storage Section 

04 Linkage Section 

05 Report Section 

06 Procedure Division 

07 start of Declaratives 

08 End of Declaratives 

09 Start of DEBUG Packets 
OA Start of Q-Routines 

OB Start of Report Writer Procedures 
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OC 


End of Report 


Writer Procedures 




Meaning 






OD 


End of Segment 




Code 


PO- and Pl-text 


P2-text 




OF 


Date-Compiled 


entry 


16 




IF-EQ-NONNUM 




FO 


Security entry 












Fl 


Identification 


Division 


17 




IF-NOTEQ-NONNUM 




F2 


Program- ID entry 










F3 


Author entry 




18 




IF-GT-NONNUM 




FU 


Environment Division 










F5 


Configuration 


Division 


19 




IF-NOTGT-NONNUM 




F6 


Source-computer entry 










F7 


Object-Computer entry 


lA 




IF-LT-NONNUM 




F8 


Input-Output Section 










F9 


File-Control entry 


IB 




IF-NOTLT-NONNUM 




FA 


I-O Control entry 










FB 


Special-Names 


Section 


IC 


ALTER 


MOVE- 4 




FC 


Date-Written entry 










FD 


Installation entry 


ID 


MOVE 


MOVE 




FE 


Remarks entry 




IE 
IF 


EXAMINE 
TRANSFORM 


EXAMINE 
TRANSFORM 


5 


Verb code List: Code 


indicates the type 








<-• 


of verb. 




20 


READ 


READ 






Meaning 




21 


OPEN 


OPEN 


code 


PO- and Pl-text 


P 2- text 








00 




ADD 


ADD 


22 


CLOSE 


CLOSE 


01 




SUBTRACT 


SUBTRACT 


23 


WRITE 


WRITE 


02 




MULTIPLY 


MULTIPLY 


2U 


REWRITE 


REWRITE 


03 




DIVIDE 


DIVIDE 


25 


ACCEPT 


ACCEPT 


oa 




COMPUTE 


EXPONENTIATE 


26 


DISPLAY 


DISPLAY 


05 






STORE 


27 


EXHIBIT 


EXHIBIT 


06 




END OF SENTENCE 


IF-EQ-NUMERIC 


28 


RESET 


RESET 


07 




IF 


IF-NOTEQ-NUMERIC 


29 


READY 


READY 


08 




ELSE (OTHERWISE) 


IF-GT-NUMERIC 


2A 


RETURN 


RETURN 


09 






IF- NOTGT-NUMERIC 


2B 


ON 


ON 


OA 






IF-LT-NUMERIC 


2C 


ENTRY 


ENTRY 


OB 






IF-NOTLT-NUMERIC 


2D 


CALL 


CALL 


OC 






IF-ALPHABETIC 


31 


USE 




OD 






IF- NOT- ALPHABETIC 


32 


EXIT 




OE 






IF- NUMERIC 


33 


REPORT- NOP 




OF 






IF- NOT-NUMERIC 


3U 


GENERATE 




10 




STOP 


STOP 


35 


TERMINATE 




11 




GO 


GO 


36 


SORT 


SORT 


12 






GO-DEPEND-FIRST 


37 


RELEASE 


RELEASE 


13 






GO-DEPEND-MIDDLE 


38 


PERFORM 


GO-N-TIMES 


m 






GO-DEPEND-LAST 


39 




SUBSCRIPT 


15 






EVAL 


3A 


INITIATE 
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Code 
3B 

3C 

3D 

3E 

3F 

UO 

Ul 

U2 
'»3 
44 

45 

46 

47 

4A 

UB 

4C 

4D 

4E 

4F 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

5A 

SB 

5C 

5D 

5E 



Meaning 
PO- and Pl-text 

DEBUG 



I NIT 
INCRA 



STEP 
UPDATE 



Q-CALL 
Q-RETURN2 
Q-RETURN3 
REPORT-CALL 
REPORT- SAVE- 
REPORT- SAVE- 1 
REPORT- SAVE- 2 
REPORT- SAVE- 3 
REPORT- SAVE- 4 
REPORT- SAVE- 5 
REPORT-RETURN- 
REPORT- RETURN- 1 
REPORT-RETURN- 2 
REPORT-RETURN- 3 
REPORT-RETURN- 4 
REPORT-RETURN- 5 
REPORT-ORIGIN 
REPORT-REORIGIN 
SEARCH 



P2-text 
DEBUG 

START (FORMAT- 2) 

TRACE 

EQUATE 

MOVE-1 

INIT 

INCRA 

STEP 
UPDATE 
USE- ERROR 

ENDUSE-ERROR 

USE -LABELS 

ENDUSE-LABELS 

USE-REPORT 

ENDUSE-REPORT 

Q-CALL 

Q-RETURN2 

Q-RETURN3 

REPORT-CALL 

RE PORT- SAVE- 

REPORT- SAVE- 1 

REPORT- SAVE- 2 

REPORT- SAVE- 3 

REPORT- SAVE- 4 

REPORT- SAVE- 5 

REPORT-RETURN- 

REPORT-RETURN- 1 

REPORT- RETURN- 2 

REPORT-RETURN- 3 

REPORT-RETURN- 4 

REPORT-RETURN- 5 

REPORT-ORIGIN 

REPORT-REORIGIN 

Beginning of WHEN 
in SEARCH ALL 



Code 
5F 

60 
61 



63 

64 

I 65 

66 
67 
68 



Meaning 
PO- and Pl-text 
SEARCH ALL 



SET 

SEEK 

START 

UNSTRING 



P2-text 

End of WHEN in 

SEARCH ALL 
SET format-l 
SET format- 2 

(UP EY) 

SEEK 

START 

UNSTRING 

IF EQUAL 

(index name) 

IF NOT EQUAL 
(index name) 

IF GREATER 
(index name) 



69 




IF NOT GREATER 
(index name) 


6A 




IF LESS 

(index name) 


6B 




IF NOT LESS 
(index name) 


6C 


Virtual 

Definition 


Virtual Definiti- 


6D 


EQUATE in 
SEARCH ALL 


EQUATE in SEARCH 
ALL 


6E 




SET format- 2 
(DOWN BY) 


6F 




GO TO 

(Segmentation) 


70 




Segmentation 
initialize 


73 


GOBACK 


GOBACK 


74 




EXIT program 


75 


STRING 


STRING 


76 


SETVLC (for 
RENAMES 
Q- routine) 


SETVLC (for 
Q-routine) 


77 




FLOW 


79 




OPEN (VSAM) 


7A 




CLOSE (VSAM) 


7B 




OVERFLOW test 


7C 


GNRP1 

(for OPT) 


GNRPT 


7E 




READ (VSAM) 


7F 




WRITE (VSAM) 



354 Section 5. 



Data Areas 



Licensed Material - Property of IB^ 



Code 
80 

81 
82 
83 
86 
87 

88 
8A 

8D 

90 

94 



95 



® 



© 



Meaning 
PO- and Pl-text 



DELETE (VSAM) 

SERVICE 
MERGE 



INSPECT 



P2-text 
REWRITE (VSAM) 

START (VSAM) 

DBGTRAN 
SERVICE 

COUNT 
DBGVRB 

INSPECT 



USE FOR DEBUGGING USE FOR DEBUGGING 
END-USE-DEBUG 



RFRSEG 



Code 

Hex Operator 

00 Addition 

01 Subtraction 

02 Multiplication 

03 Division 

04 Exponentiation 

Code Special 

(hex) Naire 

00 CSP 

01 COl 

02 C02 

03 C03 

04 COU 

05 COS 

06 C06 

07 C07 

08 COS 

09 C09 
OA CIO 
OB Cll 
OC CI 2 
OD SOI 
OE S02 
OF S03 

10 SOU 

11 305 

12 PAGE 



© Error Syrrbol 
COBOL word 
code 

00 (hex) 



If reserved word used 

invalidly (See also 

note (t) .) 

If undefined or 

multiply-defined 

symbol found 



(t) COBOL word Code ; 

This list shows the code number assigned 
to each COBOL reserved word for use in 
Procedure IC-text (PO, PI, and P2) . In 
the COBOL word table, COBWRD, in phases 
10, 11, and 12 of the compiler listing, 
the words appear in alphabetical order 
according to their length. 



Meaning 

Code PO- and Pl-text 

Code Word 

01 DATA 

02 SKIPl 

03 SKIP2 
OU SKIP3 

05 EJECT 

06 NSTD- REELS 

07 SUPPRESS 

09 SORT- OPTION 

OA ORGANIZATION 

OB WHEN-COMPILED 

OC CORE- INDEX 

OD PROGRAM 

OE RF 

OF WRITE-ONLY 

12 COMMA 

13 DECIMAL-POINT 
m FILE- LIMIT (S) 

15 MODE 

16 RECORDING 

17 REEL 

18 SYSIPT 

19 SYSLST 

lA TRACK-AREA 

ID DELIMITED 

IE POINTER 

IF OVERFLOW 



P2-text 
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Code 


Meaninq 
PO- and Pl-text P2-text 


20 


COUNT 


2E 


INITIAL 


21 


DELIMITER 


22 


TIME 


24 


DATE 


26 


DISPLAY 


28 


RESET 


2B 


ON 


30 


CURRENCY 


32 


INDEX 


33 


STATUS 


34 


MODULES 


35 


MEMORY 


36 


WORDS 


37 


SYNCHRONIZED (SYNC) 


38 


OFF 


39 


RENAMES 


3A 


UP 


3B 


DOWN 


3C 


FILE (in Procedure 
Division and after 
File Section header) 


3D 


OPTIONAL 


3E 


REMAINDER 


3F 


POSITION 


40 


TAPE 


41 


TRAILING 


42 


ADDRESS 


43 


ALPHANUMERIC 


44 


NUMBER 


45 


CURRENT- DATE 


46 


TIME-OF-DAY 


47 


COM-REG 


48 


SORT- RETURN 


49 


SEPARATE 


4B 


REREAD 



Code 


Meaninq 
PO- and Pl-text 


P2-text 


4C 


DISP 




4D 


EXTENDED- SEARCH 




4E 


MASTER- INDEX 




4F 


CYL- OVERFLOW 




50 


THEN 




51 


CYL- INDEX 




52 


WRITE-VERIFY 




53 


THAN 




54 


RECORD-OVERFLOW 




55 


ALPHABETIC 




56 


NUMERIC 




57 


POSITIVE 




58 


NEGATIVE 




59 


UPDATE 




5A 


END-OP-PAGE (EOF) 




5B 


CHARACTER 




5C 


NOT 




5D 


AND 




5E 


OR 




5F 


LIMIT(S) 




61 


BEGINNING 




62 


ENDING 




63 


MORE-LABELS 




64 


OUTPUT 




66 


INPUT 




67 


RANDOM 




68 


PROCESSING 




69 


BEFORE 




6A 


REPORTING 




6B 


I-O 




6C 


WITH 




6D 


REWIND 




6E 


REVERSED 
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Meaning 



Code 


PO- and Pl-text P2-text 


6F 


INTO 


70 


AT 


71 


INVALID 


72 


AFTER 


73 


ADVANCING 


76 


LOCK 


77 


SYSPCH 


78 


CONSOLE 


79 


ALL 


7A 


CORRESPONDING (CORR) 


7B 


TALLYING 


7C 


LEADING 


7D 


UNTIL 


7E 


REPLACING 
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Heaninq 



code 
7F 


PO- ^p4 P1-t?Xt p2-t??tt 
BI 


81 


GIVING 


82 


ROUNDED 


83 


SIZE 


8U 


ERROR 


85 


RUN 


86 


PROCEED 


87 


THROUGH (THRU) 


88 


TARTING 


89 


USING 


8A 


COBOL 


8B 


UPSI-1 through UPSI-7 


8C 


DESCENDING 


8D 


ASCENDING 


BE 


TRACE 


8? 


CHANGED 


90 


NAMED 


92 


CHARACTER (S) 


93 


TIMES 


94 


DEPENDING 


95 


LINE(S) 


96 


PIRST 


97 


NEXT 


98 


UPON 


99 


PROCEDURE 


9A 


EVERY 


9B 


TO 


9C 


IS, ARE 


9D 


PROM 


9E 


NO 


9P 


KEY 


AO 


RETURN -CODE 


R1 


END 



A2 


pp- aB4 Pi-t^?ft p2-t^7ci; 

UNIT(S) 


A3 


POR 


Ad 


IN, OP 


A5 


SECTION 


A6 


LABEL-RETURN 


A7 


DIVISION 


A8 


SORT-PILE-SIZE 


A9 


SORT-CORE-SIZE 


AA 


SORT-MODE-SIZE 


AB 


SIGN 


AC 


SORT (appears in 

Procedure Division as v< 
with 36 code) 


AD 


MULTIPLE 


AP 


FILLER 


BI 


ASSIGN 


62 


ACCESS 


B3 


EXCEPTION 


Bit 


RESERVE 


B5 


NOMINAL 


B6 


ACTUAL 


B8 


DYNAMIC 


BA 


SEQUENTIAL 


BB 


DEBUGGING 


BC 


INDEXED 


BE 


ALTERNATE 


BP 


AREA (S) 


CI 


RELOAD 


C2 


RELATIVE 


CH 


TRACK (S) 


C6 


CYCLES 


C8 


PASSWORD 


C9 


EXTEND 


CA 


VALUE (S) 


CB 
CO 
CD 


PRINT-SWITCH 
BLOCK 
RECORD (S) 
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Coflg 


Heapinq 
PO- and PI -text 


CE 


CLOCK UNITS 


CP 


RECORDS 


DO 


CONTROL (S) 


D1 


LABEL (S) 


D3 


CONTAINS 


D4 


OMITTED 


D5 


STANDARD 


D6 


REPORT (S) 


D7 


REDEFINES 


D8 


PICTURE (PIC) 


D9 


BLANK 



P2~text 



DA OCCURS 

DB JUSTIFIED (JUST) 

DC POSITIONING 

DD USAGE 

DE COMPUTATIONAL (COMP) , 

COMPUTATIONAL-* (COMP-a) 

DP COMPUTATIOHAL-I (COMP-1) 

EO COMPUTATIONAL-2 (COMP-2) 

El COMPUTATIONAL-3 (COMP-3) 

E2 WHEN 

E3 RIGHT 

El LEFT 

E5 CODE 

B6 PAGE 



Code 
E7 

I E8 
E9 

EA 



P2-tex t 



EB 

EC 

lED 

EB 

EP 

PC 
IFI 
P2 
P3 
P4 
|P5 
P6 

P8 

I F9 

PA 

PB 

PC 



PD 



PE 



PF 

© 



© 



Meaning 
PO- and Pl-te»t 
PINAL 
REMOVAL 
HEADING 

DETAIL (DE) 

LAST 

FOOTING 

DAY 

GROUP 

TYPE 

PLUS 

LINAGE 

DTSPLRY-ST 

RB 

PH 

BOTTOM 

CH 

CP 

TOP 

PF 

SENTENCE 

COLUMN 

INDICATE 

SOURCE 
SUM 

liM MffZ^pi^pq 

FD, SD, RD 

1 Paragraph word 

2 Section word 

3 Division word 

H Allowed in Environment 
Division 

5 Allowed in Data Division 

6 Allowed in Procedure Division 

7 Allowed in Identification 

Division 



The first bit of byte 1 is ased as a 
flag. A setting of indicates a PN 
statement. A setting of 1 indicates a 
verb statement. 
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© 



COBOL Word Code ; 

This list shows the code number assigned 
to each COBOL reserved word for use in 
Procedure IC-text (PO, PI, P2) . In the 
COBOL word table COBWRD, in phases 10, 
11, and 12 of the compiler listing, the 
words appear in alphabetic order 
according to their length. 



Code 


Meaning 
PO- and Pi-Text 


02 


BASIS 


03 


ALSO 


04 


REFERENCES 


05 


PROCEDURES 


06 


COLLATING 


07 


SEQUENCE 


08 


STANDARD- 1 


09 


NATIVE 


OA 


CODE-SET 


OB 


DUPLICATES 


OC 


INSERT 


OD 


DEBUG- ITEM 


OE 


DEBUG-LINE 


OF 


DEBUG-NAME 


10 


DEBUG- SUB- 1 


11 


DEBUG-SUB-2 


12 


DEBUG-SUB-3 


13 


DEBUG-CONTENTS 
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PROCBDDRB-NAHE DBPIHITZOD 



I 1 1 1 2 through 1 ••■ c 
I l-H- 



|06tc|Dictlonar7 attributes of 
I I I procedure naae. See "Dijz^ 
I I jtionary Entry Poraats.^M) 



C+1 



I 

IPriftrity 

! © 



in - 7 to n - 6 



I 

|PN nuBber for 
tfile trailer 
t label 



in - 3 to n - 2 

I 



I PR nuBber for 
jbeginning-of- 
ivoluBe label 



n - 5 to n - ft 



PM nuBber for 
end-of-voluBe 
label 



n - 1 to n + 1 



Pointer to I 
dictionary ^^^ \ 
entry for fileQft) I 



pbocbdurb-nahe reference 



— I — I 

0|1|2 through 



1 + c 



I- 

1 20 1 c| Dictionary attributes of 



I {procedure naae. See "Die- 
I jtionary Entry ForBats,"Mj 



I C+1 



iPriftrity 

! © 



SD BLEHEVT 



|0 |1|2-9 



I 10 111-12 |n-1 to n+1 



-h-4- 



1 2 1 i n I Dictionary | 
I I attributes | 



t I for SD 
I I (see "SD 
I I ERTRI") 



|GH I Dictionary I 
I nuBber j pointer 



|f2A) I for I 



I rou- I 
I tines I 

4 L. 



(2 A) Bytes 10-12 are present only if the 
0-bit is on. 



FILE-VAHE REFEREHCE 



I 01112 through 21 
I — h-f- 



1 21 In I Dictionary attributes of 
I I I file. See "FD Entry" in 
I I {Appendix F. (T) 
i i— I 2ri 



▼SAH FILE-BAHE REFEREHCE 




|n-11ton-10in-9ton-8 



I 

|PN nuBber for 
I STANDARD ERROR 
j declarative 



H 

I PN nuBber for 
I file header 
I label 



I— I — I 

|1|2 through 9 



■+-4- 



110 

4- 



26|n|Dictionary attri-| Count of all 
I Ibutes of file |GNs for Q- 
j j 4see "FD ENTRY" jroutines as- 
i i in Appendix D) jsociated with 
I I I this file 



111-12 



113-14 



iGN nuBber|N nuaber 
j for I for 
(string of {STANDARD 
io-routine|ERROR de- 
JGNs IclautiTe 

! ! ® 



15-22 1 23-24 | 



Reserved j Pointer j 
I to die- 1 
jtionary i 
{entry { 

©If or I 
I file I 
I I 
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DATA-NAHE SEFSRENCB 



0il|2ton-5orn-2 
4-4- 



30 i n i Dictionary attributes . 

I {See "LD Entry" in "Section 5. 
I I Data Areas." 

! I © 



HOMERIC LITERAL 



13 

+ 



— I — I 

0|1|2 

— I— I 

!32|n|Positions to | Positions to| 

I I left of I right of 

i jdeciaal jdeciaal 

-I I, . ■ I I „ , 



i'mA 



ri .'l tt .V *| ^1 » 51 ■: J : r:# l^yvi^ 



|U through n ♦ 1 



I Literal in packed 
I decimal format 






In - 1 to n + 1 I 



H 



I 

{Pointer to | 
I dictionar^^ntry I 
I for item (u) | 



FLOATING -POINT LITERAL 



I 1 1 

I 0| 1|2-9 

I 1 1- 



1 33 1 081 Literal represented as 

I I i double-precision floating- 

I i {point number 

I 1.1 



ALPHANUMERIC LITERAL 



r 



T T 



{ 0{1|2 through 1 + c | 

I 1— I \ 

1 34 |c {Literal in EBCDIC | 



DATA-NAME REFERENCE FOR KEY CLAUSE 



T 



(1{2ton-6orn-3| n-5 



■+H- 



4- 



30 In (Dictionary attri- (Count of all ( 

I (butes (see "LD (GNs for Q- ( 

I (ENTRY" in "Section (routines | 

I (5. Data^reas") (under item | 

I I © I I 

I I „ rr I I 

I 1 1 1 

(n-4ton-3{n-2 (n-lto n+1 | 



(First 6N num- (Index (Pointer to 
(ber in series (ACB (dictionary 
(of all GN num- (number (entry for^^ 
(bers for Q- { (item Qf) 
(routines under j ( 
( item I ( 



"EXHIBIT NAMED" NAME 

— r— I 

0(1(2 through 1 + c 

—fH 

1 35 (c( EBCDIC form of name used) 
( (in EXHIBIT NAMED state- 
( (ment. 

,.4 I 



INDEX-NAME REFERENCE 

I 1 — T 1 

( 0(1(2 (3-<( 



(5-6 



I 

(36 



"t=H- 



ic(5^( Index-name (Qy 
' p^i number ( 
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r 1 

|7-9 I 

^ ^ 

I Pointer to dictionary entry | 
I for index-name (jy) j 

L Jrl J 

LISTING A-TEXT FOR PROCEDURE- NAMES 

10 |1|2 through 1+c | 

l.__+_4 ^ 

137 1 c (EBCDIC procedure-name; bit of | 
j I I the preceding field is set to 1. j 
L x-J. . J 

LISTING A-TEXT FOR VERBS 

r — T-T T 1 

jo 11|2 through njn + 1 | 

^_-+.| + ^ 

j 37 I n| EBCDIC verb I Alphabetic verb j 
III I sequence number | 
L — i_x X J 

DATANAME REFERENCE FOR OBJECT OF GIVING 
OPTION OF USE ERROR DECLARATIVE 

r — T 1 

I 1 1 through n+1 | 

^__+ ^ 

1 38 1 Same as "Data-name Reference" (30) | 
j I element above j 

t X J 

"ALL" LITERAL LONGER THAN ONE CHARACTER 

|0 |1|2 through c + 1 | 

j 39|cj Alphanumeric value following ALL j 
L X-X J 

CRITICAL PROGRAM BREAK 

r — T 1 

1 Oil I 

I— + 7=^-^ 

142 I Break codem | 
L X ^-J 

VERB 

r — r 1 

1 Ojl I 

|.__+ ^ 

Hmjverb code j 
I I (see note(^ j 
I I under PO-text) | 

L X J 

RELATIONAL CODE 

r — T 1 

I 0|1 I 

^__+ ^ 

150 1 06 (hex) = Equal j 
j 1 08 (hex) = Greater than| 
j JOA (hex) = Less than | 
I X J 



PARENTHESIS 



r — T 1 

|0 11 I 

^._+ ^ 

I 52 1 00 (hex) = Left parenthesis j 
I 1 01 (hex) = Right parenthesis! 

L X J 



ARITHMETIC OPERATOR 
r — T 1 

I 0|1 I 
^__4. 1 

1 5 3 1 Operator code j 

II © I 

r — T 1 

I Ojl I 

I 54 1 Word code | 
I I ( see note @ j 
I I under PO-text) j 
L X J 

COBOL WORD 






1 


54 


Word Code 

(see note (?) under PO-text) 



SPECIAL NAMES 






1 


55 


Code 

© 



NFILES 



r — T 1 

10 jl I 

|.— + ^ 

I 56 1 Number of files | 
I I in USING I 

t X J 



COBOL WORD 2 



57 



Word code 
(see note 
PO-text) 



10} under 



FIGURATIVE CONSTANT 

r — T ^ 

I 0|1 I 

^-_+ ^ 

|75 1 EBCDIC value of j 
I I figurative constant | 

L — X J 
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STANDARD DATA- NAME REFERENCE 

r — T T 

|0 U I 

^.-+ ^ 

|79|05 (hex) = TALLY| 
L X J 

CARD NUMBER 

r — T 1 

10 |l-2 I 

^__+ ^ 

I 81 1 Compiler-generated sequential | 
J I source card number tfB) j 
L — J. ~ J 

GENERATED PROCEDURE-NAME DEFINITION 

r — T ■ 1 

|0 |l-2 I 

^_-+ ^ 

]88|GN number — identifying number | 
I I assigned to compiler-generated | 
I I procedure-names from COMMON field] 

j I GNCTR I 

L X J 

GENERATED PROCEDURE- NAME REFERENCE 

r — T 1 

!0 |l-2 I 

^__+ ^ 

]AA|GN number — identifying number | 
j (assigned to compiler-generated j 
1 1 procedure-names from C0M^40N field) 
I I GNCTR I 

L X J 

ERROR SYMBOL 

r — T — 1 
10 |1 I 

1B9|®| 

L XZl-J 

(l^ Dictionary attributes without count and 
major code fields. 

For alphanumeric edited items, 
elementary items with report pictures, 
and elementary items with sterling 
report pictures, phase 30 discards bits 
10-17 while copying the dictionary 
attributes. 

(2) Priority appended to procedure-name 
reference and definition by phase 3. 
Priority is part of dictionary 
attributes for section-names. 

(3) Bytes 22-24 are present only if the 
Q-bit is on. 

(u) Pointer contents: 
Bits Contents 

0- 1 Unused 

2-14 Dictionary section number 
15-23 Displacement in section 



© 



© 



® 



Dictionary attributes with flag byte 
field removed. Bits 1-4 of flag byte 
overlay bits 1-4 of level number. Bits 
5-8 of flag byte overlay count field 
preceding major code field. In level 
number field, if bit 5 is on, the level 
is 01: if bit 6 is on, the level is 
77. Otherwise, the bits are off. 

In the case of data-name references to 
special registers, the addressing 
parameters field of the dictionary 
attributes contains an ID number 
according to the following schedule: 



ID 


SPECIAL REGISTER 


FFOOOO 


UPSI-0 


to 


to 


FF0007 


UPSI-7 


FF0008 


CURRENT-DATE 


FF0009 


TIME-OF-DAY 


FFOOOA 


COM- REG 


FFOOOB 


SORT-RETURN 


FFOOOC 


SORT-CORE- SIZE 


FFOOOD 


SORT-PILE-SIZE 


FFOOOE 


SORT-MODE -SIZE 


FFOOIO 


NSTD- REELS 


PF0012 


DAY 


FF0013 


TIME 


FF0014 


DATE 


FF0015 


WHEN -COMPILED 


Bits Contents 



If 1, subject has variable 

length; bytes 5-6 contain 

VLC number. 

If 0, bytes 5-6 contain fixed 

length of subject. 
1-3 Unused 
4-7 1111 

Code 

(hex) M eaning 

01 Data Division 

02 File Section 

03 Working-storage Section 

04 Linkage Section 

05 Report Section 

06 Procedure Division 

07 Start of Declaratives 

08 End of Declaratives 

09 Start of DEBUG Packets 
OA Start of Q-Routines 

OB Start of Report Writer 

Procedures 

OC End of Report Writer 

Procedures 

OD End of Segment 

OF Date-Compiled Entry 

FO Security Entry 

Fl Identification Division 

F2 Program-ID Entry 

F3 Author Entry 

F4 Environment Division 

F5 Configuration Division 

F6 Source-Computer Entry 

F7 Object-Computer Entry 

F8 Input-Output Section 

F9 File- Control Entry 
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FA 


I-O Control Entry 


FB 


Special-Names Section 


FC 


Date-Written Entry 


FD 


Installation Section 


FE 


Remarks Entry 


Code 




.(hejc) 


Operator 


00 


addition 


01 


Subtraction 


02 


Multiplication 


03 


Division 


04 


Exponentiation 



® 



PFPop pY|at)ol 
COBOL word 
number 



00 (hex) 



If reserved word 
used invalidly 
(see also note 7 
under "Procedure 
IC-text (PO 
Poraat) ") 
If undefined or 
Bultiply -defined 
symbol found 



lOj The first bit of byte 1 is used as a 
flag. A setting of indicates a PN 
statement. & setting of 1 indicates a 
verb statement. 
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PBOCEDDRE IC~TEXT fP2 FORMAT) 



FILE-NAME REFEBEMCE 



— I— r 

oni 



I 8-9 I 



21|n|l/0 verb! Switches I First |DTF | Switches |Flle nuiber|NaxlBUB| 
I loptlfMis I |BL I pointer I ^-^ (on multiple | record | 
I I (1; I (2) |nu«ber|nu»ber | (3) I file reel | length | 
t ♦ ^"^ 1 ^"^ I « 1 -TS 1 1 1 



10 



11 



12-13 



I 1* I 



15 



I 16 



Switches 

© 



Switches! User naxlBunj Access! Print control !Dnased 
I label lengthjnei^hodicoBs^lcatlonl 



© 



iCSJ ! CU ! 



17 



18 



19 



I 20-21 

+ 



22 I 



23-25 



26-28 



•n- 



idk for |Pointer to 
ACTUAL KEY I dictionary 
data-name j entry for 
if DA (ACTUAL KEY 
(data-name 
I if DA 



14ln-13 to n-12 



Secondary (Secondary (Secondary (Block 
DTP pointer I DTP pointer! DTP pointer I size for 
number | number j number jfile 
I I I 
I i I 
i I I 
I i I 
1 1 I 



Switches 

(fa 



® 



I 



® 



® 



jGN numbers 
I for 
IQ-routines 



® 



1 



!n-11 to n-10 |n-9 to n-8 !n-7 to n-6 (n-5 to n-U 



b 



+ 



(PN number for (PN number for(PN number for|PN number for 
(standard error (file header (file trailer (end of volume 
(declarative | label (BOF) (label (EOF) | label (EOV) 



(n-3 to n-2 



(n-1 to n+1 ( 



(PN number for (Pointer to | 

(beginning of j dictionary | 

(volume label I entry fpr j 

I (BO?) (file (10; ( 



7ERB INFORMATION 



-I — r 



! 1 1 1 2 through 1 + c 
I 1— I- 



|24|c!Follows verb string for EXAMINE, TRANSFORM, EYAL, ADD, | 
( ! (SOBTRACT, MULTIPLY, DIVIDE, OSB, DEBUG. ( 

I ■ > I ; I 

VERB INFORMATION (VSAM) For 7SAM READ, NRITE, RBVRITE, DELETE, and START 



— r 

I 



1 I 
j- 



2U! c 
I 

l(3e^ I 



I ACB ! Execution-time 
I number ( Information 



3f^ I 



5-7 



Compile-tlme! Dictionary pointer 
information (to RECORD KEY 
jdata-iuH^ 
3 c) ( (3d) 
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VSftM FILE- NAME REFERENCE 



10 



r — T T 

jo j 1 1 2 through 9 

1.-.+ ^. + ^ 

1 26 1 n I Dictionary attributes of j Count of all GNs for | 
1 I I file (see "FD ENTRY" in JQ-routines associateaj 
I 1 (3a) ("Section 5. Data Areas") jwith this file | 
L__jJbi_i ■». J 



fll-12 Tl3-lU Il5-22 l23-2a | 

{ + + + ^ 

JGN number for|GW number for | Reserved | Pointer to | 
I string of j STANDARD ERSOR| ^-^ | dictionary | 
Iw-routines |decla^ative | iod jentry for file| 

iGNs I fog II I 

I. X S-2 X X J 



D&TA-MAtlE IMPORMATIOH FOB UNSTRING 

-r 



I on 
I — e 

r2A|n 

I I 
i i 
I I 

I I L 



I 3-5 
H 



Type I Length 
flag I 

©! © 



6-9 



Base code 

© 



10-11 



12 



Displaceaenti Number of digits 
i to right of 
I decimal point 

® j © 



13 



Scaling 
factor 



yotet If bits tt-7 of the Type flag indicate an edited data itea, the following fields are also 
generated. 



I 1 — I— — — — 

I oni 2-a 
I 1— f 



I 



|7 - n ♦ 1 



-4- 



|2A|n|Size of IBL&NK WHEN iNunber of|Edit mask 

I I Idata -iteaiZEBO indicator | bytes in | (PICTURE clause for 

III 00^ I pi) ledit aaskldata itea) 



DATA- NAME REFERENCE 

I 0|l|2ton- 5orn- 2 

I 30 ln| Dictionary attributes of data- 
I I I name. See "LD Entry" in 
I I ("Section 5. Data Areas." 



® 



n-3ton-2 ln-lton+l| 



n - 4 

Count of all GNs ) First GN number in series j Pointer to 
for Q-routines j of all GN numbers for | dictionary 
under item j Q-routines under item j entry for 
I litem 

1 @ 









DATA-NAME REFERENCE FOR KEY CLAUSE 



I T-T- 

|0|l|2ton-6orn-3 



In - 5 



|n - U to n - 3 



^_-+_+ + + ^ 

30 1 n| Dictionary attributes of (Count of all GNs | First GN number in| 
I j data-name (see "LD | f or Q-routines (series of all GN 
I I ENTRY" in "Section 5. (under item 

I (Data Areas") | 

II @ I 
.x_x z:^ X. 



L — x_x :ri X X j 



numbers for Q- 
I Routines under 
I item 

X. 



I T 1 

|n-2|n-lton+l | 
^ + ^ 

(Index (Pointer to ( 
(ACB (dictionary entry ( 
(number (for item ttO) ( 
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SUBSCRIPTED DATA-NAME REFERENCE 

r — T-T T 1 

jo |1|2 through n-2 jn-lton+l j 

H-4-+ + i 

I 31|n|Dictionary attributes of subscripted] Pointer to dictionary! 
I I I data-name. See "LD Entry" in [entry | 

j I ["Section 5. Data Areas." (n) O | (10) j 
L ±-x .^ ^_-.j. irr J 

NUMERIC LITERAL (DECIMAL) 

r — T-T T T 1 

|0 |1|2 I 3 \U through 1 + n| 
^_+_+ + ^. ^ 

j 32 |n [Positions to the | Positions to the [Literal in | 
I I [left of decimal [right of decimal [packed decimal [ 
I i I I [format [ 
I — j._a. X X J 

FLOATING-POINT LITERAL 

r — T — T 1 

1 0[1 [2-9 [ 

I 33 [ 08 [Literal represented as dounle- j 
[ I [precision floating-point number j 
L X xl J 

ALPHANUMERIC LITERAL 

r — T-T 1 

[0 [1(2 throuah 1 + c | 

[3tt[c I Literal in EBCDIC [ 

L x_x J 

"EXHIBIT NAMED" NAME 

r — T-T 1 

[0 |1[2 throuah 1 + c 1 

^__+_| ^ 

|35icji.3CDIC form of name used in EXHIBIT j 
j I (NAMED statement j 

t — x_x J 

INDEX-NftML REFERS. 4CE 

r T-T T T T T 1 

|0 |1[2 [3-a [b-6 [7-9 [10-11[ 

f— +-+^ + + + ^ 

) 36 I n|Qj)| Index-name] Length of [Pointer to dictionary | ^,^^ [ 
I j I [number [subject ai»)| entry for item OO) | (13) [ 
L — x«x — X X .iix ^bi X — bi_j 

LISTING A-TEXT FOR PROCEDURE- NAMES 

r — T-T 1 

[0 |1[2 through 1 + c j 

,.__+_+ ^ 

1 37 |c[ EBCDIC crocedure-name; bit of the | 
[ [ jprecedina field is set to 1 | 

L x_x J 

LISTING A-TEXT FC!^ VEHPS 

r — T-T T 1 

jo [1[2 through n[n + 1 [ 

f— +-+ + ^ 

[ 37 [n[ EBCDIC verb [Alphabetic verb sequence number [ 
t — x_x X J 
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MULTIPLE GN REFERiiNCE 

T 



r — T-T — - — 

10 |l|2-3 

|38}n|GN number) 
t JL-J. X- 



-T 1 

|n throuah n + 1) 
.+ ^ 

I GI< nuinber | 
_x J 



FIGURATIVE CONSTANT "ALL" (Greater than 1 character) 



|0 HI Variable | 

^-_+-| ^ 

139 |cl Alphanuireric literal following ALL| 
t — x-x J 



CRITICAL PROGRAM BREAK 

r — T 1 

10 U I 

^--4 ^ 

1 1*2 I Break code 0.5)1 
I X ^J 

BKLATIOViL CODE 



I 1 

|0 |1 

I 1 

I 50 1 06 (hex) 

I 108 (hex) 

I |0A (hex) 

I IOC (hex) 
I I 



Equal 

Greater than 
Less than 
Not less 
than 



PHASE HO OPTIMIZATION INFORMATION 



on 



|43|T7Be code | 
I I (16) I 



COBOL WORD 



I 1 

10 n 

I — I 

I 5U I Word code ^^ 

I I (See note QO under 

I I "Procedure^C Text (PO Pornat) •») 

1,1 I ,. 



SPECIAL MAHES 



I 1 

10 I 

I h 



|55|Code 1 

I I (See Note (5) | 
I Under PO-text) | 



COBOL NORD 2 



|0 I 
I h 



157 1 Word code 
I I (See note 
i junder PO>text) 



Text Poraats 361 



llcttASttd Baterial > Property of IBR 



FIGURATIVE CONSTANT 



10 11 
I 1- 



(751 EBCDIC value of figurative constant 

I i . . 



STAHDABD NAME RFFERENCB 



I 1 

10 M 

I 1 

1 79 1 05 (hex) 
I I 



^ 



= TALLY I 



CARD NOHBER 



|l-2 



1 1 

81 iConpiler-generated sequaotiall 
I source card number uj) | 



CARD NOHBER FOR FLOW 



I 011-2 
I 1- 



1 82 1 Card number 

t I 



VERB 



|1 
1— 



12 



8U|Verb code 

|(See note ^3J under 

I "Procedure^C-text (PC 

I Format)") 



(Count of eleaents that | 

I follow for this statenentj 

I I 

I I 

I t 



GENERATED PROCBDORE-NAHE DEFINITION 



1 1-2 

+ 



BSIGN number — identifying number assigned to compiler- I 
{generated procedure-names from COHHON field GNCTR j 



GENERATED PROCEDORE-NAME REFERENCE 



11-2 



+ 



AA|GN number — identifying number assigned to compiler- 
i generated procedure-names from COHHON field GNCTR 
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IHTPRHEDIATF RFSOLT RBPEFEMCF 



10 11-2 
I 1- 



IBAIIR number — identifying nuaber assigned 
I I to interaediate result 



HOHBRIC LITERAL (BIHARY) 



|0 n-2 

I 1- 



JBB I Literal in 
I {binary foraat 



TEMPORARY RBSDLT PFFFPEHCE 



10 |1-2 
I 1- 



|BC|TR nunber 
I I 



FROCEDDRB-FABE DEFIFITION 



|0 II 
I h 



12-3 



|C7 IPriority |PF nunber — identifying sequential number of 
I inuaber t source procedure-naae, assigned from COMMON 
I I I field PNCTR 



PILE-NAME HEPPRENCE 



10 11-3 

I \- 



JCS I Dictionary pointer 
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VARIABLE PBOCFDUEE-NAMB DFPINITION 



r— — I — 
10 II 



12-3 

4- 



I 1 

I C9 1 Priority number of|VN nuaber — identifying nuaber assigned to coapiler- 
I Iseaaent in which faenerated variable procedure-names froo COMMON 
I I vh' located | field VHCTR 



PROCEDDRE-NAHE REFERENCE 



10 II 



1 2-3 
+ 



I 1 

I DO I Priority number of |PN number «-- identifying sequential number of 
t I segment in which i source procedure-name, assioned from COMMON 
I |PN is located I field PNCTR 

« ' u . . . . , ■ ,..,.■ , „■■ 



PROCEDOPE-NAME REFERENCE FOR XFEF 



I r— 

10 |1 



12-3 



I H 



I 1 1 

I D(» I Priority number of |PN number — identifying sequential number of 
I I segment in which | source procedure -name, assigned from COMMON 
(20)1 PN is located | field PNCTR 



VARIABLE PROCEDDRB-NAME REFERENCE 



10 n 



12-3 

+ 



I 1 , 

I DB I Priority number of |VN number — identifying number assigned to compiler- 
I {segment in which {generated variable procedure-names from COMMON 
I |VN is located | field VNCTR 



GLOBAL TABLE REFERENCE (TYPE 1) 



10 II 
I h 



12 



I F9 1 Cell code for 
I {Global Table 

I.I ■ ■ 



sk i Displacement in bytes { 
from start of cell ( 



Task I 

© ! 



GLOBAL TABLE REFERENCE <TYPF 2) 



© 



10 II 
I 1- 



12-31 
4- 



(FA (Cell code for Task or -^(^.^ ( 
( (Program Global Table 0§)i^ 



Bit 


Meaning 





No END or INVALID clause 




on this sequential I-O 




statement 


1 


Standard-sequential file 


2-3 


Not used 


4-7 


Verb options, per table: 


VERP 


CODE OPTION 


OPEN 


00 OPEN, INPUT 




01 OPEN, NO REWIND 




02 OPEN, REVERSED 




Oa OPEN, ODTPDT 




OC OPEN, INPOT/OOTPOT 


READ 


08 READ INTO 


NRITF 


08 WHITE FROM 



® 



CLOSE 



3 
4-7 



00 CLOSE, REWIND 

01 CLOSE, NO REWIND 

02 CLOSE WITH LOCK 

08 CLOSE REEL 

09 CLOSE REEL, NO REWIND 



Meaning Mask 

If 1, 0-routines required X'80» 
As follows: 

00 = Variable records X»00» 

01 = Fixed records X»20« 

10 B Undefined records x*40* 

11 = Spanned records X»60» 
If 1, Multiple reel file X»10» 
Number of BLs for file 



^^ Bits 0-3: Access method, as follows: 



Bits Access Method 

0001 DTFCD 

0010 DTFPR 

0011 DTFMT 

0100 DTFSD 

0101 DTFDA 

0110 DTFIS 

0111 DTFDU 
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© 

® 
© 
@ 
© 



© 



Bit ft: Set to 1 if any of the 
following conditions occurs: 

• OHR, if access nethod is DTFCD. 

• APPLY WRITE ONLY, if access aethod is 
DTPMT or DTPSD. 

• ACTUAL KEY SPECIFIED, if access 
■ethod is DTFDA for DA Sequential 
File. 

• IBM extension (RENItlTE) for DTFDA, 
Random File. 

• Load type DTP generated, if access 
method is DTFIS. 

Bit 5 

• Set to 1 if access method is DTFDA 
and relative track addressing is 
used. 

• Set to 1 if access method is DTPNT 
and file is an ASCII file. 

• Set to 1 if access method is DTFIS 
and file is double buffered. 

Bit 6 

• Set to 1 if device is 3525 
Bit 7 

lit 





1-7 



~Set to 1 for associated file 
Meaning 

- SEQUENTIAL ACCESS or READ 
NEXT with DYNAMIC ACCESS 

1 a RANDOM or DYNAMIC ACCESS 
Unused 



git fi?^p;l-pq 

« No duplicate string follows 
1 - Duplicate string follows 

(READ INTO with HOVE only) 
1-7 Unused 

This field is used only for a READ verb 
with a KEY clause. 

Count field - 6 for READ verb, 
otherwise = 3. 

For START with KEY dataname clause, 
field - ACB*, otherwise = 0. 



AFTER ADVANCING used in program* 
AFTER POSITIONING used in 

program* 
Minimum case (single buffered, 

unblocked file or ISAM) 
CLOSE with lock 
OPEN optional 
♦carriage control DTFPR 



10 

08 

04 

02 
01 

©Code 

(Hex) Access Method 

01 DTFCD 

02 DTFPR 

03 DTFMT 
OH DTFSD 

05 DTFDA 

06 DTFIS 
Uv 07 DTFDU 

{jj This byte is used for print control 

communication between phases 40 and 51. 
lit Meaning 
0-1 Not used 
2-3 As follows: 

00 = BEFORE ADVANCING 

01 = AFTER POSITIONING 
10 = AFTER ADVANCING 

4-5 As follows: 

00 = Integer 

01 = Identifier (data-name) 
10 = Mnemonic Name 

6 If 1, END OF PAGE test is 
required 

7 If 1, ADV compiler option 
affects generated code 

Code 

7a (Hex) Meaning 

80 Device is 2560 

40 Device is 5424 

02 LINAGE specified 

01 FILE STATUS specified 

Bytes n-14 to n-12 are present only if 
the Q-blt is ON. 

Bytes 23-28 are present only for a 
file-name reference in a READ or WRITE 
statement. 



® 
® 




1-3 

4 

5 
6-7 



Code 
(Hex) 

80 

40 

20 



Meaning, if ON 

Blocked 

Not used 

SAME RECORD AREA 

Random access 

Label type, as follows: 

00 - Standard 

01 - User standard 

10 - Nonstandard 

11 - Omitted 



Meaning 

USING/GIVING 

ACTUAL KEY in working storage 

BEFORE ADVANCING used in 

program* 



Q[^ Pointer Contents ; 

Bits Contents 

0,1 Unused 

2-14 Dictionary section 

number 
15-23 Displacement in section 

Oc) Field contains zeros if 6N is not 
generated . 



© 



Dictionary attributes with flag byte 
field removed. Bits 1-4 of flag byte 
overlay bits 1-4 of level number. Bits 
5-8 of flag byte overlay count field 
preceding major code field. In level 
number field, if bit 5 is on, the level 
is 01; if bit 6 is on, the level is 77. 
Otherwise, the bits are off. 
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In the case of data-naae references to 
special registers » the addressing 
paraneters field of the dictionary 
attributes contains an ID nunber 
according to the following schedule: 



I&. 



SPgCj:^?. BPGjpsTER 
OPSI-0 

to 
OPSI-7 

CORRBHT-DATE 
TI HE-OP-DAT 
COH-REG 
SORT-RETORS 
SORT-CORE-SIZE 
SORT-FILB-SIZE 
SORT-MODE-SIZE 
HSTD-REELS 
DAY 
TIME 
DATE 
WHEN-COMPILED 



PPOOOO 

to 
PP0007 
PP0008 
PP0009 
PPOOOA 
FPOOOB 
PPOOOC 
PPOOOD 
PPOOOE 
PP0010 
FF0012 
FF0013 
FF0014 
PP0015 

If this data-nane reference contains a 
subscript or Index address calculation 
ID number, bit will be on, bits 1-7 
will contain 0, and bits 8-23 will 
contain the ID nuaber. The high-order 
bit is turned on by Phase 40 when it 
assigns the ID number. 

02) yote i Addressing Parameters field in 
^■■^ attributes in "LD entry" has been 

replaced by unique subscript identifier 
element to match entry in DEPSBS table. 

For alphanumeric edited items, 
elementary items with report pictures, 
and elementary items with sterling 
report pictures. Phase 30 discards bits 
10-17 while copying the dictionary 
attributes. 



This field is present only if the 
indexing is relative. When present, it 
contains a 2-byte binary literal, the 
object of the plus or minus. 



lii 


Cpntefi^s 





1 = subject has variable 




length: bytes 5-6 




contain VLC number 




= Bytes 5-6 contain 




fixed length of 




subject 


1-3 


Unused 


ft -7 


1111 



© 



Code 

(Hex) p^e^pj.pq 

01 Data Division 

02 Pile Section 

03 Working-Storage Section 
OH Linkage Section 

05 Report Section 

06 Procedure Division 

07 Start of Declaratives 

08 End of Declaratives 

09 Start of DEBUG Packets 



OA Start of 0-Routines 

OB Start of Report Writer 

Procedures 

OC End of Report Writer 

Procedures 

OD End of Segment 

OF Date-Compiled entry 

PO Security entry 

PI Identification Division 

P2 Program-ID entry 

F3 Author entry 

P4 Environment Divj.slon 

PS Configuration Division 

P6 Source-Computer entry 

P7 Object-Computer entry 

P8 Input-Output Section 

P9 Pile-Control entry 

FA I-O Control 

PB Speclal-Wames Section 

PC Date-Written entry 

PD Installation entry 

PE Remarks entry 



Code 

JMSL 
02 



M?tipj.pq 

Precedes a Procedure-name 
definition element equated to a 
VN for an ALTER verb, each 
qenerated Procedure-name 
defined for INVALID KET/AT END, 
each procedure-name definition 
following TO PROCEED TO in an 
ALTER statement, each USE 
declarative, and each ENTRY 
verb. 
04 Precedes a Variable 

procedure-name reference 
element at a PERFORM verb exit 
05 Precedes a Generated 

procedure-name definition 
element at the returning point 
of any performed procedure 
except a PERFORM. . .TINES 
procedure in a non-segmented 
program . 



Code 




(Rex) 


Meanipq 


02 


SAVE-AREA 


04 


SWITCH 


06 


Unused 


08 


DEBUG 


OA 


Unused 


Code 




(H^x) 


Pf^PiLnq 


00 


SDTPADR 


04 


VLC 


08 


CNCTL 


OC 


PPMCTL 


10 


PFMSAV 


14 


DTPADR 


18 


XSA 


1C 


PARAH 


ID 


Single-precision 
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floating-point 


IB 


Double-precision 




floating point 


20 


WORKING CELLS 


24 


TEMPORARY STORAGE 


28 


XSASN 


2C 


BL, SBL, BLL 


30 


VIRTUAL 


34 


FIB 



Except when the code for the preceding 
field is 2C, this field contains the 
identifying nunber from one of the 
COHMOH counters as described in 
"Section 5. Data Areas." ffhen the 
preceding field is 2C, this field 
contains the i and k fields of the 
addressing parameters, as follows: 



?!%§ 


ne?-a 


yaj.u^ P^apinq 


0-3 


i 


0000 BL 

0001 BLL 
0100 SBL 


t»-7 


- 


0000 Unused 


8-15 


k 


Base locator number 
assigned from 
corresponding 
COMMON counter. 



When the code for the preceding field 
is ID or IE, this field contains zeros. 



Used to write an XRBF element for 
procedure-name B in the following 
cases: 



• PERFORM A THRU B. 



• ALTER A TO PROCEED TO B. 



• A. 60 TO B. (where A is altered) 



The first bit of byte 1 is used as a 
flag. A setting of indicates a PN 
statement. A setting of 1 indicates a 
verb statement. 
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PROCppypp h'?nr 



PM AMD 6N DEFS AND PROGR&R BREAKS 

I 1 — I 

JO 1112 



I 1_| 

1 27 In 1 24 » C7, or 88 elenents 
I I I 



niSCELLANBOUS A-TBXT 



■ ■ T 'I 

|1|2 
4-+- 



28JnJAll elenents except 2H, Cl, 88 
I I (see 27) and 00 (see 29) 



E-TEXT 



I r—i — 

10 |1|2 
I 1— h 



129 In 1 00 elements 

x. I, I 



CARD NUNBER 



011-3 



1 

2C I Sequentially gene£ated 
I card nnmber Mj 



EBCDIC PROCEDURE-NAME GENERATOR 

I 1 .11. 

I OlConslsts only of this one-byte 
I — I field. Used to create in-line DC 
1 3Ct instruction for current card 
I jnuBber to be used by the TRACE 
t I verb 



MACBO-TTPE INSTROCTIOF 



on 

+ 



12 



*'*|Tyfifi. code 

! © 



OPERATION CODE 



on 



48 j Machine operation code.j 
1 00 (hex) used for CNOP | 



12 
H 



lvalue of second instruction 
I byte: condition code, length, 
I register, or ianediate field 

! © 



j Priority number if | 
I type code is 4C j 



SOURCE PROCEDURE-NAME DEFINITION 



—I 1 

0| 1 12-3 



-I 1- 



30 1 2 |PN number — number assigned 
I I from PNCTR in COMMON 



PROCEDURE-NAME REFERENCE 



0| 1 12-3 



,__, , 

4C|(2)|PN number assigned at point of| 
I I definition from PNCTR (COMMON) | 



GENERATED PROCEDURE-NAME DEFINITION 



011-2 



31) I GN number — number assigned from 
I6NCTB in COMMON 



GENERATED PROCEDURB-NAMF REFERENCE 



T" 



0|1-2 

+ 



50|GN number assigned at point of| 
I definition from GNCTR (COMMON) | 



VARIABLE PROCEDURE-NAME DEFINITION 



0| 1 1 2-3 

-h?;H- 



SSJ^i^iyN number — number assigned 
I ^-^ I from VNCTR in COMMON 



VARIABLE PROCEDURE-NAME REFERENCE 



— I 1 

0| 1 1 2-3 



+T?H- 



54ir2^|yN number assigned at point of I 
I ^^ I generation from VNCTR (COMMON) | 
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▼IBTUAL BEFERENCE 



ADDRESS REFERENCE 



0|1-2 
+ 



58|VIR number assigned to source CALL | 
I statement operand from VIRCTR | 
t (COMMON) I 



011-3 



14-6 



TSJAddressing -_ IDictionaty \ 
|parameters(7) jpointer^j I 



BASE LOCATOR REFERENCE 



SS '.^ ft-SiflEfl f:l*I«?Jn ^ :■ 






GLOBAL TABLE STANDARD AREA REFERENCE 

r- 



0|1 



12 



1 601 Type i Displacement in bytes from 
jcadeistart of specified area 



icQdeii 

1®! 



EBCDIC DATA-NAME REFERENCE 



+ c 



I 1 'I " I i. I 

I 0|1|2 through 1 

I HH \ 

|7C|c|Data-name in EBCDIC! 
« ' ■ I 



ADDRESS INCREMENTS 



011-3 



80 {Value that is to modify an 
I address. Negative value in 
|2's complement. 



GLOBAL TABLE OTHER AREA REFERENCE 



0|1 |2-3 



RELATIVE ADDRESS 



1 61 1 Type I Identifying number of itemi 
j c£tde I within specified area 



on 



12 



jcode for I Size, in bytes » 
{object jtpdulejof address 



I field (?) 



j constant 



LITERAL REFERENCE 



I 011-2 
I h 



168 I Number of literal! 



!3-4 



i Number of item inj 
! specified field ! 



DC DEFINITION 



-r 



! ! 1 1 2 through c 4 1 1 
I i-H 1 

|6C|c|Actttal constant I 



SPECIAL PRASE 60 ELEMENTS 



BASE AND DISPLACEMENT 

I I 
01 1-2 

+ 



REGISTER SPECIFICATION 



1 70 I Bits Contents 

10-3 Register number 
14-15 Displacement 



0!1 



AOJ Register number; 
100 through OF (hex) 
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IMCRSHSMTED ADDRESS 



I 011-3 
I h 



|«-6 

+ 



I At I Addressing | Dictionary 
I j par»eter | pointer 

\ \ Q) ! 



17-9 
I 



1 

lvalue of increment I 
I * ■ 

SPECIAL PHASE 60 ELEHEWTS 

Go) 



CALLING SEQUENCE DISPLACEMENT 



I on 

I 1— 



12 



I BO I Code for I Base code 
j j object module j svil^ch 
I l^^eld (lj) I © 



BPT-OBIGIN 



-r 



I 011-2 
I h 



tD4|GN number 



© 



The first bit of byte 1 is used 
as a flag . A setting of indicates 
a PN statement. A setting of 1 
indicates a verb statement. 



la) Code 

(Hex) Assembler Equivalent 

in CNOP 0,4 

08 CNOP 2,4 

OC CNOP 0,8 

10 CNOP 2,8 

14 CNOP 4,8 

18 CNOP 6,8 



^^ Byte 1 contains the priority number of 
the segment within which the procedure- 
name is located. 



1 3-4 



(Number of item in 
■specified field 



CALLING SEQUENCE DICTIONARY POINTER 

I 1 ' 

I 011-3 
I h 



© 



iB4 1 Pointer to dictionary entry forj 
I I file-name r data-name, or sub- | 
I I scripted data-name j 



FILE REFERENCE ELEMENT 



I 011-3 
I 1- 



|B8 I Pointer to dictionary 
j (entry for file 



PARAMETER FOR CALL TO SEGMENTATION AND 
TO DEPENDING ON SUBROUTINES 



I " 1' 
I 0|1 
I 1- 



|2-3 



^ 



I BC I Priority I PN number | 



PHASE 5 OPTIMIZATION INFORMATION 



I on 

I 1- 



I CO I Tyj;^ code | 
I 



|CO|Tyj>fi 



Code 

JhMl. 
00 



0t» 



08 



OC 



10 



18 



20 



24 



28 



2C 



ffeftBJ.pq 

EQUATE — equates variable 
procedure-names to initial 
value; followed by 
procedure-name reference . 

ENTRY — defines entry point; 
followed by EBCDIC data-name 
reference giving entry point 
name. 

BLCHN6 — specific contents of 
base locator changed; followed 
by base locator reference. 

ENDOPT — indicates end of 
register optimization. 

DECLARATIVES START — indicates 
beginning address of 
Declarative Section; produced 
only if SYHDHP or STATE is in 
effect . 

ADCON — defines address 

constant; followed by relative 
address reference, procedure- 
name reference, calling 
sequence displacement element, 
or calling sequence dictionary 
pointer to which ADCON points. 

START — identifies first 
executable instruction . 

DC — identifies constant; 
followed by DC definition. 

RESERVE — specifies registers 
not to be used by phase 60 or 
phases 62 and 63 followed by 
register specification element. 

FREE — indicates registers no 
longer reserved; followed by 
register specification element, 
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30 DESTROT — indicates that 

contents of register 1* or 15 
were destroyed; followed by 
register specification element, 
(phase 60 or Phase 63 generates 
a reload for the register from 
the appropriate cell when it 
needs the address contained 
there.) 

34 INIT — indicates when permanent 
registers must be loaded. 

38 0BI6IN — indicates where to set 
location counter for overlaying 
OSE BEFOBB REPORTING code; 
followed by generated 
procedure-name reference . 

3C REORIGIN — indicates that the 

reset location counter is to be 
reset. 

HO Q-BEGIN — indicates start of 
Q-routine coding; destroys 
permanent register assignment. 

44 Segmentation control break. 

HC Segment initialization (1-byte 

priority number in next field) . 

50 Dummy procedure-name reference 
element to force an XREF 
element to be written for the 
following procedure-name 
reference element. 



Pits 


cod^ Meaning 


0-3 


0000 Dnused 


4-7 


0000 BL 




0001 BLL 




0100 SBL 


Code 




(^exl 


Meani^nq 


02 


SAVE-AREA 


04 


SWITCH 


06 


TALLY 


10 


#TDBGINF 


Code 




(h^x) 


HeanjLna 


00 


S DTP ADR 


04 


VLC 


08 


ONCTL 


OC 


PPMCTL 


10 


PFHSAV 


14 


DTFADR 


18 


XSA 


1C 


PARAH 


20 


Working Cells 


24 


Temporary Storage 


28 


XSASW 


2C 


SUBADR 


30 


Temporary Storage-2 


34 


FIB 


3C 


SAVE-AREA-2 


40 


SAVE -AREA- 3 


44 


REPORT-SAVE area 


48 


Global Table Overflow cell 


50 


Checkpoint Counter 


54 


Temporary Storage-3 





58 


Temporary Storage-4 




5C 


Index-name 




60 


lOPTRCTR 




64 


#TDBGCRD 




68 


#TDBGTRA 


© 


Bits 


Fi^elA 


CoAe Copt^nt, pp, pe^piLpq 




0-3 


i 


0000 BL 

0001 BLL 

0011 Address of 

data-name as in 
register specified 
by bits 12-15 

0100 SBL 

0110 Subscript cell 




«»-15 


d 


Displacement from start 
of area controlled by 
base locator. 




16-23 


k 


SBLr BL, or BLL number 
assigned from SBLCTR, 
BLCTR, or BLLCTR in COMMON 
or subscript cell number. 


© 


pits 




Cont?pts 




0-1 




unused 




2-14 




Dictionary section number 




15-23 




Displacement in section 




Code 






© 


(he?t) 


Heanipg 


00 


INIT1 






04 


TALLY 






08 


PARAN 






OC 


BL 






14 


SBL 






1C 


VLC 






28 


BLL 






2C 


LITERAL 




30 


IHIT3 






34 


Checkpoint counter 




38 


PGT 






3C 


TGT 






40 


INIT2 






44 


START 


(first executable 






instruction identified 






by START) 




<I8 


PN 






4C 


VIRTOAL 




50 


GN 






58 


VH 






5C 


VWI 






60 


SUBADR 






64 


Temporary Storage 




68 


External ADCON (for address of 
transient area in segmented 
program) 
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10j ThQ following special Phase 60 A-text 
elements are generated and then used by 
phase 60 to generate MVC instructions 
to initialize VM cells in the TGT: 

Identifier 

Byte Text Element 

90 A Q'byte element that 

contains the number of the 
VHI cell in the PGT. 

AS A 1-byte element that 

indicates that the value in 
the P6PIDS field should be 
used as the "plus** element 
of the nvc instruction 

AC A 1-byte element that 

indicates that the value in 
the P6LliG field should be 
used as the "length" 
element of the HVC 
instruction 



20 
24 
28 
2C 
60 
64 

©Code 
(hex) 
00 
01 



^Code 
01 



^.—v Code 


P^^p;|.Bq 


^^ 04 


TALLY 


08 


PARAH 


OC 


BL 


10 


SAVB2 


14 


SBL 


18 


FIB 


1C 


VLC 



02 
03 

04 
05 

06 



PH 

GN 

BLL 

Literal 

SOBADS 

Temporary Storage 



Heapino 

Ho preceding base code 
Base code precedes 
this element 



Meaning 

Precedes a load instruction which 

is not followed by a branch 

instruction 

Precedes any possible entry point 

for which addressability must be 

established 

Precedes a load instruction for a 

PH or 6K which must be processed 

with an address constant cell in 

the PGT 

Precedes a Variable 

procedure-name reference element 

at a PERFORM verb exit 

Precedes a Generated 

procedure-name definition element 

at the returning point of any 

performed procedure except a 

PERFORM... TINES procedure in a 

nonsegmented program 

Precedes a load instruction for a 

PN or GV which is followed by an 

unconditional branch instruction 
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OPTIMIZATION A-TEXT 



VIRTOAL DBPINITIOH 



I r " 1 1 

I 01 112-3 I 

I 1 1 1 

|00|00|VIR number assigned fromf 
I I IVIRCTR in COMMON | 

I I I „ I „ I 



SOURCE PROCEDURE-NAME EQUATE STRING 
(NON-OPTIMIZER VERSION) 



1 ■ " 
0|1 

— h- 



I 2-3 



1 

OC|n / 2 {First PN nuBber assigned 
j (Number of | to identify a location 
(fields to t 
I follow) I 



ia-11 



I External -name in operand of 

I CALL statement » left justified » 

I padded with blanks 



LITERAL DEFINITION 



I 01 
I h 



1 1 21 3 through 2 + c 
-1-4 



|04|Typetc|yalue of 
I |cj2de| I literal 
I 1(1) I I 



GENERATED PROCEDURE-NAME EQUATE STRING 
(NON-OPTIMIZER VERSION) 



^TT 



+ 



12-3 

+ 



08 I n / 2 I First GN number assigned | 
I (Number of jto identify a location | 
I fields to i t 

I follow) I I 






In through n + 1 

I 

(Last GN number assigned to same 
j location as others in string 




In through n + 1 



|Last GN number assigned to same 
I location as others in string 



SEGMENTATION ELEMENT 



I Oil 
I 1- 



12-3 



1 14 {Priority number of|VN 

I {segment to which {number 

I {VN belongs | 



VIRTUAL CONSTANT ELEMENT 



I 011-2 
I \- 



13-10 
H 



1 18 {Contents of (External-name of 
i (LOCCTR In (routine to be 
( (COMMON (called 



GNUREF ELEMENT 



I 0(1-2 
h— I- 



{1C(GN number for AT END or INVALID KET 
I (branches, or GNs at REPORT-ORIGIN 



DISPLAY LITERAL DEFINITION 



( 0(1 
I 1- 



(2(3 through 2 4 c 
4-4 



( 10 ( Type (c( Value of 
le ( { literal 



I I90de( C 
I 10 I I 



LITERAL DEFINITION (Larger than 255) 



Oi 



54 Type 
iCode 



© 



2-3 



4-3 + c 



Values of I 
literal ! 
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PNOSEF ELENEVT 



I 011-2 
I h 



|20|PM nuBber for PNs following TO 
I I PROCEED TO in ALTER verbs or 
I I Declaratives PN nuober 



PROCEDURE-NAME REFERENCE 



I 01 112-3 I 

I — hps! « 

|4C|(2)PM nuBber assigned at point of | 

r I ^definition froB PNCTR (COBHOH) | 



GN-YN ELEMENT FOR PERFORM YERB 



GENERATED PROCBDDRB-NAHE REFERENCE 



r 



I 011-2 
I H 



i3-a 

+ 



|2a|GN number — |VN nuBber — 
I I associated with I associated with 
I I return point of | PERFORM EXIT 
t I a perforaed j 
I (procedure j 



VARIABLE PROCEDURE-NAME EQUATE 
PROCEDURE-NAME OR VARIABLE PROCEDURE-NAME 
EQUATE GENERATED PROCEDURE-NAME ELEMENT 
(OPTIMIZER VERSION) 

VARIABLE PROCEDURE-NAME DEFINITION 



"T 



I 011-2 
I H 



JSOJGN nuBber assigned at point of 
I I definition froa GNCTR (COMMON) 



I 01 1|2-3 



i38;^2\'VN nuaber — nuBber assigned j 
I l^froB VNCTR in COMMON | 



MACRO-TTPE INSTRUCTION 



(T) Sit Cp^e P^ftRlpq 

0-1 00 No boundary regnireaent 

01 Balfvord boundary 

10 Fullword boundary 

11 Double word boundary 

2 1 Floating-point nuaber 

3 1 EBCDIC nuaeric value 
(| 1 Binary nuaber 

5 1 Packed-deciaal nuaber 

6 1 EBCDIC character string 

7 1 Hexadeclaal nuaber 

(2) Byte 1 contains the priority nuaber of 
the segaent within which the 
procedure-naae is located. 



I on 

I h 



I 1(3 
I 1 



© 



The code 00 indicates EQUATE. 
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PROCEDORE A 1 -TEXT 



The following elements of Procedure A 1 -text 
are identical to their counterparts in 
Procedure A -text. 



PROCEDURE BASE REGISTER BLEHEMT FOR PNs 



I 011-2 
I h 



jCSiPN nuBber 



Code Element name 

2C CARD NUMBER 

30 SOURCE PROCEDURE-NAME DEPINITION 

34 GENERATED PROCEDURE-NAME DEFINITION 

38 VARIABLE PROCEDURE-NAME DEFINITION 

3C EBCDIC PROCEDURE-NAME 6£NERAT0R 

** MACRO-TIPE INSTRUCTIONMJ 

as OPERATION CODE ^<-. 

4C PROCEDURE-NAME REFBRBNCBra) 

50 iS^NBRATED PROCEDURE-NAME ifEFERBNCE 

54 StARIABLE PROCEDURE-NAME REFERENCE 

58 VIRTUAL REFERENCE 

5C BASE LOCATOR BEFBRBNCE 

60 GLOBAL TABLE STANDARD AREA 

REFERENCE 

64 GLOBAL TABLE OTHER AREA REFERENCE 

68 LITERAL REFERENCE 

6C DC DEFINITION 

70 BASE AND DISPLACEMENT 

7C EBCDIC DATA-NAME REFERENCE 

84 RELATIVE ADDRESS 

AO REGISTER SPECIFICATION 

BO CALLING SEQUENCE DISPLACEMENT 

B4 CALLING SEQUENCE DICTIONARY POINTER 

B8 FILE REFERENCE ELEMENT 

BC SEGMENTATION AND 60 TO DEPENDING ON 

SUBROUTINE CALL PARAMETER 



The SPECIAL PHASE 60 ELEMENTS are also 
present in Procedure A 1 -text and are 
processed by Phase 64 if OPT is specified. 



PROCEDURE BASE REGISTER ELEMENT FOR GNs 



I 011-2 
t h 



tCC|GN number 



BASE DISPLACEMENT DATA-NAME 



01 1-2 
+ 



13-5 



I DO I Addressing ^JDictionarjL | 
{parameters (6)pointer (5J\ 



© 



A MACRO-TYPE INSTRUCTION element with a 
44 type code (segmentation control 
break) has an added byte which contains 
the priority number. 



® 
® 



Present only for those PNs and GNs that 
have address constant cells in the P6T. 



ADDRESS INCREMENT 



011-3 
— I 



® 



Code 
00 

OB 



OF 







80 1 Value that is to fCod^ | 
j modify an address | \3) | 



ADDRESS REFERENCE 



0|1-3 



1 4-6 

4- 



1 

78 1 Addressing ^.-J Dictionary | 
I parameters (4J pointer (5) j 



1-3 



BLOCK NUMBER 



I on 

I h 



jC4|Block number j 



LA instruction not to be 

generated 

LA instruction to be generated » 

using register 14 as base 

register 

LA instruction to be generated » 

using register 15 as base 

register. 



£i&M Pofle Coptept or peaptpg 
i Use register 14 to 
address item. (A 
load instruction is 
generated if bits 2 
and 3 are on.) 
1 Use register 15 to 
address item. (A 
load instruction is 
generated if bits 2 
and 3 are on.) 

000 BL 

001 BLL 

011 Address of data-name 
is in register 
specified in bits 
12-15. Referred to 
by zero displacement 
from register. 

100 SBL 

110 Subscript cell 
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© 



® 



t-lS Displacement from start of 

area controlled by base 
locator. If a register 
is specified in bits 
0-3, however, bits U-ll 
contain zeros, and bits 
12-15 contain the 
register number. 

16-23 k 1 BL or BLL niimber 

assigned from BLCTR, or 
BLLCTR in COMMON 

2 Subscript cell number 

3 SBL number assigned from 
SBLCTR in COMMON 

Bits Contents 

0-1 Unused 

2-1'* Dictionary section number 

15-23 Displacement in section 

For data-names with permanently 
addressable BLs, phase 63 changes the 
ADDRESS REFERENCE element to a BASE 
DISPLACEMENT DATA- NAME element, using 
the permanently assigned register 
number from the BLASGTBL table and the 
displacement given in the Address 
reference element. The contents of the 
field are: 



LISTING A-TEXT 



LISTING A-TEXT FOR PROCEDURE- NAMES 

r — T-T 1 

jo |1|2 through 1+c | 

H-+-+ i 

|7C|c| EBCDIC procedure-name; bit of | 
I I I the preceding field is set to 1- j 
L — x-x J 

LISTING A-TEXT FOR VERBS 

r — T-T T 1 

jo |1|2 through njn+l j 

|7C|n|EBCDIC verb | Alphabetic verb | 
III I sequence number | 
L x_i X J 



END OF LISTING A-TEXT 
r- 



.0 I 
|01| 

L J 



Bits Contents 

0-3 Base register 

U-15 Displacement from start of 

area controlled by base locator 
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E-TEXT 



MESSAGE DEFINITIONS 

r T T T T 

1 0| 1| 2|3-U I 

H-+~+~+ ^ 

I 00 1 06 1 00 1 Identifying j 
j I I I message number] 
L X X X J 

r T 1 

1 5-6 1 7 I 

^ + ^ 

{Sequential ] | 

j source cardj ^.^ j 
j number | (l) j 

t X Jrl J 

MESSAGE PARAMETERS 

r — T-T 1 

I 0|1|2 ^^ ) 

I 00|n|IC-text identifier] 
j 1 I for parameter (T) | 
L — x_x JsC J 

r 1 

I 3 through n + 1 | 

|. ^ 

I Either the actual value to be | 
I inserted, or a pointer to the | 
JPARTBL field where the value is. | 

L J 

DELIMITER 

r 1 

I I 

^ — ^^ 



© 



Bits 
0-3 



Contents 

Severity code, as follows! 



® 



® 



0000 = W-level (Warning) 

0001 = C-level (Conditional) 
0010 

through = E-level (Error) 

0111 

1000 = D-level (Disaster) 

4-7 Phase number (0-6; F indicates 
FIPS attributes information) 

Code 

(hex) Meaning 

05 Alphanumeric literal 

22 Alphanumeric literal 

23 EBCDIC name 

3U Alphanumeric literal 

U2 Critical program break 

43 Level number 

HH Verb 

50 Relational 

52 Parenthesis 

53 Arithmetic operator 
5a COBOL word 

75 Figurative constant 

7 9 Standard data -name 

87 Procedure-name definition 

F9 Global Table reference. Type 1 

AA Global Table reference. Type 2 

FE Dictionary pointer 

(not an IC-t^xt element) 

This element is written on SYSOOU only 
if the SYMDMP, STATE, or FLOW option is 
in effect and the program is segmented. 
It identifies the end of DATA A-text, 
DEF-text, and E-text to Phase 60 and 
the beginning of text that is to be 
passed to phase 65. 
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XREF-TEXT 



DEF-TEXT ELEMENT FOR DATA-NAME DEFINITION 
OR FILE-NAME DEFINITION 

r T T T-T 1 

I 0|l-2 |3-5 |6|7 to c+6 | 
^—^ ^. +_+ ^ 

jus I Card | Pointer to | c| External- | 
I I number I dictionary entry] jname in j 
I I I for data-name j | EBCDIC j 
L X X x_x J 



DEF-TEXT ELEMENT FOR VERB DEFINITION 

r T T T T T-T T 1 

I 0|l-2 |3 |U |5 |6|7 |8 to c+6| 

H-+ +— + +--+-+—+ ^ 

i 48 j Number j EO | Alpha- | 00 1 c | FB j Verb 
I I of I jbetic I I I jtext 
I I occur- 1 I verb j | j | 
j jrencesj j sequence! I I 1 
I I I Inumber | | | | 

t X X X X X_X X 



DEF-TEXT ELEMENT FOR PROCEDURE-NAME 
DEFINITION 

r — T T T-T 1 

I 0|l-2 |3-a I5|6 to c+5 I 

^--4. + +_+ ^ 

J^CjPN I Card number] c|External-naine| 
I I number I j | in EBCDIC j 

L X X x_x J 



REF-TEXT 



-T 

I 3-4 



r 

I 0-2 

^ +_ ^ 

[Pointer to dictionary | Cardniomber | 
I entry for data-name j (l\ j 

I or PN number j j 

L X J 



REF-TEXT FOR VERBS 

r — T T 1 

I 0|l-2 13-4 I 
^.-4. + ^ 

I EO I Verb I Card number | 
I Icodel I 

I I ©I ® I 



DELIMITER 

r 1 

I I 



k -I 

I 77 I 

I ©I 



(T) Bit Meaning 

= Reference is for data-name 
1 = Reference is for 
procedure-name 



(2) This element identifies end of REF-TEXT. 

(3) The alphabetic verb sequence number 
followed by X'OO'. 

(4) The high-order bit will always be off. 
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DEBUG-TEXT 



CARDLOC ELEMENT 

r — T T 1 

I 0|l-3 |a-6 I 

1 10 1 COBOL ca^d 1 Contents of LOCCTR in | 
I I number (l)| COMMON when this | 
] I I card was encountered j 
L X X J 



ENDSEG ELEMENT 

r — T T T 

l_0|l-3 J4-6 I 

} 20 1 Zeros I Contents of LOCCTR in COMMON | 
j I I after processing last verb inj 
II I a segment or last verb in j 
I I I the program if not segmented j 
t — X X J 



SEGMENT ELEMENT 



I T 1 

I 0|4 I 

H-+ ^ 

j 301 Priority I 
L X J 



DISCONTINUITY ELEMENT 
r — 1 
I Oj 

l~H 

|U0| 
L J 



(l) The high order bit in the second byte 
of the card number field is set to 1 if 
the card precedes a COBOL verb. 
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DICTIOHABY EWTBT FORHATS 



This Chapter contains diagrams of the 
foraats of the entries in the dictionary. 
The dictionary is built in storage by 
phases 11 r 22 » and 21, respectively. If it 
exceeds its allotted storage space, the 
coapiler uses STS001 as a spill file. The 
dictionary is used by phase 30 to replace 
nanes with their dictionary attributes in 
Procedure IC-text and is then released. It 
is also used by phase 25 to build the 
D&T&TAB and OBODOTAB tables for the Debug 
File when STMDNP has been specified. 
Dictionary handling is perforaed by the 
ACCESS routines described in "Appendix A. 
Table and Dictionary Handling." 

The following notes apply to the fomat 
diagrams in this chapter: 



• The top row of figures shows the nuaber 
of bytes in the field. 



• Shaded areas indicate fields that are 
present only if the condition they 
satisfy is present. 

• c s Vuaber of bytes in the following 
field. 

• n » Total nuaber of bytes to follow in 
the entry. 

• Individual notes, applying to 
particular fields, are nuabered 
consecutively with the numbers 
encircled. 



PROCBDUSE-MAHE (PARAGRAPH) ENTRY 



HASH Table Pointer 



;;'<"'>> i|'.'W 't"K 










i 4As/' 'i 



Basic Fields 



1 1 Variable 

■I- 



clHaae 
I 



I 1 

I Count I 
land I 
Inajorl 
Icode I 
I (2) I 



Attributes 



1 

Character- I PH 
isti<:s I nuaber 
(3) I of this 
^"^ {paragraph 

I 



1 I 



Unused i Priority 
I nuaber 



PROCEDURE-IIAHE (SECTION) ENTRY 



HASH Table Pointer 



Deliaiter 
Pointer 



Basic Fields 



Attributes 




I Pointer to 
I dictionary 
I entry for 
I next BBfAi-on- 
jnaae Q) 



I I 1| Variable 



tclNaae 
t I 
i I 
I I 
I I 



I I 



I Count I I Characteristics I PN {Unused 

land I I t nuaber t 

I major | | |of this| 

jcqde I I I section! 

I (Z) I I ® I I 



I Priority I PN number! 
I number |of next j 
! i section I 

I I 1,1 
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PD ENTRY 



HASH Table Pointer 



Delimiter 
Pointer 



Basic Fields 



Attributes 






(Pointer to 
I next entry 
{after last LD 
(entry for 
I this file (jj 



invariable 



icJHame 
I I 
I I 
t I 
I I 



I Count 
land 
jnajor 
code 



I I I 1 

1 I 1 I 1 I 1 I 



I Flag I First |DTF | Access 
jbyteJBL inuaberJBethod and 
I Inuiberj JI/O specif 1- 

I (t I I I cations 

II I I © 



tPosl- |MaxiBum|Count |7lag 
It Ion {record land I/O j byte 
(number I length {optipnsj 

! ! ! © ! © 



{RazlDum 
(user label 
(length 



© 



( Secondary t Secondary | Secondary 
I DTF I DTF I DTP 
(nuBbi^ (nuBbi^ (numhi^ 

I (iJ I ® I ® 



Block! Device code, 
size I SAM Flag 

Q>! © j 
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HASH Table Pointer 






Deliaiter 
Pointer 



Basic Fields 



t1 {Variable 
4-1 



{Pointer to (cIMaae 
I next entry | j 
{after last { { 
(LD entry fQrj j 
{this fileM){ { 
I -VT I I 



Attributes 



{ 1 



I 1 

{Count (Flag 
j and ( byte 
{major{^^ 
{cftde \Q0 

I© ! 




{Count of 
(entries 

(in IND2TBL 
(for file 
I 



I 



1 1 

FIB nunber { Access aethod { 
(and I/O speci-( 
(fications ( 

I ^ I 



Displ. of (HUBber of | 
first (BLs 
entry in (needed 
I1ID2TBL (for this 

(file 
I 



SD EUTRY 



BASH Table Pointer 



Delimiter 
Pointer 



Basic Fields 



Attributes 






(Pointer to 
(next entry 
(after last 
(LD entry fq 
(this file 



^ 



{ (1 (Variable { { 

H H 1 {- 

{ (c(NaBe 

{ ( ( 

I { t 

{ { 

( ( 

I I 



{ { 1 



(1 

4- 



(Count { (Flag (First {HaxiBUBi{MiniBUB{ second | 

(and ( jbyteiBL (record (record (flag 

(major ( \ ^^ (nuaberj length (length (byte 

(code ( ( (10) ( { ( I •-N • 

{ © { (^^ { { { I Ov I 
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RD EWTFI 



HASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 






{Pointer to 
I next entry 
i after last 
JLD entry far 
I this fileQ) 



1 {Variable | | 
H 1 I- 




t Count 

land 

jnajor 



LD EMTBY 



HASH Table Pointer 



Deliaiter 
Pointer 



Basic 
Fields 



Attributes 






I If group itea, 
{pointer to next 
{entry after 
(last LD entry 
{for this, group 

! © 



1{ Variable 
H 



c{Name 
I 



(Count 
(and 
(■ajor 
(code 

I©© 



|1 



T 1 

(Variable 



+ 



+ 



+ 



( Hinor ( Addressing ( Flag (Level num- 
(code (paranetersjbytejber and 
(and (for iten ( ^-^ (variable 
(flags ( ( (15) (infocBAtiiOn 

( C12) ( ^^ ^-^ 



'© ^ 



CONDITION-NAHE FNTBT 



BASH Table Pointer 



■#> |^t;1^|H«^4 §'«•'; -i 



^l^^iM^f^::^.':^ 



Basic 
Fields 



|c (Naae 
( 



1 ( Variable ( { 1 



I 

( Count ( 

(and ( 

(aajor ( 

Icodf I 

I (2) I 



( (11 



Attributes 



1 Pointer to dlc- 
(tlonary entry 
(for data item to 
(be tested for 
(condition (T) 




{1{Variable( 
l_l 1 

(c (Pi-text { 
( jeleaent ( 

\ \ m) \ 
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BASH Table Pointer 



Basic 
Fields 



Attributes 






1 1 Variable 



+ 



cINane 
I 



I I 

H h 



r 
1 I 



+ 



I Count I |Flag|Indez-naie I Length of 

land i jbyteinunber taken j sab ject of 

laajor | | ^^ Ifron IUDBXI |OCCORS clause 

tcode I iOOlin COHHON | 

I (T) I I I I 



G) P^^-s Contents 

0-1 00 = Neither HASH table 

nor delimiter pointer 
01 B Delimiter pointer 

10 s HASH table pointer not 

followed by delimiter 
pointer 

11 s RASH table pointer followed 

by deliaiter pointer 
2-14 Dictionary section number 
15-23 Displacement in section 



® 



0-3 



1-7 



Contents 

Number of bytes in attributes 
field. If 0, see KElementary 
Item with Report Picture" portion 
of note 16. Counts9 if VSAH file 
1101 » Procedure -name entry 

1000 = FD entry 

1001 = SD entry 

1110 = BD entry 

0000 » LD entry under PD 

0001 = LD entry under SD 
0011 « FD entry (VSAM) 

0100 = LD entry in Working- 

Storage 

0101 > LD entry in Linkage 

Section 
0110 = LD entry in Report Section 
1100 s Condition-name entry 

1111 s Index-name entry 



® Sit 



1 

2 



7 

8 

9 

10 

11 



© 



12 
13 

14 
15 



SORT/MERGE Input/Output procedure 

Section-name 

Either name follows THRU in 

PBRFORH...THRn or it follows 

PBSFOSH in a PESFOSB without 

THRU. 
Referred to by ALTER 
Procedure-name of simple 60 TO 
Procedure-name of EXIT 
Procedure-name following 

to PROCEED TO in ALTER 

statement 
Dnused 

Referred to by DEBUG 
Defined in DEBUG 
Dummy section-name 
Defined in Declaratives Section 

or in DEBUG statenent 

referring to such section. 

Bits 12-15 describe type of 

of section. 
DeclaratiTe error routine 
Declarative label routine 
Declarative for Debugging 
Declarative report section 



Bttp 


Cpnt^pi:p 





1 ■■ 0-routine indication 


1-2 


00 « Format V 




01 ■ Format F 




10 « Format U 




11 « Format S 


3 


Multiple Reel 


a-7 


Number of BLs needed 




for this file 



Ma) Not present in Dictionary; added by 
^^ Phase 30. 
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® 



Bits 
0-3 



6 

7 

BaJ Bits 
0-2 



3-4 
5 
6 

7 



® 



® 



Bits 
0-3 

4 

5 

6-7 



Meaning 
Access Method 
0001 = DTFCD 

0010 = DTPPB 

0011 = DTPMT 

0100 = DTFSD 

0101 = DTPDft 

0110 = DTFIS 

0111 « DTPDO 



1 = 



® 



® 



1 = 



OMR (optical mark read) if 

DTFCD 

LOAD file if DTPIS 

APPLY WHITE ONLY if DTPMT 

or DTPSD 

IBM extension, if DTPDA, 

Bandom Access 

ACTUAL KEY, if DTPDA, 

Sequential Access 
Otherwise, Onused 
1 " Direct file with relative 

addressing 
1 * ASCII, if DTPMT 
1 « Double buffered, if DTPIS 
1 s 3525 associated file (print) 
1 = 3525 

ffeanApq 
Access node 

100 = ACCESS IS SBOUENTIAL 

010 = ACCESS IS RANDOM 
001 » ACCESS IS DYNAMIC 
Unused 

1 = VSAM RELATIVE 

1 - VSAM INDEXED 

1 - VSAM ADDRESSED SEQUENTIAL 

Contents 

Number of bytes that follow 

1 - SAME RECORD AREA 

1 s RANDOM ACCESS 

= SEQUENTIAL ACCESS 

00 '^ standard label 

01 = user standard label 
^0 - nonstandard label 

11 = labels omitted 



Dictionary pointer to ACTUAL KEY, if 
specified. Phase 30 appends idk 
addressing parameters for the ACTUAL 
KEY. 



If access method is DTPDA, DTFCD, 
DTFDR, or DTPIS (ACCESS RANDOM) , fields 
contain zero. 

Fields also contain zeros, unless OPEN 
option for a particular access method 
was specified. Otherwise, fields are 
as follows: 



Access method 

DTPMT 



DTPSD 



DTPIS (ACCESS 
SEQUENTIAL) 



Bitp 


Contents 





1 = USING or GIVING specified 


1 


Unused 


2-4 


Carriage control type 




000 s none 




001 = WRITE AFTER POSITIONING 




010 = NftlTE AFTER 




100 = WRITE BEFORE 




110 = mixed 


5 


1 s file single-buffered. 




unblocked or ISAM 


6 


1 = CLOSE WITH LOCK 


7 


1 » SELECT OPTIONAL 



© Code 
80 
40 

04 
02 
01 

©Bits 
1-2 



3 
4-7 



Field OPEN Option 

1st INPUT 

2nd OUTPUT 

3rd INPUT REVERSED 

1st INPUT 

2nd OUTPUT 

3rd I/O 

1st RETRIEVE 

2nd LOAD 

3rd Contains zeros 



® 



Bits 
0-1 

2-3 

4-7 



Device 

2560 

5424 

ADV option for this file 
LINAGE specified 
FILE STATUS specified 

Contents 


00 = Format V or S 

01 = Format P 
10 = Format U 

1 = ASCII collating sequence 
Number of BLs needed for this 
file 



Contents 

01 s LABEL RECORD STANDARD 

10 = LABEL RECORD OMITTED 



Number of work units 



During phase 30 operations, the flag 
byte field is removed. The first four 
bits overlay the first four bits of the 
level number, and the last four bits 
overlay the count field preceding the 
major field. In the level number 
field, if bit 4 is on, the level is 01; 
if bit 6 is on, the level is 77. 
Otherwise, these bits are off. 
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^^ 0-3 



4-5 



0000 Error detected for this 

operand 

0001 Fixed -length group 

0010 Alphabetic 

0011 Alphanumeric 

0100 Variable-length group 

0101 VuBeric-edited itea 

0110 Sterling report item 

0111 Usage is index 

1000 External deciaal 

1001 External floating-point 

1010 Internal floating-point 

1011 Binary 

1100 Internal decimal 

1101 Sterling nonreport 

1110 Alphanumeric edited 

1111 Onused 

PP^e ?u)^scr4.pt?, p^q^^y^et 

00 Hone 

01 1 

10 2 

11 3 

1 s OCCURS clause in this item 
1 « REDEFINES clause for this 
item 



p*t? 


n^u 


pe^ninq 


0-3 


1 


Type of BL containing base 
address of area: 

0000 » BL 

0001 « BLL 
0100 « SBL 


l»-15 


d 


Displacement from 
base address 


16-23 


k 


BL number 



® Mts 
1 

2 
3 



It 
6-7 



® 



^H) Location of item in data area of object 
module : 



INDUED BT 
STNCHRONIZED 
Subject of key 
(If bit 3 » 1) 

'^ DESCENDING 

1 « ASCENDING 
Report WITH CODE 

00 s TRAILING 

01 » LEADING 

10 s SEPARATE TRAILING 

11 s SBPABATE LEADING 



0-5 Level number 

6 1 » Q-routine required 

7-End Variable, according to 

the following chart: 
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^e) (Contlnuea) 



1 ... 
1 Characteristic 


IBits 


p.. ... _ .,_ _ . — .„ ..,-.., ,, 

Contents | 


t Fixed -Length Group Item 


1 1-17 


Length of group | 


1 Elementary Alphabetic 


1 1 


1 if JUSTIFIED RIGHT. | 


j or 


1 2-17 


Length of item. j 


1 Alphanumeric Item 


118-32* 


Dictionary section number of entry for group in j 
which this item is included, if the group contains | 
an OCCURS clause. | 




|33-«H* 


Displacement iii section. j 


1 External Decimal 


1 1 


1, if PICTURE contains S. | 


1 or 


1 2 


Flag bit | 


i Internal Decimal 


1 3-9 


If bit 2 is on, bits 3 through 9 contain the number! 


1 or 




of Ps to left of decimal point. If bit 2 is off, | 


{Binary 




they contain the total number of Ps plus 9s to j 


1 or 




right of decimal point. | 


1 Osage is index 


110-17 


Number of decimal digitli. | 




118-32* 


Dictionary section ntfmber of entry for group in j 
which this item is included if the group contains j 
an OCCURS clause. j 




|33-tH* 


Displacement in section. l 


{Internal Floating-Point 


I 1-16 


Unused | 




1 17 


= Short form j 

1 = Long form | 




118-32* 


Dictionary section number of entry for group in | 
which this item is included if the group contains | 
an OCCURS clause. j 




133-41* 


Displacement in section. | 


1 External Floating-Point 


1 1 


" Mantissa blank when positive | 

1 - Sign plus when positive | 




1 2 


Same for exponent sign j 




t 3 


- Implied decimal point | 

1 = Real decimal point j 




1 a- 9 


Scale of mantissa i 




110-17 


Total length j 




118-32* 


Dictionary section number of entry for group in | 
which this item is included, if the group contains | 
an OCCURS clause. j 




|33-m* 


Displacement in section. j 


1 *These bits are present 


, only if t\ 


le item is in a group with an OCCURS clause. They | 


I are not present after 


phase 30, I 


>ut at the end of the attributes from the dictionary,! 


1 3 bytes are appended indicating « 


jither the length of the item which this is | 


1 subordinate to or the 


VLC of the 


item . I 
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(le) (Continued) 



1 1 

1 Characteristic 


Bits 


1 ■ ~- > 

Contents I 


{Sterling Mon-report 


1 


- BSI shillings I 


1 Elementary Item 




1 > IBH shillings I 




2 


s 1 -character pence 1 

1 B 2-character pence j 




3 


» BSI pence 1 

1 » IBM pence 1 




ft- 9 


Number of decimal positions to right of V in pence | 
field 1 




10-m 


number of pound field digits | 




15-17 


000 B No sign specified | 

001 « Sign on high-order pound character j 
010 = Sign on low-order pound character I 
Oil s Sign on high-order shilling character | 

100 = Sign on low-order pence character | 

101 » Sign on low-order decimal position in pence | 

field 1 

110 « Unused i 

111 * Unused 1 




18-25 


Number of character positions t 




or 


or j 




18-32* 


Dictionary section number of entry for group in | 
which this item is Included, if the group contains | 
an OCCUBS clause. | 




33-m* 


Displacement in section j 




a2-ft9 


Number of character positions | 


IVariable'-Length Group Itea 


1- 2 


Unused j 




3- 5 


Number of BLLs for items | 




6-17 


VLC number | 




18-32* 


Dictionary section number of entry for group in | 
which this item is Included, if the group contains j 
an OCCURS clause I 




33-41* 


Displacement in section 1 


lAlphanuaeric Edited Item 


1 


1 = JUSTIFIED RIGHT | 




2- 9 


Number of bytes following j 




10-17** 


All zeros i 




18-32* 


Dictionary section number of entry for group in j 
which this item is included, if the group contains j 
an OCCURS clause | 




33-tH* 


Displacement in section t 




U2-57 


Size of item 1 




58-END 


Byte 1 contains PICTURE character. Bytes 2 and 3 j 
contain count of consecutive occurrences. These I 
three bytes are repeated until the entire PICTURE 1 






is recorded. j 


1 ♦These bits are present oi 


»ly if tl 


le item is in a group with an OCCURS clause. They | 


1 are not present after phase 30, but at the end of the attributes from the dictionary ,) 


1 3 bytes are appended indicating either the length of the item which this is | 


1 subordinate to or the VL( 


: of the 


Item. 1 


|**These bits are not presei 


it after 


phase 30. j 
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Qe) (Continued) 



1 ' ' ' 1 > ■ ' ■■' ■! 

t Characteristic IBits ( Contents 1 


IHumeric Edited Item | 1 | 1 = 2 or ♦ in PICTURE. 1 
1 12-91 Nunber of bytes following. 1 
1 1 10-17** 1 All zeros 1 
1 j 18-32* 1 Dictionary section nunber of entry for group in | 
1 1 1 which this item is included, if the group contains | 
1 1 1 an oceans clause I 
1 |33-m* t Displacement in section I 
1 1 42 1 1 s BLANK WHEN ZEBO .1 
1 1 43 j 1 s * represents all numeric characters | 
1 1 '(4 1 Onused 1 
1 145-49 1 Number of digit places in item | 
j 150-57 1 Scaling factor 1 
1 158-65 1 Size of item I 
1 166-END t Byte 1 contains PICTURE character (except ▼ or P) . j 
1 1 I Byte 2 contains count of consecutive occurrences, j 
1 1 1 These two bytes are repeated until the entire | 
i 1 i PICTURE is recorded. j 
j 1 I Exception: for CR and DB, first character appears | 
i 1 1 in byte 1 , the second in byte 2 . j 
III 1 


1 Elementary Item with t 1 | Unused I 
{Sterling Report PICUTRE | 2- 9 | Same as for Report PICTURE above I 
1 110-17 1 All zeros | 
i 118-32* 1 Dictionary section number of entry for group in j 
1 1 I which this item is included, if the group contains j 
1 1 1 an OCCURS clause j 
1 133-41* 1 Displacement in section 1 
1 1 42 t 1 s BLANK WHEN ZERO | 
1 1 43 1 « shilling delimiter is D I 
1 1 1 1 » shilling delimiter is S I 
I I 44 1 Same as bit 19 for pounds j 
1 1 45 1 1 « No pounds field | 
1 146-57 i Unused | 
1 158-65 1 Total length of item I 
1 166-73 1 Number of pound integer places I 
j (74-81 1 Number of pence decimal places j 


t *These bits are present only if the item is in a group with an OCCURS clause. They t 
j are not present after phase 30, but at the end of the attributes from the dictionary,) 
i 3 bytes are appended indicating either the length of the item which this is j 
I subordinate to or the VLC of the item. j 
j**These bits are not present after phase 30. j 



® 



If the switch = 1, the next (c) field 
is followed by a 2-byte field 
containing the displacement in the 
VALTRU table of the object of the VALUE 
clause. If the switch » 0, the rest of 
the entry is as shown. 



18J The first byte indicates the type of 
element according to the table below. 
It is followed by the rest of the 
Pi-text element. 



Byte 1 Type of Elemept 

32 NUMERIC LITERAL 

33 FLOATING-POINT LITERAL 

34 ALPHANUMERIC LITERAL 
39 ALL Constant 



@ Bit 



Meaning, if on 

Subject is variable length; last 
field contains TLC number. 
1-7 Unused 
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DEBUG FILE TABLES 



Hhen STHDNP or STATE are specified on 
the CBL card, phases 25 and 65 build 
additional tables for debugging purposes. 
When SYMDHP is specified, all seven tables 
which are diagramaed in this appendix are 
built and written on file SYS005. This 
file may be either on disk or on tape. 
When STATE is specified, only the PROCTAB 
and SE6INDX tables are built. These are 
written by phase 65 in the object nodule. 

The tables are accessed during execution 
of the program or at abnormal termination 
of the program by the subroutines of the 

Symbolic Dump progrsun. For details, see 
IBM DOS/VS COBOL Subroutine Library Program 
Logic . 



The seven tables list the 
characteristics of the data areas defined 
by the user as well as information about 
the relative location in the object module 
of the code associated with the card 
numbers generated for PNs and COBOL verbs. 
This information is used by the object-time 
COBOL library subroutines to produce the 
dumps at user-specified card numbers or 
card and verb numbers. If abnormal 
termination occurs, this information is 
also used to associate the address of the 
instruction at which abnormal termination 
occurred with its corresponding card and 
verb number in the COBOL source program. 

Phase 25 builds the OBODOTAB table if 
there are any OCCUBS clauses with the 
DEPENDI1I6 ON option. It also builds the 
DATATAB table. Phase 65 builds the 
PROGSUN, PROCTAB, CARDINDX, SB6INDX, and 
PBOCINDX tables. 

The tables are made up of fixed-length 
512-byte blocks; a 1-byte field containing 



the hexadecimal value *FF* marks the end of 
usable information within a block. Table 
entries are never split across a block. 



The debug file is single buffered and 
the address of the buffer is placed by 
phase 01 in location FIL5BDF in COHNOW. 
Each phase that uses the debug file is 
responsible for moving information into the 
buffer and marking the end of the buffer. 
Phase 00 is called only to write the buffer 
on the debug file. 



Figure 63 shows the positions of the 
tables in the debug file (SIS005) . The 
PR06S0N table contains information about 
and pointers to the other tables in the 
file. 



PR06S0H 



OBODOTAB 



DATATAB 



PROCTAB 



CARDINDX 



SB6INDX 



PBOCINDX 



Figure 63. STS005 (Debug File) 
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PROGSDM TABLE 



The PROGSOM table is the first table on the debug file. It consists of a single 
fixed-length 108-byte entry and contains infornation about the program and the debug file 
itself . 



U^vl 






Dec H^x 


Field Nane 


Sites 





PG PROG ID 


8 


8 8 


P6DBCLEN 


4 


12 C 


PGBL1 


4 


16 10 


P6BLL1 


U 


20 14 


P6SBL1 


4 


24 18 


PGDTP1 


4 


28 1C 


PGVLC1 


4 


32 20 


PGINDEX1 


4 


36 24 


PGEHDDTP 


4 


40 28 


PGENDNDX 


4 


44 2C 


PGDTDVAD 


4 


48 30 


PGDTNOn 


2 


50 32 


PGDTDSP 


2 


52 34 


PGPTDVAD 


4 


56 38 


PGCXDVAD 


4 


60 3C 


PGSXDTAD 


4 


64 40 


PGPXDVAD 


4 


68 44 


PGCXNDM 


2 


70 46 


PGSXNDll 


2 


72 48 


PGPXlifaN 


2 


74 UK 


PGSXDSP 


2 


76 4C 


PGPXDSP 


2 


78 4E 


PGPPDSP 


2 


80 50 


PGODOMUH 


2 


82 52 


PGHASH 


2 



84 

88 
89 



54 

58 
59 



PGPIB 

P6LNGTB 
PGSLACK 



1 
19 



Field DepcrjLption 

PROGRAM-ID 

Length of Declaratives Section 

BL1 address relative to the start of the TGT 

BIL1 address relative to the start of the TGT 

SBL1 address relative to the start of the TGT 

DTF1 address relative to the start of the TGT 

VLC1 address relative to the start of the TGT 

INDEX1 address relative to the start of the TGT 

End of the DTFs relative to the start of the TGT 

End of the indexes relative to the start of the TGT 

Device address of first block in DATATAB 

Number of blocks in DATATAB 

Displacement in the block of the first DATATAB entry 

Device address of PROCTAB 

Device address of CARDINDX 

Device address of SEGINDX 

Device address of PROCINDX 

Number of entries in CABDIHDX 

Number of entries in SEGINDX 

Number of entries in PROCINDX 

Displacement in the block of the first SEGINDX entry 

Displacement in the block of the first PROCINDX entry 

DisDlacement of floating-point virtual from the start 

of the PGT 

Number of bytes in OBODOTAB including the unused bytes 

at the end of the blocks 

Hashed compilation indicator which is matched by the 

COBOL library subroutine with the one in the DEBUG 

TABLE in the TGT. The date is hashed from the 

Communication Region within the Supervisor. 

Address of first File Information Block (FIB) relative 

to start of TGT. 

Length of PROGSOn table 

Reserved 



Note ; The only fields that may be zero in this table are PGDECLEN, PGODONOH, and PGFPDSP 
when there is no Declarative Section, or no OCCURS. . .DEPENDING ON clauses, or no internal 
floating-point items in the program. For TGT addresses which do not exist, the address 
of the first byte following the previous cell is used because these cells are used in 
calculating the number of TGT cells of a given kind to dump. 
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OBODOTAB TABLE 

The OBODOTAB table is an abstract of the DATATA6 entries for all objects of 
OCCDRS... DEPENDING OF clauses in the program. The OBODOTAB table, if present , follows 
the PROGSUn table on the next fullvord boundary and contains one variable-length entry 
for each unique object of an OCCORS.. .DEPFHDING ON clause. Each entry begins on a 
full word boundary within the block. 

The entries are essentially the sane as the DATATAB entries for the same nane. See 
the entries for elementary numeric items in the format of the DATATAB table. OBODOTAB 
entries differ only in that the card-number field is zero and the renaming information is 
omitted. Table-locators within the DATATAB entries are used to access the OBODOTAB 
entries. See the subscripting information portion in the format of the DATATAB table. 
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DATATAB TABLE 

The DATATAB table is the third table in the debug file. It immediately follows the 
last entry of the OBODOTAB table, if that table is present. Otherwise, it follows the 
PSOGSDM tabl^. The DATATAB table lists the characteristics of each data item in the DATA 
Diyision. The table consists of two fields, the Count-Nane-Type field has the same 
format for all entries. It varies in length between 7 and 36 bytes. The Variable 
Attributes field differs for each type of entry and is described on the following pages. 



Displ 
Dec |I?x 



1 1 
1+c 1+c 
2+c 2+c 


?i^ld H^me 
CARDMOH 


Bvtes 

1 

c 
1 
3 


5+c 5+c 


HAJNIN 


1 



COOHT-HAME-TIPE FIELD 

Fi^3.4 pegcyiptj^op 

Count field: Number of bytes (c) in name field 

Name field: Number of varies between 1 and 30 

Count field: Number of bytes in remainder of entry 

Card number where name is defined (contains zeros for 

RENAMES items) 

Type of entry 

Bit 

Bits Settings Meaning 

0-3 1000XXXX PD entry (non-VSAM) 

1011XXXX PD entry (VSAM) 

1001XXXX SD entry 

1110XXXX RD entry 

1111XXXX Index-name 

OOOOXXXX Level description under FD 

0001XXXX Level description under SD 

0110XXXX Level description under BD 

0100XXXX Level description in Working-Storage 

0101XXXX Level description in Linkage 

«»-7 XXXX0001 Pixed length group 

XXXX0010 Alphabetic 

XXXX0011 Alphanumeric 

XXXX0100 Variable length group 

XXXX0101 Numeric edited 

XXXX0110 Sterling report 

XXXX0111 Dsage index 

XXXX1000 External decimal 

XXXX1001 External floating point 

XXXX1010 Internal floating point 

XXXX1011 Binary 

XXXX1100 Internal decimal 

XXXX1101 Sterling non-report 

XXXX1110 Alphanumeric edited 

XXXX1111 RENAMES (level 66) 
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Dlspl 
SD Item I 



There are no variable attributes for an SD entry. 



ppy^PBg 4tep (leve?. 66) 
6+c 6-i-c BEM&NES 



1 



ywDEX name ; 
6+c 6+c 



IMDXCELL 



?D item (other than YSAM) ; 

6+c 6+c DTPNOM 
7+C 7+c ACCESSPLG 



yp jtep (VSftM); 
6+c 6+c PIE 
7+c 7+c ORGACC 



RD ite» ; 
6+c 6+c 



LIHECTF 



9+c 9+c 



PA6BCTR 



Bit 

7 



Bit 

Setting 

XXXXXXX1 

xxxxxxxo 



Heanina 

Next DATATAB entry RENAMES 
the saae iten as this one does 
This is the last (or only) item 
renaming an item. 



Index cell number in T6T 



1 


DTP 


number 




1 


Access 


method 










Bit 






pit 




sn^ip<Ts 


He^^ntPq 




0-3 




0001XXXX 
0010XXXX 
0011XXXX 
0100XXXX 
0101XXXX 
0110XXXX 


DTPCD 
DTPPR 
DTPMT 
DTPSD 
DTPDA 
DTPIS 




7 




XXXXXXX1 

xxxxxxxo 


Sequential access method 
Random access method 


1 
1 


PIB 


number 




git 




Pe?ift^pq 











Access is 


sequential 




1 




Access is 


random 




2 




Access is 


dynamic 




3 




Onused 






4 




Reserved 






5 




Reserved 






6 




Organization is indexed 




7 




Organization is sequential 



Addressing parameters of line counter 



Bit 
0-3 



Bit 

gettj-pqs 

OOOOXXXX 

0001XXXX 

0100XXXX 



peanj.nq 

BL entry 

BLL entry 

SBL entry 

4-15 Displacement from BL 

16-23 BL Number 

Addressing parameters of page counter (same form as 
addressing parameters above) 
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L^vel Description item ; 

Variable attributes for level description items are divided into two portions: (1) 
the type-dependent portion » (2) subscripting information portion. The subscripting 
information portion is the same for all level description item entries. It follows 
and is described after the type dependent portion descriptions. 

(1) Type dependent portion ; 



rj^ED ?,PH6TH GFOUP: 








6+c 6+c IDKPLD 


3 


Addressing parameters (same form as above) 


9+c 9+c LVLPDEPH 


3 


Bit 








Bit Settings 


Me^ninq 






0-5 XXXXXX1X 


Normalized level number 






6 


REDEFINES 






7-23 


Object time storage size 
(in bytes) 


VABJABLE LENGTH GROOp: 








6+c 6+c 


3 


Addressing parameters (same form as above) 


9+c 9+c H&XSIZE 


3 


Bit 








Bit Settlpqs 


Meftpinq 






0-5 XXXXXX1X 


Normalized level number 






6 


REDEFINES 






7-23 


Naxinum object time storage 
size (in bytes) 


12+c C+c VLCHOM 


2 


Bit 








Bit Settings 


Heapi^^g 






1XXXXXXX 


ODO Master 






1-3 


(Onused) 






a-15 


VLC number 


ELEHEHTAST. ALPHABETIC. 


ALPHAHDHERIC. REPORT. EDITED 


. STERLING. EXTERNAL FLOATING POINT 


6+c 6+c 


3 


Addressing parameters (same form as above) 


9+c 9+c JUSTRGT 


3 


Bit 








Bit SetU»^<Ts 


He«»pipg 






0-5 


Normalized level number 






6 XXXXXX1X 


REDEFINES 






7 XXXXXXX1 


JUSTIFIED RIGHT 






8-23 


Object time storage size 
(in bytes) 


IMTEPH^L FLpATfHG pOJflT! 








6+c 6+c 


3 


Addressing parameters (same form as above) 


9+c 9+c PLPTTPE 


1 


Bit 








Bit Settings 


Heaping 






0-5 


Normalized level number 






6 XXXXXX1X 


REDEFINES 






7 XXXXXXXO 


COMP-1 






XXXXXXX1 


COMP-2 


10+C A+C 


2 


(Onused) 





400 



Licensed Haterlal - Property of IBM 



BIHARY. INDEX. INTERNAL DECIHAL EXTERNAL DECIHAL t 
6+c 6+c 3 

9+c 9+C NUMINP01 1 



Addressing paraaeters (sane form as aboye) 



Bit 
Bit Settings Meaning 
0-5 Normalized level number 

6 XXXXXX1X REDEFINES 

7 XXXXXXX1 S in PICTORE 

1XXXXXXX Leading sign 
OXXXXXXX Trailing sign 

1 X1XXXXXX Separate sign 
XOXXXXXX Overpunch 

2 XX1XXXXX Significant digits left of 

decimal point 
XXOXXXXX No significant digits left 
of decimal point 

3 XXX1XXXX Significant digits right of 

decimal point 
XXXOXXXX No significant digits right 
of decimal point 

4>8 If bit 2 eguals 1, number of 

digits to left of decimal point. 
If bit 2 eguals 0, number of 
digits to right of decimal point. 

9-13 If bits 2 and 3 both equal ^, 

number of digits to right of 
decimal point. If only bit 2 or 
bit 3 eguals 1, number of Ps 
in picture 

1(»^15 (Unused) 
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(2) Subscripting Information Portion ; 

This portion of the Variable Attributes section begins immediately after the 
type-dependent portion . 

It ranges in size from 1 byte for an unsubscripted item to a maximum of 20 bytes for 
an item belonging to 3 variable-length groups. 

1 Guide to RENAMES and subscripting 



Bit 



1st subscript 
(if present) 



(most inclusive 
with OCCURS) 



Meapj.nq 

This item is renamed. . The 
next DATATAB entry renames it. 
This item contains an ODO clause. 
Item requires at least 1 subscript. 
OCCURS clause connected with the 
most inclusive or only group; or 
elementary item contains an ODO. 
Item requires at least two 
subscripts . 

OCCURS clause connected with the 
less inclusive group of 2 or the 
middle inclusive group of 3 or 
elementary group contains an ODO. 
Item requires 3 subscripts. 
OCCURS clause connected with the 
least inclusive group of three or 
elementary item contains an ODO. 



Heapi^nq 

Host inclusive or only group of 3 

Less inclusive group of 2 or middle 

inclusive group of 3 

Least inclusive group of 3 

If any of these bits equals 1, bytes 2 and 3 
of the group length information for the 
associated group contain a VLC number rather 
than the length of the group. 



Number of occurrences (Maximum number if ODO) specified 
in OCCURS clause governing this item. 



Displacement of next occurrence governed by OCCURS 
clause (See note) 



Bit 



Settings 
1XXXXXXX 


1 
2 

3 


X1XXXXXX 
XX1XXXXX 
XXX1XXXX 


4 


XXXX1XXX 


5 


XXXXX1XX 


6 

7 


XXXXXX1X 
XXXXXXXl 


VLC information 
Bit 
Bit Settings 

1XXXXXXX 

1 X1XXXXXX 


2 


XXIXXXXX 



2nd subscript 
(if present) 



3rd subscript 
(if present) 

(least inclusive 
with OCCURS) 



2 Number of occurrences (as above) 

2 Displacement of next occurrence governed by OCCURS 

~2 Number of occurrences (as above) 

.2 Displacement of next occurrence governed by OCCURS 
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1st subscript 
with ODO 
(if present) 



2nd subscript 
with ODO 
(if present) 

3rd subscript 
with ODO 
(if present) 



12 



OBODOTAB pointer for nost inclusive group or elementary 
ites containing an ODO 

Bit Cop tents 

0*8 Relative block number in OBODOTAB 

9-15 Displacement within block (in fullwords) 



OBODOTAB 



poin1;er for less inclusive group (as above) J 



OBODOTAB pointer for least inclusive group (as above) 



Hote : All subscript length information precedes any OBODOTAB pointers. 
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PBOCTAB TABLE 

The PROCTAB table contains one 5-byte entry for each card and/or verb in the source 
listing of the COBOL Procedure Division. The table is ordered on three levels: 

1. Priority (in ascending order of independent segments, with the root segment last) 

2. Card-number within priority 

3. Verb-number within card 

The last PROCTAB entry for a priority has a card and/or verb number of zero. In 
addition f the relative address field contains the address of the first byte following all 
instructions for the segment with that priority. 

Displ 

Dec Hex yield Name Bytes Pj.eild Description 
PTCDVB 3 Card-number and verb-number on source listing 

Bit Contents 

0-19 Card -number 
20-23 Verb-number 
3 3 PTRELAD 2 Relative address of instructions for this entry within 

program fragment to which it belongs 



CARDIWDX TABLE 

The CARDINDX table is a directory to the SE6IHDX table and contains one S-byte entry 
for each program fragment and one entry for each discontinuity in the COBOL instructions 
within a segment. Entries in the CARDINDX table are in ascending card-number order and 
are accessed by indexing through the table seguentially . 

The CARDINDX table starts at the beginning of a block. 

Displ 
Dec Hex Field Name Bytes Field Description 
CXCDVB 3 Card-number and verb-number of first card represented 

by this entry 

Bit Contents 
0-19 Card-number 
20-23 Verb-number 

3 3 CXPRIOR 1 Priority number associated with this card 
H 4 CXFRAG 1 Relative fragment number within the priority to which 

this card belongs 
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SEGIWDX TABLE 

The SEGIHDX table contains one 10-byte entry for each program fragaent, 
ordered on two levels: 

1. Ascending priority number 

2. Ascending fragment number within a priority 



The table is 



Pec Hex 



1 1 



Field Name Bvtes 



SXPRIOH 
SXBELAD 

SXPTL0C1 



SXPTL0C2 



Field pescyj.ption 

Priority number 

Address of this fragment relative to the beginning of 

the segment 

Table locator for PBOCTAB entry of first card number 

and verb number in this fragment 

Bit Contents 
0-14 Relative block number in PBOCTAB 
15-23 Displacement within block 
Table locator for PBOCTAB entry of last card and/or 
verb in this fragment 



PBOCINPX TABLE 

The PROCIHDX table is a summary index of the PBOCTAB table and contains one 10-byte 
entry for each block of PBOCTAB entries. PBOCIMDX entries are ordered by relative block 
number in the PBOCTAB table and are accessed by searching sequentially after indexing to 
a starting point determined by the block number from the CABDINDX or SEGIHDX table. 



D^spl 
£ec 




Field Name Bvtes Field Description 

PXCDVB 3 Card number and verb number of first entry in block of 

PBOCTAB table. 

Bit Contents 
0-19 Card number 

20-23 Verb number 
PXBELAD 3 Relative address of instructions for this entry within 

segment to which it belongs. 
PXDEVADB 4 Device address of PROCTAB table block related to this 

entry . 



V5AM FILE INFORMATION BLOCK fFIBl 



The file information block, a portion of the completed object module, is used at 
execution time by the ILBDVOCO and ILBDVIO COBOL library subroutines for processing 
input/output verbs used with VSAH files. The FIB is built by phase 21 and completed by 
the ILBDVOCO subroutine. 

Fixed Portion ; 



Displacement 




No. of 




p^x pe<3^pal 


Field 


Bvtes 


Description 





INAMED 


7 


External name 


7 7 


INAHECB 


1 


External name 


8 8 


IDEVICE 


1 


Device class and number 


9 9 


lORG 


1 


ORGANIZATION 
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Code: 



Equate 


Bit 










Bits Name 


Settings 


pianino 


Source 




0-7 lORVPS 


1000 


1000 


VSAK ADDRESSED 
SEQUENTIAL 


Code=:S 




I0R6SQ0 


1000 


0100 


ST50nENTIAL 


Code=S 




I0R6ASC 


1000 


0001 


ASCII file 
SEQUENTIAL 


Code=C 




I0R6SEQ 


1000 


0000 


SEQUENTIAL 


ORGANIZATION 
SEQUENTIAL 


IS 


lORGVIX 


0100 


1000 


VSAH INDEXED 






I0R6IN0 


0100 


0100 


INDEXED 


Code = I 




lORGIND 


0100 


0000 


INDEXED 


ORGANIZATION 
INDEXED 


IS 


I0R6RL0 


0010 


0100 


RELATIVE 


Code s= R 




lORGDIR 


0010 


0010 


DIRECT 


Code = D 




lORGDIH 


0010 


0001 


DIRECT (WRITE/ 
RBNRITB) 


Code = W 




lORGREL 


0010 


0000 


RELATIVE 


ORGANIZATION 
RELATIVE 


IS 


lORGVSAM 


0000 


1000 


▼SAM Pile 







10 



lACCESS 



ACCESS MODE 



11 



12 



Code: 

Bits 
0-7 



IRCDMODE 1 

Code: 



Bits 
0-7 



ISH1 



Code: 



Bits 
0-7 



OD 



13 



ISW2 



Code: 
0-7 



Equate 

Naae 

lACCSEQ 

lACCRAN 

lACCDTN 



Bit 

settings 
1000 0000 
0100 0000 
0010 0000 



RECORDING NODE 



Equate 

Name 

IRCDFIX 

IRCD7AR 

IRCDUND 

IRCDSPN 



Bit 

Settings 
1000 0000 
0100 0000 
0010 0000 
0001 0000 



Meapj.nq 
SEQUENTIAL 
RANDOM 
DYNAMIC 



tjeapj-nq 

FIXED 

VARIABLE 

Undefined 

SPANNED 



Miscellaneous switches 



Equate Bit 
Name Settings 
ISOPTNL 1000 0000 
ISBLKED 0100 0000 
ISSAMREC 0010 0000 
ISSAME 0001 0000 
ISLBOMIT 0000 1000 
ISLBSTAN 0000 0100 
ISLBUSER 0000 0010 



Meaning 

OPTIONAL specified 

File is blocked 

SAME RECORD AREA specified 

SAME AREA specified 

LABEL RECORDS ARE OMITTED 

LABEL RECORDS ARE STANDARD 

LABEL RECORDS ARE dataname 



Miscellaneous switches 



ISADVAN 1000 0000 
ISPOSIT 0100 0000 
ISAFTER 0010 0000 
ISBEFORE 0001 0000 
ISNOSPAC 0000 1000 



WRITE ADVANCING 

WRITE POSITIONING 

WRITE AFTER 

WRITE BEFORE 

WRITE WITHOUT SPACING 
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Displaceaent 




No. Of 


fiax D^ffiP^l 


n§M 


lytes 


OE n 


ISH3 


1 


OP 15 


ISWU 


1 


10 16 


I APPLY 1 


1 


11 17 


IAPPLY2 


1 


12 18 


IBLKLEN 


2 



DQscyjLptj.op 

Unused 

Unused 

APPLY statements 

APPLY stateaents 

If •BLOCK CONTAINS (integer- 1 TO) integer- 2 

CHARACTERS', field contains integer-2. 

If 'BLOCK CONTAINS (integer-l TO) integer-2 RECORDS, 

field = integer-2 x (IRECLEN + control) + control + 

lASBPO, 



14 


20 


IRECLEN 


2 


16 


22 


IRECDBL 


2 


18 


24 


IRECNBL 


1 


19 


25 


IRESERVE 


1 


1A 


26 


ISTATDBL 


2 


1C 


28 


ISTATDDN 


2 


IE 


30 


ISTATLDN 


2 


20 


32 


IKEYISW 


1 


21 


33 


IKEYNO 


1 


22 


34 


IKEYFNTL 


2 


24 


36 


IPSWISW 


1 


25 


37 


IPSWNO 


1 


26 


38 


IPSHENTL 


2 


28 


40 




14 


36 


54 




2 


38 


56 


IHISCAD 


4 


3C 


60 


ILABELAD 


4 


40 


64 


IKEYLSTA 


4 


44 


68 


IPSWLSTA 


4 


48 


72 




4 



Where control ^ (Recording mode F or U) 

« 4 (Recording mode V, S, or D) 
lASBFO » (Non-ASCII file) 

= Buffer offset (ASCII file) 

If BLOCK CONTAINS clause is omitted, field contents 

are set in 'BLOCK CONTAINS 1 RECORD'. 

Number of bytes in longest 01 -entry 

Displacement in T6T of record's first base locator 

cell 

Number of base locators for RECORD AREA 

Reserve integer areas 

Displacement in T6T of base locator for STATUS 

data-name 

Displacement from base locator of STATUS data-name 

Length of STATUS data-name 

Miscellaneous switches 

Number of entries in key list 

Length of each entry in key list 

Miscellaneous switches 

Number of entries in password list 

Length of each entry in password list 

Reserved 

Slack bytes 

Address in variable length portion of FIB for 

miscellaneous clauses 

Address of labeling information block 

Address in variable length portion for first Key list 

entry 

Address in variable length portion for first Key list 

list entry. 

Reserved 



Debug File Tables 407 



Licensed Material - Property of IBM 



Variable Length Portion ; 

Suppleaentary Information for Miscellaneous Clauses (one for each clause) : 



Displacement 
Hex Decimal 



Eieia 
IMSW1 



6 

1ft 



IBERUNI 
IRBRUNM 



No. Of 

Bytes 

2 

Code: 

Bits 

0-7 

8-15 

H 

8 



Indexed Record Key List ; 
IKEYSW 



1 


1 


IRKEYLDN 


1 


2 


2 


IKEYDBL 


2 


4 


4 


IRKEYDDN 


2 



Parameter List: 



IPSWDIXN 



Description 
Switch bytes 



Eguate 

Name 

IMRREOV 



Bit 

Settings 
1000 0000 



Meaning 

RERUN at end of volume 

Unused 



RERUNN integer (Field contains zeros if RERUN not 

specified) 

External-name of RERUN clause 

Slack bytes 



Miscellaneous switches 



Code 
Bits 
O^T" 



Eguate 

Name 

IKEYCOMP 

IKEYDUP 

IKEYID 



Switch 
Bit 

Settings 
1000 0000 
0100 0000 
0010 0000 



Meaning 

KEY is usage comp (binary) 
WITH DUPLICATES Specified 
KEY is internal decimal 



Length of RECORD KEY data name 

KEY is data names location, displacement in TGT. 

Displacement in record of RECORD KEY Record. Key 

information follows for each ALTERNATE RECORD KEY 

specified. 



Associated index number 

= none 

1 = prime 

2 = first alternate 

3 = second alternate 



1 


1 


IPSWDLDN 


1 


2 


2 


IPSWDDBL 


2 


4 


4 


IPSWDDDN 


2 



n = (n-l)th alternate 
X'FF' = no password 

Length of password data-name. 

PASSWORD data name's locator; displacement in TGT, 

PASSWORD data name's displacement off locator. 
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SECTION 6, DIAGNOSTIC AIDS 



This chapter provides information about 
compiler error messages and provides a few 
diagnostic aids for use in case a compiler 
error, rather than a user error, appears. 
A compiler error may produce one of two 
results: an abnormal termination while the 
compiler is still in storage, or erroneous 
output from a completed compilation. 



Note ; The compiling program-name, its 
version numbers, its modification nximber, 
and the Program-ID can be found at the end 
of the INIT1 routine (see Appendix B) at 
the end of the object module listing. 



DUMP PRODUCED FOR DISASTER LEVEL ERROR 
MESSAGES 



Under severe circumstances the compiler 
determines that processing during a phase 
cannot continue. The phase issues a 
Disaster-level (D-level) message on SYSLST 
and initiates a storage dump. Compilation 
is abandoned and control is returned to the 
operating system. 

The dump indicates which phase of the 
compiler was executing at the time of the 
D-level circumstance. The contents of 
registers through 15 at the time of the 
last entry to the TAMER routines in phase 
00 may be found in the 16 fullwords 
starting at label TBSAVl in the load module 
ILACBLOO. 



ERROR MESSAGE LISTING 



A complete listing of all the error 
messages produced by the compiler can be 
obtained by compiling a program with a 
PROGRAM-ID of ERRMSG. The listing consists 
of: 



• Compiler identification and level 



• Brief description of the remainder of 
the listing 



• Description of listing conventions 

• Action codes and meanings 

• General procedure in recurring problem 
situations 

• Error messages in the following format! 

— Message number 

— Severity level 

— Action code 

— Message text 

The messages are listed by phases of the 
compiler in the following order: 10-12, 
20, 22, 30-35, 40-45, 50-51, 60, 62, 63, 
64, 00. 



ABNORMAL TERMINATION (ABEND) DURING 
COMPILATION 



If the compiler terminates execution 
abnormally, the resulting dump can be used 
to locate some information from the data in 
storage at the time. If certain 
input/output error messages were printed, 
additional information is available. 



LOCATION OF INFORMATION IN STORAGE 



The programmer can determine from a dump 
the current processing phase in storage, 
the current record,, the status of tables 
and buffers already in use, and the 
registers saved during the previous calling 
process. 



Current Phase 



If the compiler terminates execution 
while a processing phase (04, 05, 06, 08, 
10, 11, 12, 20, 22, 21, 25, 30, 35, 40, 45, 
50, 51, 60, 6.1, 62, 63, 64, 65, 70, or 80) 
is in storage, the name of the phase can be 
found in the Phase 00 location LINKNAME. 
LINKNAME contains an 8-byte name in the 
form PCOBOLxx, where xx represents the 
phase number. 

Each of the five words located 15 
statements after LINKNAME in storage 
contains an address. These addresses point 
to the locations where one or more phases 
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are loaded. The five address constants, in 
order, are: 

1. Address of Phase 04. 

2. Address of Phases 05, 06, 08, 10, 11, 
and 12. 

3. Address of Phases 20, 21, 22, 25, 30, 
and 35. 

4. Address of Phases 40, 45, 50, 51, 60, 
62, 63, 64, 65, and 61. 

5. Address of Phase 70 and 80. 

Phase 00 is loaded at the beginning of 
the partition. 

Current Record 



number. The result is the address of 
the proper TIB. 

3. The second, third, and fourth bytes in 
the TIB contain the address of the 
Table Area Management Map (TAMM) for 
the table. 

U. The second, third, and fourth bytes of 
the TAMM contain the address of the 
table. The seventh and eighth bytes 
contain the number of bytes used so 
far in the table. 

The entry format for each table 
manipulated by the TAMER routines is shown 
in "Section 5. Data Areas." See also 
"Appendix A. Table and Dictionary 
Handling. " 



Unless either phase 20 or phase 21 is 
executing., the record that is being 
processed at the time of the error can be 
related to a statement in the listing 
through a location in COMMON named CURCRD, 
which contains the current generated card 
number. (CURCRD is located at relative 
address 26C. See "Section 5. Data Areas" 
for more information on COMMON. ) If either 
phase 20 or phase 21 is executing, the 
generated card number can be found in the 
CARDNO field or the CARDNUM field, 
respectively. If there is no source 
listing available, the buffers for the 
files being read or written can be located, 
and the contents of the last bytes used can 
be examined. This process is described 
below under "Compiler Buffers and Their 
Contents. " 



Tables Used by Phases 



The status of the tables built or 
referenced by the current phase may reveal 
how much processing the phase had done 
befdre the dump occurred. Tables currently 
being used by a given phase can be located 
by the following steps: 

1. The Table Information Block (TIB) 
number for any table handled by the 
TAMER routines can be found in 
"Section 4. Directory" (listed by 
phase) or in "Section 5. Data Areas" 
(listed alphabetically by table name), 

2. Add the phase 00 load address to the 
displacement (shown in the listing of 
phase 00) for the particular TIB 



Compiler Buffers and Their Contents 



When a processing phase requests an 
input/output operation via phase 00, 
register 9 contains the address of an entry 
for the file within the phase 00 POINT 
table. Figure 64 shows the contents of a 
POINT table entry. Each consists of two 
bytes, with the low-order bits of each byte 
containing the buffer numbers. If a file 
is double buffered, the numbers are 
different. If it is single buffered, the 
numbers are the same. If the first four 
bits of the entry contain a hexadecimal 
'F*, no physical input/output has been done 
on the file in the current phase^. 



r T 1 

I Bits I Contents | 

|. + ^ 

I 0-3 I X*0* or X*F' I 
^ + ^ 

I 4-7 I buffer number | 
|. 4 ^ 

I 8-11 I X«0' I 

|. + ^ 

I 12-15 I buffer number | 

L J. J 

Figure 64. POINT Table Entry Format 

The buffer number can then be used to 
locate the associated Buffer Control Block 
(BCB) . BCBs are contained in an area 
starting at BUFCNLS in phase 00, as shown 
in Figure 65. The format of a BCB is shown 
in Figure 66. For SYSIPT, SYSLST, SYSPCH, 
and SYSLNK, the buffer addresses are 
contained in the phase 00 locations IPTBUF,, 
LSTBUF, PCHBUF, and LNKBUF,, respectively. 
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Location 


1 


Control Block 




BUFCNLS+0 




Buffer IBCB 




BUFCNLS+8 




Buffer 2BCB 




BUFCNLS+16 


1 _ 


Buffer 3BCB 




BUFCNLS+24 


_j.__ 


Buffer UBCB 




BUFCNLS+32 




Buffer 5BCB 




BUFCNLS+40 


___! 


Buffer 6BCB 





L. 

Figure 65. Buffer Control Blocks for 
Buffers 1-6 



r T T T 1 

Bytes I 1 I 3 | 2 | 2 | 

Contents | X • * j Address | Bytes used j Length | 
I jof Buffer I so far for| of J 
I I I GET or PUT I Buffer I 
L JL i X J 

Figure 66. Buffer Control Block Format 



Note : The above does not apply to file 
SYS005. Phases 25 and 65 perform buffer 
management processing for syS005. 



Register Usage 



When linking to another phase, phase 00 
passes a pointer in register 1 to a 
parameter list starting at location COSPARM 
in phase 00. The first word of this list 
always contains the address of COS, another 
location in phase 00. This address is used 
by the other phases in two ways: as the 
point in phase 00 to which control should 
be passed for an input/output request and 
as the base address for the COMMON DSECT 
used in the other phases. General register 
usage for each phase is shown in Figure 67. 



] PHASE 00 
1 


(ILACBLOO) 1 

J 


r — T 1 

{Register! Use | 

L X J 


r 

10 


T 1 

1 Contains COS address at entry | 
1 to COS; contains buffer address j 
1 at exit from READ routine | 


|1 


1 Used to return to calling | 
1 phase; otherwise, work. | 




1 Note: Registers 6 1 are| 
1 destroyed by phase 00 | 
1 during calls to COS. ( 


|2 


1 Address of data for a WRITE. | 


|3 


1 Length of data for a WRITE. | 


\^ 


1 Work; Address of TRMNATE CSECT | 


|5 


Base register for ILACBLOO | 
1 CSECT 1 


16 


Points to buffer control block | 
1 for logical I/O j 


|7 


1 Points to buffer control block | 
1 for physical I/O | 


IB 


1 Return address- 2 (Linkage j 
parameters) j 


|9 


Address of file pointers (Point | 
table) for the file on which | 
I/O is currently being | 

performed. j 


jlO 


(File number- 1) ♦ U; used to | 
index into BUFCNLS and the \ 
table of DTF ADCONS. * | 


111 


Linkage; base register for j 
PHOTBDIC CSECT | 


|12 


Linkage; base register for | 
TBDATA CSECT | 


|13 


Save area pointer (from calling! 
phase) j 


114 ! 


Linkage. | 


|15 i 


Linkage; base for PHOTBSTl | 



Figure 67. Compiler Register Usage 
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PHASE 01 


(ILACBLOl) 1 

J 


Register] Use | 

_ L J 





r 1 
1 Linkage to phase 00; work in j 
1 CSECT ILA002 | 


1 


t Contains address of phase 00 | 
parameters when phase 01 is j 
called; work in CSECT ILA002 j 


2-3 


1 Work 1 


U 


1 Work; input pointer in CSECT | 
ILA002 1 


5 


1 Base for CSECT ILACBLOl; base | 
for CSECT ILA002 (COPY/BASIS) j 


6 


Base for DATA; base for CSECT | 
ILA002 (COPY/BASIS) | 


7 


Work; base for CSECT ILA002 | 
(COPY/BASIS) 1 


8 


Highest available storage | 
address; linkage in CSECT | 
ILA002 1 


9 


Base for CSECT ILA002 | 
(COPY/BASIS) I 


10 


Address of system's j 
communication region; work in j 
CSECT ILA002 | 


11 


Address of COS; work in CSECT | 
ILA002 j 


12 


Address of phase 00 parameter | 
list; work in CSECT ILA002 | 


13 


Address of phase 01 save area | 


14 


Internal linkage (SCAN | 
routine) ; work in CSECT ILA002 j 


15 


Internal linkage (SCAN j 
routine) ; address of COS in | 
CSECT ILA002 | 



j PHASE 05 (ILACBL05) 
^ ^ 

{Register] Use 

|. + 



|0 
1 


Linkage to phase 00; work 


1 

ll 

1 


Address of COS; work 


1 

12-9 

j 


Work 


110-12 
1 


Base 


1 

113 

I 


Work area DSECT base 


114-15 


Internal linkage 



j PHASE 06 (ILACBL06) 



I Register] Use 
t +- 



11 

I 

I 2-9 

I 
jlO-12 

I 
113 

I 
114-15 

L 



Linkage to phase 00; work 

Address of COS; work 

Work 

Base 

Work area DSECT base 

Internal linkage 



PHASE 041 (ILACBL04) 



Register, Use 



T 

I Work 

I Base registers 

I 

I Linkage 

-I 



i 0-9 

I 

I 10-12 

I 

! 13-15 
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j PHASE 08 (ILACBL08) 



I Register I Use 
I" 





i 

11 

I 

I 2-9 

I 
110-12 

I 
113 

I 
|lt»-15 

L 



Linkage to phase 00; work 

Address of COS; work 

Work 

Base 

Work area DSECT base 

Internal linkage 



PHASE 


11 


(ILACBLll) 


_ _ _i 


— ^ 

Register) 


Use 




_ — — _ —^ 





T 


Work 






1 




Address 


of COS 


in phase 00 | 


2-7 




Work 






8 




Base of 


IFQ109 


(EXHSVB) 1 


9 




Base of 


IEQ107 


(LETTER) 1 


10 




Base of 


IEQ104 


(COBWRD) 1 


11 




Base of 


IEQ103 


(GETWD) 1 


12 




Base of 


IEQ102 


(IDDIVl) 1 


13 




Base of 


lEQlOl 


(PHISAV) , 1 






pointing directly to the phase | 
11 Save Area in that CSECT | 


14 




Linkage 




1 

1 
1 


15 




Linkage to TAMER J 
Addressability to IEQ108 j 
(PDSCN) and temporary j 
addressability to IEQ116 J 
(VARPQ) and to IEQ106 (UNLVSN) j 



PHASE 20 (ILACBL20) 



Registerl Use 



0-6 
7 

8-10 
11 

12 
13 

m 

15 



Work 

Address of input buffer area 

Work 

Address of COMMON, except 
during ACCMET routine 

Work 

Address of save area 

Branching 

Base for all routines 



Diagnostic Aids U12. 1 



Licensed Material ~ Property of IBM 



jPHASE 21 

I 


(ILACBL21) 1 


1 

1 Register 
1 


1 
Use 1 


10-1 
1 


■ 


Work 1 


1 

12 

1 




BUPTAB pointer | 


13-6 
1 




Work 1 


1 

17 

1 




Data IC-text pointer j 


1 
18 




Work 1 


1 

19 

1 




FDTiB pointer I 


no 
1 




PIOTBL pointer | 


111 




Address of COS in phase 00 | 


112 




Base of PERHCODE | 


1 
113 




Pointer to SAVBAREA | 


n**. 


15 


Linkage | 



IPHASE 22 (ILACBL22) 
I , 



I Register I Use 



J 

|0-6 

I 

17 

I 
18-10 

I 
111 



■+■ 



112 
I 

113 
I 

I 
115 



Work 

Address of input buffer area 

Work 

Address of COMMON, except 
during ACCHET routine. 

Work 

Address of save area 

Branching 

Base for all routines 



1 PHASE 


25 


(ILACBL25) 1 


1 

1 Register 
J 


Use 1 


10-8 




Work 1 


19 




Base register for STMDICT DSECTJ 


110 




Address of COS in phase 00 j 


|11r12 




Pernanent base of first 2 j 
CSECTS 1 


113 




Pernanent base of data CSECT | 


114 




Linkage j 


|15 




Linkage, base of access | 
routines | 
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PHASE 30 (ILACBL30) 



Register 



H-6 I Work 



Use 



Work 

Frequently contains dictionary 
pointer to the entry currently 
being processed 

Frequently points to the start 
of attributes in the dictionary 
entry currently being processed 

Frequently contains dictionary 
pointer to the entry currently 
being processed 



Permanent base for the CSECT 
containing the following 
routines: 

GLORET 

PH5CTRL 

READ 

EOF 

GENOP 

SEARCH 

QUALIP 

COFRTN 

Pernanent base for the CSECT 
containing the following 
routines: 

GLOSRY 

ENTRPD 

TSTKRD 

ERROR 

GETNXT 

GET ALL 

GENDAT 

COPYIN 

COPREN 

ISTDLM 

ISTBCD 

6ETLVL 

COUNT 

DESCUP 

ISPTR 

Permanent base for phase 30 
data area 



PHASE 


35 


1 
(ILACBL35) 1 


Register 


1 ! 

i Use 1 


1 0-10 




j Work j 


j 11-12 




Permanent bases for all routines 1 


|13 




Pointer to SAVE AREA; base for j 
most of data area | 


|14 




Branching; work . 


!l5 




Linkage; work 


1 PHASE 

1 1 


HO 


(ILACBmO) 1 


1 Register! 


Use 1 


10-6 




Work; used by verb analyzers, | 
subroutines, and phase | 
controller | 


17-11 




Permanent bases for the nonverbj 
analyzer routines: | 

phase controller j 
subroutines j 
constants j 
data area | 


112 




Points to current contents of j 
input buffer | 


113 




Permanent base for data and | 
patch area 


im 




Branching | 


115 




Temporary base register for the| 
verb analyzer currently in j 
control 1 
Linkage to TAMER | 
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j PHASE 


45 


(ILACBL45) ] 


(Register 


Use 1 


|0-1 




Work j 


|2-3 




Parameter registers between 1 
internal subroutines j 


|4-8 




Work 1 


\9 




Pointer to current text element 
(DOP) 


jio 




Points to COMMON in Phase 00 [ 


[ 11-12 




Permanent base for control 
routine, verb analyzer, and | 
subroutines | 


113 




Permanent base for CSECT con | 
containing constants | 


j 14-15 




Linkage | 



1 

1 PRASE 50 


(ILACBL50) 1 


1 

{Register 


f 
Use 1 


|0-6 


Work 1 


|7 


Base for first CSECT in the | 
phase, beginning with PH5CTL | 


|8 


Base of second CSECT, beginning! 
with XINSCN I 


19 


Temporary base for verb | 
analyzer routines beyond the j 
third CSECT 1 


110 


Points to COMMON in phase 00 | 


ni 


Base of third CSECT, beginning | 
with A-text Generator | 


|12 


Base of phase 50 constant area j 
(next-to-last CSECT) | 


|13 


Base of phase 50 data area | 
(last CSECT) 1 


|14 


Linkage | 


115 


Temporary base for some j 
routines called by verb j 
analyzers j 
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IPHASE 51 (ILACBL51) 

h 



i Register j Use 
I- 



10-6 

I 

17 

I 

18 

I 

19 



110 

I 

I 

111-15 

I 



Work 

Sane as 50 

Work 

Base register for each verb 
analyzer 

Base register for each verb 
analyzer 

Base register for each verb 
analyzer 



IPHASE 60 


(ILAC6L60) 1 


1 Register 


1 Use 1 


10-3 


Work 1 


14 


Input for all texts | 


15-7 


Work 1 


18 


Base for the following CSBCTs: | 
1 — performs phase | 
initialization (switches,! 
work areas, etc.); j 
processes the TGT j 
3 — processes Procedure | 
A -text 1 


19 


Points to COMMON in phase 00 | 


no 


Base for the following CSECTs: | 
2 — processes Optimization 1 
A -text 1 
H — processes Procedure | 
A-text and Data A-text; | 
generates initialization | 
routines j 


111 


Work 1 


112 


Base for CSECT containing | 
constants (IE0605) | 


113 1 


Points to phase 60 save area | 


114 


Linkage to subroutines | 


115 1 


Linkage to subroutines | 



IPHASE 62 


(ILACBL62) 1 


{Register 


Use 1 


|0-3 


Work 1 


14 


Input for all texts j 


15-7 


Work 1 


|8 


Base for the following CSECTs: | 
1— performs phase | 

initialization (switches,! 

work areas, etc.) ; | 

processes the TGT j 
3 — processes Procedure | 

A-text ! 


19 


Points to COMMON in phase 00 I 


110 


Base for the following CSECTs: | 
2--processes Optimization j 
A-text 1 
U — processes Procedure I 
A-text and Data A-text; j 
generates initialization | 
routines | 


111 


Work ! 


112 


Base for CSECT containing | 
constant (IEQ625) I 


113 


Points to phase 62 save area | 


|1U 


Linkage to subroutines | 


115 


Linkage to subroutines | 



IPHASE 63 (ILACBL63) 
I r 



! Register I Use 
I 



10-10 

I 

111-13 

I 

114 

I 

115 



Work 

Base registers 

Return for internal subroutines 

Address of internal subroutines 
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{PHASE 64 


(ILACBL64) 1 


IRegister 


Ose 1 


10-3 


Work 1 


|4 1 


Input for all texts j 


15-7 


Work 1 


|8 


Base for the following CSECTs: | 
1 — performs phase | 

initialization (switches,! 

work areas r etc.) ; j 

processes the TGT | 
3 — processes Procedure | 

A -text 1 


19 


Points to COMMON in phase 00 | 


110 


Base for the following CSECTs: | 
2 — processes Optimization | 
A-text 1 
4 — processes Procedure | 
A-text and Data A-text; j 
generates initialization j 
routines j 


111 


Work 1 


|12 


Base for CSECT containing j 
constants (IEQ645) | 


113 


Points to phase 64 save area | 


114 


1 Linkage to subroutines j 


115 


Linkage to subroutines | 



1 

IPRASE 

i 


65 


(ILACBL65) 1 


1 

IBegister 


Use 1 


10-3 
1 




Work 1 


1 
14 

I 
1 




Input for Debug-text and for | 
generating TXTCRD DSECT | 


15-7 
1 




Work I 


1 

18 

1 




Base for CSECT ILA651 | 


1 

19 

1 




Points to COMMON in phase 00 | 


no 




Base for CSECT ILA652 | 


111-12 

1 




Work 1 


113 

1 

[ 
1 




Points to phase 65 save area; | 
base for phase 65 constant j 
CSECT ILA653 f 


114-15 




Linkage to subroutines \ 



1 PHASE 


61 


(ILACBL61) 1 


IRegister 


Use 1 


|0 


■ 


Work; return address when phase! 
61 has branched to phase 00 j 


11 




Work; base for input DSECT | 


|2 




Work; pointer to data record | 
being formatted | 


13-9 




Work ! 


110 




Points to COMMON in phase 00 | 


111 




Base for CSECT ILA6102 ! 


|12 




Base for CSECT ILA6101 | 


|13 




Points to phase 61 save area | 


114 




Return address for internal ! 
subroutines 1 


115 




Work; address of internal | 
subroutines j 



! PHASE 


70 


{ILACBL70) ! 


IRegister 


Use I 


10-3 




Work 1 


|4 




Input for B-text | 


|5 




Points to message in message | 
table during processing of most! 
messages j 


16-7 




Work 1 


|8 




Base for phase instructions | 


|9 




Points to COMMON in phase 00 ! 


110 




Base for most constants j 


111-12 




Work 1 


113 




Points to phase 70 save area | 


|14 




Linkage to subroutines | 


115 

1 ., 


_j 


Base for PUT, CONVERT, GET, ! 
STRING, and XPRIME routines ! 
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1 

1 PHASE 

t 


80 


(ILACBL80-8D) 


■ ■ ' ■ ■! 


1 

1 Register 
1 


Use 




|0 




Work 




n 




Base for ZLACBL80; work 




12 




DTP pointer for ILACBL80; 


work 1 


13 




DTP pointer for ILACB180; 


work 1 


1* 

1 




DTP pointer for ILACBLSO; 
for ILACBL8C; work 


base 1 


rs 




Base for ILACBL8C; work 




16 

1 




Internal link for ILACBL8B, | 
ILACBL8C, and ILACBL8D; work | 


17-9 




1 Work 


1 


no 
1 




1 DTP pointer for ILACBL84, 
ILACBL86, and ILACBL8D 


1 
1 


111 




DTP pointer for ILACBL8D; 


work 1 


112 




Points to PIPSVT (PIPS vector | 


1 




table) 


1 


113 




Save 


1 


\n 




Link 


1 


115 




Base 


1 
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Register Saving 



INPUT/OUTPUT EHPOR MESSAGES 



When phase 00 gets control from the 
system, it places the address of the DOS 
control program's save area in location 
MTSAVE-t-4. When it is called by another 
compiler phase, phase 00 places the address 
of the calling phase's save area in 
SAVER 13. It puts the address of its own 
save area (HIS AVE) in register 13. 



The calling phase's registers can be 
located by adding decimal 12 to the address 
contained in SAVER 13. This locates 
register 14, followed by 15, etc. The 
following registers have significance in 
connection with the call: 



Register ; Contains the address of the 
X and Y parameters of the linkage 
request. (See ''Processing Between 
Phases" in the chapter on phase 00.) 
These parameters can be used with Figure 
11 in the phase 00 chapter to verify 
that the calling phase is making a 
legitimate request. 



Note ; Register 10 of phase 00 should 
contain the file number code (T 
parameter minus 1) multiplied by 4. 



Register 2 ; Contains the address within 
the calling phase from which phase 00 is 
to write if the X parameter above is a 
request for a PUT. It can be used to 
determine that the indicated area is 
within the range of the storage 
allocated to the calling phase. 



Register 3 ; Contains the length, in 
bytes, of the data to be written if a 
POT has been requested. The number must 
be less than 256, but not equal to zero. 



If the calling phase is asking for 
action by a TAMER routine, the registers of 
the calling phase are saved in an area 
starting at location TBSAV1 by means of a 
STM 0,15 instruction. Register 14 contains 
the address of the instruction following 
the call to the TAMER routine; register 15 
contains the address of the TAMER routine 
entry point. Por the complete calling 
sequence, including parameters, see 
"Appendix A. Table and Dictionary 
Handling." The MASTAH, also described in 
that chapter, can be found at location 
TBMASTAM and should be investigated to 
determine whether the table and dictionary 
areas are being properly used. 



Phase O'k generates messages if it 
discovers error conditions during 
initialization. The system handles 
directly all input/output errors. 



ERRONEOUS COMPILER OUTPUT 



If the compilation terminates normally 
(with the desired options in effect) and ii 
the object module nevertheless executes 
incorrectly, the source program should be 

checked first for errors in logic, 
language, data formats, etc. Using the 
SYMDMP, STATE, and FLOW compiler options 
can help in determining errors. For 
information on the use of these options, 
see IBM DOS/VS COBOL Compiler and Library 
Programmer ' s Guide . If a compiler erroir 
is still suspected, the information below 
can help to pinpoint the problem. 



Note: The LIST and LISTX compiler options, 
along with the linkage editor's HAP option, 
are invaluable under these conditions. The 
STM, XREF or SXREF and FLAGW compiler 
options are also useful. 



STORAGE LAYOUT 



An example of the general storage usage 
for a COBOL program being executed in the 
background area is given in Figure 68. The 
Memory Map printed as a result of the LiSTX 
option contains the relative addresses of 
the TGT fields, the literal pool, PGT 
fields, the register assignments, the 
instructions generated from the Procedure 
Division, and the INIT2, INIT3, and INIT1 
routines, in that order. (See "Appendix B 
Object Module" for a discussion of these 
fields.) The absolute addresses can then 
be found with the assistance of the phase 
map (see "Linkage Editor Phase Map" in this 
chapter) . 
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CONTROL 
PROGRAM 



BACK- 
GROUND 



^ 

FORE- 
GROUNDS 



Permanent storage locations used 
by CPU; Communication Region; 
Supervisor Nucleus; 
I/O Units Control Tables; and 
Transient Area 



OBJECT 
MODULE 



INITl 

Working- Storage 

DTFs and BUFFERS 

TGT 

PGT 

Literals 

Report Writer 

Procedure Division 

(Priority less than 

segment limit) 
Q- routines 
INIT2 
INIT3 

Transient Area 
(Nonresident 

Segments) 



LIOCS Modules 

COBOL Library Subroutines 



♦The object module is not always first 

in its partition. 
L J 

Figure 68. Example of Storage Usage During 
Execution 



5. 



beginning of the object module as 
given in the linkage editor map- 
Allowing one fullword per DTFADR cell, 
count off cells from the starting 
address found in Step 3, using the 
order detesnmined in Step 1, to locate 
the desired DTFADR cell. 

The DTFADR cell contains the absolute 
address of the desired DTF. 



Note: The procedure for locating a 
secondary DTF is essentially the same, the 
only differences being that the SUBDTF 
address cells pointed to by the PGT are 
used and that the order of the cells is 
Input, Output, I-O, or Input Reversed. 



LOCATING DATA 



The location assigned to a given 
data-name may similarly be found by using 
the BL number and displacement given for 
that entry in the GLOSSARY, and locating 
the appropriate one-word BL cell in the 
TGT- The hexadecimal s\jm of the GLOSSARY 
displacement and the contents of the cell 
should give the relative address of the 
desired area. This can then be converted 
to an absolute address as above. 



REGISTER USAGE 



LOCATING A DTF 



A particular DTF may be located in an 
execution-time dump as follows: 

1. Determine the order of the DTF address 
(DTFADR) cells in the TGT from the DTF 
numbers shown for each file-name in 
the GLOSSARY. 

Note: Since the order is the same as 
the order of FDs in the Data Division, 
it can be determined from the source 
program whether the SYM option was not 
used (that is, no glossary was 
printed) . 

2. Determine the relative starting 
address of the block of DTFADR cells 
from the TGT listing in the Memory 
Map- 

3- Calculate the absolute starting 
address of the block by adding the 
hexadecimal relocation factor for the 



The compiler assigns registers for use 
at execution time according to the general 
rules indicated in Figure 69. When OPT is 
specified* the register assignment is that 
indicated in Figure 70. In addition, the 
LISTX or CLIST or SYM option causes the 
permanent register assignments for the data 
areas to be printed in the Memory Map,, 
along with the Base Locators associated 
with them- 



j Register) Assignment 

|. + 

Work 

Pointer to beginning of 

Working -Storage 

Pointers to FDs and then 

remainder of Working-Storage 

areas if needed 

Pointer to PGT 

Pointer to TGT 

Temporary base registers 

Figure 69. Register Usage at Execution 
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r T" 

I Register I Assignment 



10 



+ i 

Work 

Assigned in the following 

order: 

1 TGT or PGT OVERFLOW CELLS 

2 Most used BLs or BLLs 
PGT OVERFLOW if another 
OVERFLOW results after 
allocation of PROCEDURE BLOCK 
CELLS or next most used BL 
or BLL 

11 I Procedure Block cell 

12 I PGT 

13 i TGT 
lU-15 I Temporary base registers 

L X J 

Figure 70. Register Usage at Execution 
when OPT is Specified 



the absolute addresses of all entry points 
of all CSECTs in the phase. Figure 71 is 
an example of a phase map. 

In the figure, ILBDSAEO, a COBOL library 
subroutine, handles sequential access 
input/output errors and ILBDDSPO handles 
DISPLAY verbs. IJJCPDl is a DOS logic 
module which is present whenever a DISPLAY 
or an ACCEPT verb is used. ILBDMNSO is a 
1-byte COBOL library subroutine which is 
always present and which provides a flag 
indicating whether a subprogram or a main 
program is executing. 



DIAGNOSTIC ASSISTANCE 



ERROR MESSAGES 



All error and warning messages listed 
during compilation should be examined. 
(The warning messages will be listed only 
if the FLAGW option is in effect.) If any 
message seems inappropriate, it can 
sometimes be traced back to the originating 
phase by examining the message 
identification code. The format is as 
follows: 

ILAnxxxI-s 

where : 

n is the first digit of the phase number 

XXX represents the assigned identifying 
numbers for the message 

s indicates the severity code (W, C, E, 
or D) 

Several phases can begin with the same 
digit (for example, phases 10, 11, and 12) 
but no further general distinction is made 
between the message numbers assigned by the 
various phases. 



LINKAGE EDITOR PHASE MAP 



If the MAP option is in effect, the 
linkage editor produces a phase map showing 



When you (the CE) telephone for 
diagnostic assistance, you can get a faster 
and more precise response if you provide as 
much information about the problem as 
possible. To determine whether your 
problem has been documented, it is 
necessary that you provide certain items, 
referred to as search arguments, that are 
needed to retrieve such documentation - 
Search arguments include such items as 
component identification,, when failure 
occurred, type of failure., phase that 
failed, and verb being processed. 

To assist you in determining search 
arguments, a COBOL Abstract Worksheet 
appears on page 420.3. The worksheet 
describes each search item, the search 
argument that identifies that item, and an 
explanation of how to find the search 
argument. For most efficient retrieval of 
documentation regarding your problem, 
provide as many search arguments as you 
can. 

In addition to the search arguments, 
have as many of the following items 
available as possible when you telephone 
for diagnostic assistance: 

• JCL 

• source listing 

• dump 

• console sheet 

• program output 
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PHASE 
PHASE* ♦♦ 



XFR-AD LOCORE HICORE DSK-AD 

002800 002800 003EB3 5D 05 2 CSECT 



ESD TYPE 


LABEL 


LOADED 


REL-FRj 
j 


CSECT 


EXAMPLE 


002800 


0028001 
1 


CSECT 


ILBDSAEO 


003E08 


1 
003E08I 


ENTRY 


ILBDSAEl 


003E1E 


1 
1 


CSECT 


ILBDMNSO 


003E00 


003E00I 
1 


CSECT 


ILBDDSPO 


003630 


1 

0036301 

1 


CSECT 


IJJCPDl 


003468 


1 
0034681 


ENTRY 


IJJCPDIN 


003468 


1 


♦ ENTRY 


IJJCPD3 


003468 


1 



Figiire 71. Example of a Phase Map 



Diagnostic Aids 420.1 



COBOL Abstract worKsneet isicie a; 



licensed Material - Property of IBM 



i Search Iteir 
1" 



Search Argument 



How to Find Argument 



H 



1. Component ID: 

5746-CB-xxx where 
XXX is the program 
product version 
level 



1. 5746-CB-xxx 



The program product version level is 
printed at the top of the first page of 
the COBOL listing. It is also con- 
tained in byte X'17' of the load 
module. 



2. Keyword entry 

(use as indicated) 



No 


A:ompile\ 


Unsure 


r-< 


Time 
\P ail are/ 


> > 


V 






Go to 






Side 


B lYes 





If unsure, check the JCL to see which 
step was being executed at the time of 
the failure. 



2. CMPL 



3. Type of failure: 
one of the 
following: 

abend = ABENDxxx 

wait = WAIT 

loop = LOOP 

msa. = MSGILAxxxxx 



3. 



4. Failing phase: 

ILACBLxx, where xx 
is the compiler 
phase number. 



ILACBLxx 



Location IINKNAKE in phase 00 contains 
a name in the form FCOBOLxx, where xx 
is the compiler phase number. 



5. COBOL verb being 
processed: (e.g., 

ADD, MOVE, GO) 



5. 




' 1 5C' I Program ID 
-•163' I entry 
I- 
I 
'298' I Card beincr 

-'299' j- 

I processed 



A- Find the register used oy the 

failing phase (argument U above) to 
point to COMMON; see "Register 
Usage" in "Section 6. Diagnostic 
Aids."»- 

-B. Obtain the address of COMMON from 
the register. 

Verify that you are at the correct 
area for COMMON; the contents of 
COMMON address + X'lSC should be 
the same as the word coded on the 
PROGRAM- ID card (card 2 or 3 in the 
source program). 

Find card number at C0M^'0N address 
+ X'298' (e.g., 8030 would 
indicate card 48 because X'30' = 
decimal 48). 



E. Find the indicated card in the 
source program and determine the 
COBOL verb being processed. 



^If this worksheet has been removed from the DOS/VS COBOL PLM, the address of COMMON 
can be found by using all of the registers listed under REG AT ENTRY TO ABEND. 
Starting with register 10 (then 11, then 9) perform, steps B and C until step C results 
in a match; then do steps D and E. 
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COBOL Abstract Worksheet (Side B) 



Search Item 



I- 



Search Argument 



How to Find Argument 



H 



Component ID: 
57U6-CB-XXX, where 
XXX is the program 
product version 
level. 



1. 57U6-CB-XXX 




The program product version level is 
printed at the top of the first page of 
the COBOL listing. It is also con- 
tained in byte X'17' of the load 
module. 



H 



2. Keyword entry (use 
as indicated) : 



If unsure, check the JCL to see which 
step was being executed at the time of 
the failure. 



3. Type of failure: 
one of the 
following: 
abend = ABENDxxx 
wait = WAIT 
loop = LOOP 
msg. = MSGILAxxxxx 
bad output 

= INCORROUT 



-+- 



COBOL verb 
Statement being 
executed: 



A. Determine the CSECT name assigned 
to the failing program in the 
PROGRAM- ID source statement, which 
is usually the second or third card 
in the source program. 

B. Determine the length of tne compiled 
CSECT from one of the following 
areas: 

• linkage editor map 

• extent list 

• compiler generated Memory Map 

C. Use the PSW AT ENTRY TO ABEND to 
determine the address of the failing 
instruction. 

D. Is the failing instruction within 
the scope of the code compiled for 
the COBOL CSECT? If yes, see note 1 
below. If no, see note 2 below. 



5. Optional COBOL 

library module name 
being executed; 



6. Special COBOL 

features being used 
(optional) : 
(e.g., SORT, 
SYMDUMP) 



Note 1 . (a) Calculate the displacement of the failing instruction from the CS£CT entry 
point. (b) Find this displacement in the Memory Map assembler listing. (c) The 
statement number related to the generated code is printed on the left side of the 
assembler listing. In some cases, the COBOL verb is also printed in the listing. 

Note 2 . (a) Trace back from failing CSECT to exit from COBOL CSECT. (b) Use the 



linkage editor map, the CDE, and extent list or the PSW in the PRB in conjunction with 
the SAVE AREA TRACE to find the name of the failing CSECT and the entry point for the 
CSECT. (c) If the return address saved by the failing CSECT is within the scope of the 
compiled CSECT, proceed as in Note 1. If not, continue the traceback. 
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APPENDIX A. TABLE AND DICTIONARY HAWPLING 



The tables that the compiler uses to 
store infornation within a phase or between 
phases are aanipulated by a set of routines 
called TAMER (Table Area Hanagenent 
Executive Routines) . TAMER is part of 
phase 00 and is resident in storage 
throughout compilation . 

The dictionary » which is an internal 
data area used by phases 11, 21, 22, 25 and 
30, is manipulated by a set of routines 
called ACCESS routines. ACCESS routines 
are loaded into storage as part of these 
phases. 

The chapter on phase 01 explains how a 
region for tables and the dictionary is 
obtained. Figure 72 shows the arrangement 
of tables and the dictionary. 



I ■ ■ I 1 1 r-^ 

I Table 1|...| Table N|Main Free I > 
I I I Urea | Z 

i I 1 1 L_/^ 

/—I 1 1 1 

z I Dictionary I . . . | Dictionary | 
7 I Section N | | Section 1 | 
^ ' I I I 

Figure 72. Arrangement of Tables and 
Dictionary Sections in a 
Contiguous Region 



ACCESS DICTIONARY HANDLING ROUTINES 



ACCESS routines enter and retrieve 
dictionary entries. They are assembled by 
means of a macro instruction, with phases 
11, 21, 22, 25, and 30 the only phases that 
use the dictionary. Only those routines 
that are needed in a phase are assembled 
with it. Osing the ACCESS routines, phases 
11, 21, and 22 make dictionary entries for 
data-names and procedure-names in the order 
in which the names are defined in the 
source program. (Phase 11 makes entries 
for procedure-names. Phases 21 and 22 make 
entries for data -names.) Basically, a 
dictionary entry consists of a name and 
attributes. Formats for the types of 
dictionary entries are illustrated in 
"Section 5. Data Areas". Phases 11, 21, 
and 22 do not use LOCNXT. 

Phase 30 uses the ACCESS routines to 
replace data-names and procedure -names in 
procedure statements with their dictionary 
attributes. It tells the ACCESS routines 
the name, and the ACCESS routines obtain 



the attributes from the dictionary entry 
for that name. It also uses the ACCESS 
routines to resolve qualification and the 
CORRESPONDING option. Phase 30 does not 
use 'enter* or *get' ACCESS routines. 



ORGANIZATION OF THE DICTIONARY 



The dictionary is divided into sections 
of 512 bytes each. The location of a 
dictionary entry is indicated by its 
section and its displacement from the 
beginning of that section. For each 
dictionary section, table DICOT has an 
entry which gives the starting address of 
that section. 

The ACCESS routines use table HASH to 
keep track of the locations of dictionary 
entries. HASH is a hash table with 521 
entries. When a dictionary entry is made 
for a name, its section and displacement 
are entered in the HASH table entry for 
that name. When an ACCESS routine wants to 
find an entry, it determines the hash value 
of the name in order to find the HASH table 
entry for that name and obtains the section 
and displacement from the HASH table entry. 

If a name hashes to the same value as a 
previous name, the section and displacement 
for the previous name are taken from table 
HASH and placed in front of the dictionary 
entry for the new name as a dictionary 
pointer. Then the section and displacement 
of the new entry are entered in table HASH, 
and an indication is made that there were 
duplicate hash values. When an ACCESS 
routine wants to find an entry for a name 
and the HASH table indicates that there 
were duplicate hash values, it uses these 
dictionary pointers to search the 
dictionary, in reverse order, to find the 
specified name. That is, it obtains the 
section and displacement from the HASH 
table for the hash value and looks at the 
name in the indicated entry. If the names 
match, this is the correct entry, unless 
duplicate names were defined. Then the 
ACCESS routine looks at the entry with the 
section and displacement specified by the 
dictionary pointer of the last entry . Thii 
process continues until the names of all 
entries with duplicate hash values have 
been compared. At that time, the ACCESS 
routine has found a single unique name, a 
duplicately defined name, or no name at 
all. It issues an error indication if it 
does not find a name or if the name is 
duplicately defined. 
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Mote ; If a name is unique because it is 
qualified, the phases specify a range of 
dictionary entries to be searched when they 
call an ACCESS routine. This is explained 
in routine LATACP. 



ACCESS ROUTINES 



ACCESS routines are available to perform 
the following functions: 



AREA FOR THE DICTIONARY 



Area for a new dictionary section can be 
obtained from the free area between the 
tables and the dictionary. 

When the outstanding available area is 
exhausted, dictionary sections are written 
on disk and the area is reused. Table 
DICOT is used to keep track of the 
dictionary sections. There is an entry for 
each section, giving the beginning address 
of the section and an indication of whether 
or not it has been written (spilled) on 
disk. For further information, see 
subroutine MOVDIC in the section "Table 
Handling with TAMER" in this appendix. 

When control passes from a smaller to a 
larger phase, any tables in danger of being 
overlaid must be moved to upper storage. 

The ACCESS routines do not restore 
registers and 1 on exit. 

In the following descriptions of the 
ACCESS routines, the format of the BCD name 
pointed to is: 



No. of Bits: I 2 I 6 

I 1 

Contents: | 00 | n 



n*8 



name 



where n is the number of characters in the 
name. The entry starts on a word boundary 
and is a multiple of four bytes. Padding 
is done with zeros starting with the 
low-order bytes. 



1 . Enter attributes when given a 
data-name. 



2. Enter attributes when given the 
dictionary pointer. 



3. Get a dictionary pointer when given 
the data~name and the length of its 
attributes. 



Enter delimiter (dictionary pointer of 
the entry that delimits a group or 
section) when given the dictionary 
pointer of the group or section. 



5. Locate attributes when given a 
data-name. 



6. Locate attributes when given a 
dictionary pointer. 

7. Locate attributes of next entry when 
given a dictionary pointer. 

8. Locate delimiter when given a 
data-name. 

9. Locate attributes when given an ACCESS 
pointer (name of an entry that is a 
subf ield of the last entry referred to 
by an ACCESS routine) . 

10. Locate attributes when given a 

data-name and a dictionary pointer to 
a group of which it is a subf ield. 



ENTNAM (Enter Attributes Given Name^ 



INITIALIZATION OP ACCESS ROUTINES 



In order to use the ACCESS routines, the 
phases must call routine INTACC to 
Initialize them. INTACC primes the DICOT 
table and performs other initialization 
functions. The call to INTACC must follow 
the call to TAMEIN, the routine that 
initializes the TAMER. The calling 
sequence to INTACC is: 



L 1 5, =A (INTACC) 
BALR 14,15 



Given the address of a BCD name 
(procedure-name or data-name) , routine 
ENTNAM makes a dictionary entry for it. It 
places its section and displacement in 
table HASH and also in register 1, for use 
by the calling phase as a dictionary 
pointer. The calling sequence is: 

L 1, -A (parameter) 
L 15, =A (ENTNAM) 
BALR 14,15 

Where parameter has the following format 
starting on a fullword boundary: 
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No. of 
Bytes 



I 1 I 



h 



+ 



1 I 
1- 



Contents | Code | Address! Count of | Address of | 
I I of BCD lAttri- I Attributes I 
I I Name {butes [ | 

I I , I I I 

where code is for elementary itens and 
paragraph-naaes and 4 for group items and 
section-names . 



ENTPTB (Enter Attributes Given Pointer) 



Given a dictionary pointer ^ that is, a 
section and displacement, routine ENTPTB 
enters a specified name and its attributes 
into the dictionary. The calling sequence 
is: 

L 1,sA (parameter) 
L 15,=A(ENTPTR) 
BALB 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



1 I 



-+ 



+ 



HI 

4-+ 



16 1 Ad- I Count |Ad- 
I dress I of I dress | 
I of |Attri-|of I 
I BCD I butes |Attri-| 
JName j j butes t 

I i I I, 



1 1 Die- 



I tionary I 
I Pointer 



GETPTR (Get Pointer^ 



Given a BCD name and the length of its 
attributes, routine GETPTR determines its 
section and displacement and places this 
dictionary pointer in register 1. The 
calling sequence is: 

L ^^-h (parameter) 
L 15, =A (GETPTR) 
BALB 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 

Bytes 

Contents 



I 1 I 
I 1- 



I Code I Address of {Count of 
I I BCD name {Attributes 

I ,. I ' 



where code is 8 for elementary items and 
paragraph->names and 12 for group items and 
section-names . 



ENTDEL (Enter Delimiter Pointer ) 



Given a dictionary pointer for a group 
item or section-name and its delimiter 
pointer, routine ENTDEL enters the 
delimiter pointer into the dictionary entry 
for the group item or section-name. A 
delimiter pointer for a group item is the 
section and displacement of the next group 
item on the same or a lower level. A 
delimiter pointer for a section -name is the 
section and displacement of the next 
section-name. The calling sequence is: 

L 1,s A (parameter) 
L 15, =A (ENTDEL) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary : 



No. of 
Bytes 

Contents 



I I 
HI 
l-H- 



-I — r 
I I 

HI 

+-4- 



1 1 Dictionary 1 { Delimiter 
I I Pointer | {Pointer 



LATBNH (Locate Attributes Given Name> 



Given a BCD name, routine LATRNN locates 
its dictionary pointer and the starting 
address of its attributes. If the entry is 
found, the attributes* starting address is 
placed in register 2, the dictionary 
pointer is placed in register 3, and 
register 15 is set to zero. If the entry 
is not found, the contents of registers 2 
and 3 are meaningless. Register 15 
contains a 4 if the name was not found and 
an 8 if the name was duplicately defined. 
The calling sequence is: 

L 1,sA (parameter) 
L 15,=A(LATRNM) 
BALB 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



I I 
HI 



{0{ Address of BCD Name 

J I 
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LATRPT JLocate Attributes Given Pointer) 



Given a dictionary pointer for an entry r 
routine LATRPT locates the starting address 
of its attributes and places it in register 
2. The calling sequence is: 

L 1r=A (parameter) 

L 15, =A (LATRPT) 
6ALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 




1. If the unigue name located was a 
paragraph -nane or elementary item 
name, register 15 is set to 12. 
Registers 2 and 3 are set as above. 



2. If the name is not found, register 15 
is set to H . Registers 2 and 3 
contain meaningless information. 

3. If the name is duplicately defined, 
register 15 is set to 8. Registers 2 
and 3 contain meaningless information. 



The calling sequence is: 

L 1,sA (parameter) 

L 15,=A(LDELKM) 

BALR 14,15 

where parameter has the following format 
starting on a fullword boundary : 



LOCHXT (Locate Next Entry) 



Given the dictionary pointer of an 
entry, routine LOCNXT locates the next 
entry. In register 2, it places the 
starting address of the next entry's 
attributes. In register 1, it places the 
dictionary pointer of the next entry. In 
register 3, it places the starting address 
of the BCD name of the next entry. The 
calling sequence is: 

L 1 » =A (parameter) 
L 15, =A (LOCNXT) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 

Bytes 

Contents 



11 



i Dictionary Pointer | 
I I 



LDELHH (Locate Delimiter Given Name) 



Given the BCD name of a group item or a 
section, LDELNH locates its delimiter. It 
places the starting address of the given 
name's attributes in register 2. It places 
the dictionary pointer of the data-name in 
register 3. It places the delimiter 
pointer in register 1. It sets register 15 
to zero. 

If an error is detected, one of the 
following codes is placed in register 15. 



No. of 
Bytes 

Contents 



I I 
|1 I 
I 1- 



1 16 1 Address of BCD Name| 
I 1 I 



LATACP (Locate Attributes Using ACCESS 
Pointer) 



Given the BCD name of an entry that is a 
subfield of the last entry referred to by 
an ACCESS routine, routine LATACP puts the 
starting address of the attributes in 
register 2 and the dictionary pointer in 
register 3. Register 15 is set to zero. 
(This routine is used to locate qualified 
names. It limits the search of the 
dictionary.) 

If an error is detected, a code is 
placed in register 15: the code is 4 if 
the name was not found, 8 if the name was 
duplicately defined, and 12 if the last 
entry referred to was an elementary item. 
Registers 2 and 3 contain meaningless 
information. The calling seguence is: 

L 1,s A (parameter) 

L 15, =A (LATACP) 

BALR 14,15 

Where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



r— r 
I I 
HI 



|0 1 Address of BCD Name 
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Note ; There sust have been no call to a 
TAHER routine intervening between rontine 
LATACP and the last call to an ACCESS 
rontine . 



LATGRP ^Locate Attributes Given Gronp 
Pointer^ 



TIB (Table Information Block) 



For each table, there is a TIB in a 
fixed location. A TIB nay be reassigned 
when the table for which it was used is 
released. The TIB points to another 
control field for that table — the TAMH 
(see below) . Each TIB has the following 
format : 



Given the BCD name of an entry and the 
dictionary pointer of the group item or 
section-name of which it is a subfield, 
routine LATGRP puts the starting address of 
the entry's attributes in register 2 and 
the dictionary pointer of the entry in 
register 3. It sets register 15 to zero. 



If an error occurs, it places a code in 
register 15: the code is 4 if the name was 
not found, 8 if the name was duplicately 
defined, and 12 if the given dictionary 
pointer pointed to an elementary item or 
paragraph-name. Registers 2 and 3 contain 
meaningless information. The calling 
sequence is: 

L 1, -A (parameter) 
L 15, -A (LATGRP) 

BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



I I 

II I 



i I 

HI 

4-f 



I 1 

i 121 Address |0 1 Group or Section 
I jof BCD I I Dictionary Pointer 
I IKame | | 

I L., ,. , , ■ J 1 



No. of 
Bytes 



I 



I 



H 



+ 



+ 



Contents | Entry |TAHH | Table | Growth 
I Length j Address j Length | Factor 

I I , .1. , . I . , ,1 

Entry Length 

number of bytes in a table entry. 

TAMH Address 

address of the TAHH for the table. 

Table Length 

number of bytes requested for the 
table (used by the PRIHE routine) . 

Growth Factor 

not used; a table is always increased 
256 bytes at a time. 



TAgM (Table ftyea ti^ng^j^fit fi^p) 



For each table there is a TANH in a 
variable location within a fixed block (the 
TAHH block) . Bach TAHH points to a table 
and to the TIB for the table. The format 
of a TAHH is: 



TABLE HANDLING WITH TAHER 



TAHER (Table Area Hanagement Executive 
Routines) resides permanently in storage as 
part of phase 00 and is available to all 
phases to handle tables. 



CONTROL FIELDS 



The three control fields described below 
are set up and used by the TAHER routines 
as aids in the handling of tables. 



No. of 
Bytes 

Contents 



+ 



I I I 
t 21 21 H 

H HH- 



IStatuslTable |N1|N2|TIB 

I Address I | j Address 
1 1 1 1 



Status 

code indicating the status of the 
table: 

Code Heaninq 

01 Indicates that the table has 
been released so that its 
area is available as free 
area. 

02 Indicates that the table has 
been set static so that no 
further entries will be made, 
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04 



Indicates that the table has 
been primed so that entries 
can be nade. 



Table Address 

address of the first byte of the 
table. 



N1 



If Status Is N1 Is 
01 



i Beginning of area 



Length of area 



I First free byte not used so far 



I 

I Length of free area left over 



I First TAMN used 
I 



(Next TAHH to be used 



i Number of dictionary sections within the 
i area 



02 or 04 Humber of bytes used so 
far 



HOW SPACE IS ASSIGNED 



N2: 



If Status Is N2 Is 

01 Length of the freed area 



02 



04 



Number of unused bytes 
in the table 



Number of bytes assigned 
to the table 



TIB Address 

address of the TIB for the table. 



Note ; Since the N1 field is two bytes 
long, the maximum length of any table 
handled by TAMER is limited both by the 
amount of storage available to the 
programmer and by the maximum size that can 
be described in two bytes, or 32K-1 
(32,767) bytes. If either limit is 
exceeded, compilation will terminate and an 
error message will be issued. This 
limitation does not apply to the 
dictionary, which uses SYS 001 as a spill 
file, or to the RLDTBL table in phase 60, 
or to the CNTLTBL, DATATBL, and OFLOTBL 
tables in phase 61 which are not built by 
TAMEB and hence are limited only by the 
size of storage available. 



HASTAM (Master TAMM Table) 



The HASTAM contains the characteristics 
of the area in storage assigned to TAMER. 
The MASTAH has the following format: 



At the beginning of compilation, the 
space between the end of the largest phase 
and the beginning of the buffer area is 
defined as the main area of storage for 
TAMER. The MASTAH is set up for the area. 
If more space is needed later on, COBOL 
space is allocated (COBOL space is the 
difference in length between the longest 
phase and the current phase) . 

If the next phase to process is larger 
than the current phase, the tables which 
are to be passed between phases are packed 
and moved so that none of them are overlaid 
by the current phase. 

within the TAMER area, the tables start 
in lowest storage and the dictionary starts 
in highest storage. The TAHHs are assigned 
contiguously within the TAMM block, and 
their order reflects the storage order of 
the tables to which they point. 



TAMEIW Routine 



TAMEIN is the TAMER initialization 
routine. It is called during phase 00 
before linking to phase 30. It is also 
called by Phase 01 (for BASIS or COPY) or 
Phase 10. Its operations are as follows; 

Phase 01 Called before any other TAMER 
or 10: routine. Sets up the first 
MASTAH for the table area 
reguested at the beginning of 
compilation. Sets up a TAHH and 
TIB for the HASH table (see 
"ACCESS Dictionary Handling 
Routines" at the beginning of 
this appendix) . 

Phase 00: Before phase 30, if the 

dictionary was not spilled (that 
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is, if no dictionary sections 
were written on an external 
device) , no action is taken . If 
the dictionary spilled, TAMEIM 
calls TB6ETSPC which tries to get 
more space for dictionary 
sections. If space is available, 
TBBEADIC is called to read back 
as nany sections as possible. 

The calling sequence for TAHEIN is: 

L 15,»A(TAMEIN) 

BALR 14,15 



where FAB AN has the following format, 
starting on a fullword boundary: 



Bo. of 
Bytes 

Contents 



I 



I 2 



K 



+ 



+ 



+ 



I Entry |TIB | Requested) Growth 
I Length I Address I Size JFactor 
' ' I I 



TBGETSPC Routine 



PRIME Boutine 



Routine PRIME allocates space to the 
table named in the calling sequence. The 
following steps are taken in sequence until 
the required space is found: 

1. A check is made for the required area 
in the remaining space of the main 
area. 

2. A check is made for the required area 
in the space made available because of 
the release of tables by TAMER — 
called freed area. 

3. An attempt is made to pack the tables 
(eliminating the free bytes between 
the primed and static tables) to make 
the main area larger. 

4. A request is made for COBOL space. 

5. The primed tables are packed; that is, 
all of the unused area minus the 
length of one more entry for each 
table is considered available. 

6. An attempt is made to spill a 
dictionary section (write it on an 
external device) . For steps 5 and 6, 
table space is assigned only on a 
single-entry basis. 

If none of these methods is successful, 
compilation cannot continue. If space is 
found, a TAMM is created for the new table 
(or is just updated in the case of success 
in step 2) . 

The PRIME routine can also be called 
internally by other routines just to find 
space. In this case, a TAMM is not created 
and the calling routine takes whatever 
action is necessary. 

The calling sequence for PRIME is: 



L 
L 
BALR 



1,=A(PARAM) 
15, =A (PRIME) 
14,15 



Routine TBGETSPC is called by routine 
PRIME to obtain COBOL space. The area 
between the current starting table address 
and the end of the current phase is made 
available to TAMER routines. 



MOVDIC Routine 



Routine MOVDIC reads back into storage a 
dictionary section which has been spilled. 
First, MOVDIC calls the PRIME routine to 
make space available for the section and, 
then, reads the section back into the space 
made available. 

The calling sequence for MOVDIC is: 

L 15, =A (MOVDIC) 

L 3,=A(DIC0T table entry) 

BALR 14,15 



DICSPC Routine 



Routine DICSPC is called only by an 
ACCESS routine, and requests space for a 
dictionary section. The space is provided 
by an internal call to routine PRIME. 
Routine PRIME returns the starting address 
of the section in Register 1 and the ending 
address in Register 2. 

The calling sequence for DICSPC is: 

L 15, »A (DICSPC) 

BALR 14,15 



STATIC Routine 



Routine STATIC sets a table static. 
This means that no new entries will be made 
in the table during the rest of the phase. 
It sets the TAMM for the table to static 
format, that is, to the form: 
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No. of 
Bytes 



I r 

I I 
I II 
I h 



T 



T 



i I I 

I 2 I 2 I 
H 1 1 



Contents j 02 | Table |Dsed {Free | 
I I Address I Bytes I Bytes I 

I L ... „ . I 1 1 



Is: 



The calling sequence to routine STATIC 



L 


1r»A(TIB) 


L 


15, =A (STATIC) 


BALR 


14,15 



TABBEL Routine 



Routine TABREL releases a table when It 
Is no longer needed so that Its area can be 
used as free area. It sets the TANH for 
the table to released format, as follows: 



Note ; If a table contains variable-length 
entries, the entry length specified In the 
TIB must be changed before a phase calls 
routine INSERT. Alternatively, the current 
entry length can be placed In register 
and the entry length field of the TIB set 
to 0. When this Is done, the number of 
bytes currently occupied by table entries 
Is returned to the phase In register 3. 



TAMEOP Routine 



Routine TAMEOP is called at the end of 
every phase to reset TAMER switches. It 
also handles the passing of tables between 
phases . 

The calling sequence for TAMEOP is: 



L 15, «A (TAMEOP) 

BALR m,15 



No. of 
Bytes 

Contents 



I I 
I 1i 
I h 



lOIITable {Released 
I Address I Bytes 



The table address field is set to zero. 

Both the TAMH and the TIB for the released 

table can now be used for another table in 
a call to routine PRIME. 



is: 



The calling sequence for routine TABREL 



L 1,=A(TIB) 

L 15, sA (TABREL) 

BALR 14,15 



TBSPILL Routine 



Routine TBSPILL is called by routine 
PRIME, checks for the last dictionary 
section (the section in highest storage) , 
and calls routine TBWRITE to spill it in 
order to provide additional storage for 
tables. If the section in highest storage 
is currently being built, the next-to-last 
one will be spilled. 

After the dictionary section is spilled^ 
the TBSPILL routine moves the first section 
(the section in lowest storage and, 
therefore, closest to the tables) to the 
area just freed. 



INSERT Routine 



Routine INSERT provides for Inserting an 
entry into a table. It adjusts the 
displacement field of the TAMH for the 
table and returns to the phase the starting 
address (in register 2) and the 
displacement (in register 3) of the entry. 

If the area allocated to the table will 
not hold the entry, routine INSERT calls 
the PRIME routine to obtain additional 
space. 

The phases call routine INSERT with the 
following calling sequence: 



L 
L 
BALR 



1,=A(TIB) 
15, =A (INSERT) 
14,15 



TBWRITE Routine 



Routine TBWRITE is called by routine 
TBSPILL to spill dictionary sections by 
writing them on an external device, the 
TBWRITE routine uses the DICOT table to 
check and indicate the status of dictionary 
sections (see "ACCESS Dictionary Handling 
Routines*' in this appendix) . 

If a section has never been spilled, 
routine TBWRITE spills it by issuing the 
WRITE macro instruction. If a section has 
been spilled before, but has been changed 
since then, routine TBWRITE issues the 
POINTW macro instruction followed by WRITE 
to put the fresh copy on the external 
device. If a section has been spilled and 
has not been changed since then (that is, 
an exact copy already exists on an external 
device) , it is not spilled again. 
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TBREADIC Routine 



Routine TBREADIC is called by routine 
MOVDIC to read a dictionary section back 
into storage. 



GETALL Routine 



Routine GETALL is called by the Lister 
phases and phases 60 and 61. Its function 
is to provide space for a table which may 
be in excess of 32K bytes, the normal 
maxim\am size. This routine requests all 
available table space in a contiguous area. 
This request may be made only when all 
current tables have been set static. The 
tables are packed, and GETALL passes the 



starting address and length of the 
remaining table area back to the calling 
phase in registers and 1, respectively. 

All subsequent use of that area is 
handled internally by the phase which 
called routine GETALL, since a call to the 
TABREL routine is the only TAMER call which 
may legitimately follow a call to GETALL in 
the same phase. At the end of the phase 
which called routine GETALL,, the area then 
becomes available for normal phase 00 
table-handling procedures. 

In the event that additional space is 
needed after some tables have been 
released, a second call to the GETALL 
routine is issued. TAMER then packs the 
tables again and uses the additional space 
obtained to expand the original GETALL 
area. 
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APPENDIX B. OBJECT MODULE 



This appendix describes the object 
module produced by the compiler for input 
to the linkage editor. The fields in the 
object module are shown in Figure 73 as 
they appear after linkage editing. The 
fields are discussed in separate sections 
as they appear in this figure. 



INITl 



h— 



WORKING- STORAGE 



DTFs and BUFFERS 



TGT 



PGT 



LITERALS 



REPORT WRITER 



PROCEDURE DIVISION.. 
(for sections whose priority is less 
than segment limit) 



Q-ROUTINES 



COUNT TABLE 



INIT2 



INIT3 



FLOW TRACE TABLE 



PROCTAB 



SEGINDX 



TRANSIENT AREA 
(coding for sections whose priority is 
greater than segment limit and which do 
not reside in storage throughout the 
entire execution of the program; used 
I only for segmented programs) 

Figure 73. Storage Map of Object Module 
Fields 



INITIALIZATION 1 ROUTINE (INITl) 



The Initialization 1 routine begins at 
relative location zero and is constant in 
length for every compilation. It performs 
the following: 



1. Saves the calling program registers 
and the pointer to its Task Global 
Table or save area. 

2. Sets up address constants for this 
program's Task Global Table,, Program 
Global Table, first instruction to be 
executed, and Initialization 1, 2, and 
3 routines. 

3. Branches to INIT2 if it is a 
subprogram, or to INIT3 if it is a 
main program. 

4. Passes the address of the transient 
area to INIT2 in a segmented program. 

5. Contains a save area so that the 
program can be reset to the state it 
was left in upon re-entry. 

6. Branches to ILBVOCO COBOL Library 
Subroutine to initialize for 
input/output verbs with VSAM files. 

The code generated by INITl is shown in 
Figure 74. The same block of code at the 
end of the object module differs in that 
the relative addressing of the object 
module is here shown in a symbolic manner. 

WORK I NG- STORAGE 



This area contains reserved storage for 
the Working- Storage Section of the Data 
Division. The data items for which VALUE 
clauses were specified have been 
initialized. 

DTF'S AND BUFFERS 



This area contains data areas from the 
Data Division, including SDTFs, DTFs , 
record areas, and buffers. Buffers for the 
SORT SDs may be intermixed with DTFs. 

TASK GLOBAL TABLE (TGT) 



The TGT is used to record and save 
information needed during the execution of 
the object program. It consists of a fixed 
and a variable portion. In the fixed 
portion are those fields for which space is 
allocated for every object program. The 
variable portion is tailored to a 
particular object program. The fields in 
the TGT are shown in Figure 75 and are 
described in alphabetic order following 
the table. 
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Hexadecimal 






location 


INITl 


BALR 




0000 


15,0 






BCR 


0,0 






STM 


0,14, SAVEPl 






BC 


15, TRANOOO 


OOOC 


SAVEPl 


DS 


3 OF 




TRANOOO 


L 


12,ADCON003 






L 


1U,=V(ILBDMNS0) 






L 


13, ADCONOOU 






CLI 


0(ia),,o 






BC 


7, TRANOOl 






01 


SWITCH, X* 10* 






MVI 


0(14), X'FF* 






BC 


15.TRAN002 


OOAU 


TRANOOl 


LM 


12,1U„SAVEP1+U8 






STM 


14.12,12(13) 






LR 


5,13 


OOAE 


TRAN002 


LM 


9,15,ADCONOO0 






TM 


SWITCH, X« 10' 






BCR 


1*9 






BCR 


15,15 






BCR 


0,0 


GOBC 


ADCONGOO 


DC 


A(INIT3) 




ADCONOOl 


DC 


A(INITl) 




ADCON002 


DC 
or 


A (INITl) 






DC 


A(SEGMT) 




ADCON003 


DC 


A(PGT) 




ADCONOOU 


DC 


A (TGT) 




ADCON005 


DC 


A (START) 




ADCON006 


DC 


A(INIT2) 


00D8 




DC 
or 


X«C3D6C2C6* 






DC 


X'C3D6C2D6' 


OODC 




DC 


X-FOFOFOFO* 


OOEO 




DC 


X* NNNNNNNN* 






DC 


A(BLL2) 






or 








DC 


X'OOOO* 



Save Registers 

Register Save areas for entry 

and exit 

Load viith address of PGT 

Get address of byte MAIN. SUB 

SWITCH 

Load with address of TGT 

Not a main program 
Set main program switch 
(Displacement is 48 (hex) 
from start of TGT) 



For Subroutine; again save 
registers to comply with 
standard linkage convention 



For main bypass saving of 13 



DC 



DC 



If program is segmented 



COBF compiling program-name 

COBO compiling program-name 

if compiled with OPT 

Version number, level of 

modification number 

Program-id name 

Address of BLL2 if program 

has Linkage Section 

If program has no Linkage 

Section 

X*F9F961F9F961F9F9» 

Date of compilation 

X«F1F242F5F942F5F9' 

Time of compilation start 



Figure 74. INITl Coding 
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r 


T 


1 Relative Address 




I (Hex) 


(Dec) 


Field 

_^ 




_______ 




1 





SAVE AREA 


i U8 


72 


SWITCH 


1 4C 


76 


TALLY 


1 50 


80 


SORT SAVE 


1 54 


84 


ENTRY- SAVE 


1 58 


88 


SORT CORE SIZE 


1 5C 


92 


NSTD-REELS 


1 5E 


94 


SORT RET 


1 60 


96 


WORKING CELLS 


1 190 


400 


SORT FILE SIZE 


1 194 


404 


SORT MODE SIZE 


1 198 


408 


PGT-VN TBL 


1 19C 


412 


TGT-VN TBL 


1 lAO 


416 


SORTAB ADDRESS 


1 1A4 


420 


LENGTH OF VN TBL 


1 1A6 


422 


LENGTH OF SORTAB 


1 1A8 


424 


PGM ID 


1 IBO 


432 


A(INITl) 


1 1B4 


436 


UPSI SWITCHES 


1 IBC 


444 


DEBUG TABLE PTR 


1 ICO 


448 


CURRENT PRIORITY 


1 ICI 


449 


TA LENGTH 


1 1C4 


452 


PROCEDURE BLOCKl PTR 


1 1C8 


456 


Unused 


1 ICC 


460 


COUNT TABLE ADDRESS 


1 IDO 


464 


VSAM SAVE AREA 


1 1D4 


468 


Unused 


1 IDC 


476 


COUNT CHAIN ADDRESS 


1 lEO 


480 


Reserved 


1 1F4 


500 


DBG R14 SAVE 


1 1F8 


504 


Unused 


1 IFC 


508 


Unused 


1 200 


512 


DBG Rll SAVE 


204 


516 


PCS LIT PTR 


208 


520 


DBG INF PTR 


1 20C 


524 


Unused 


1 218 


536 


OVERFLOW CELLS 


1 beginning of 


BL CELLS 


1 Variable- 


DTFADR CELLS 


1 length 




FIB CELLS 


j portion 




DEBUG TRANSFER 
DEBUG CARD 
DEBUG BLL 
DEBUG VLC 
DEBUG MAX 
Reserved 
DEBUG PTR 
TEMP STORAGE 
TEMP STORAGE- 2 
TEMP STORAGE- 3 
TEMP STORAGE- 4 
BLL CELLS 
VLC CELLS 
SBL CELLS 
INDEX CELLS 
SUBADR CELLS 
ONCTL CELLS 
PFMCTL CELLS 
PFMSAV CELLS 
VN CELLS 
SAVE AREA = 2 
SAVE AREA = 3 



I 



I Relative Address | 

1 (HexJ_ tPepl 4 ?i^2A. 

"^ I XSA CELLS 

I PARAM CELLS 

I RPTSAV AREA 

I CHECKPT CTR 

I lOPTR CELLS 

I DEBUG TABLE 

^ J. 4 

Note : The portion of the TGT following 



the OVERFLOW CELLS consists of 
variable-length fields. 

L J 

Figure 75. TGT Fields (continued) 



BL CELLS 

Base locators. These are fullwords 
containing the addresses of data 
areas in object module field DATA. 
Phases 22 and 21 assign a base 
locator to each block of 4096 bytes 
in the Working-Storage Section and to 
each file in the File Section- 



BLL CELLS 

Base locators for Linkage Section. 
These are fullwords containing the 
addresses of areas passed as a result 
of ENTRY statements, label records, 
or the GIVING option in USE... ERROR 
clauses. 



CHECKPT CTR 

Four- byte counters used to count the 
numbers of records processed for 
files for which checkpoints are to be 
taken. 



COUNT CHAIN ADDRESS 

Address of the COUNT CHAIN for this 
program. The address is initialized 
to zero if COUNT is specified; the 
address is filled in at execution 
time. 



COUNT TABLE ADDRESS 

Relative address of the COUNT table 
from the beginning of the TGT. The 
COUNT table,, which is generated by 
phase 60 or phase 64 if COUNT is 
specified, is located between the 
Q- routines, if any, and the INIT2 
routine. The count table is used 
only when the program terminates. 



I LXSASW_CEU'£ I 

Figure 75. TGT Fields 
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CURRENT PRIORITY 

Priority of the segment currently in 
the transient area. If the STATE or 
SYMDMP option is specified, the 
segmentation subroutine (ILBDSEMO) 
inserts the priority in this cell. 
It is initialized to by phase 65. 

DEBUG TABLE 

This table is used by the SYMDMP 
(ILBDMP10-ILBDMP25) , FLOW (ILBDFLWO) , 
and STATE (ILBDSTNO) COBOL library 
subroutines. It is built by phase 65; 
the format depends on the options 
specified. (See Figure 76: Debug 
Table Formats) 

DEBUG TABLE PTR 

A fullword containing the displacement 
from the beginning of the TGT to the 
DEBUG TABLE field if SYMDMP, STATE, or 
FLOW option was specified. 

DTFADR CELLS 

DTF address. There is one fullword 
containing the address in the object 
module of each DTF used by the object 
module . 

ENTRY-SAVE 

A 4-byte cell used to save the entry 
point of the object program during 
INIT2 and INIT3 execution. 



FIB 



File Information Block addresses. 
There is one fullword cell pointing to 
the address of the FIB for each VSAM 
file. At initialization time, it is 
changed to contain the address of the 
FIB for that file. 



INDEX CELLS 

Index-neune cells for each index name 
in the program. 



DBG RllSAVE 

contents of register 11. When 
ILBDDBG5 , the Dyneuonic dximping routine 
of the Debug control subroutine 
(ILBDDBGO) receives control, it places 
the return address to the inline code 
of the calling progreun in register 11. 
Therefore, the contents of register 11 
must be saved before the call to 
ILBDDBG5 . 

DBG R14SAVE 

contents of register 14. Phase 51 
generates a call to ILBDDBG4, the Save 
register 14 routine of the Debug 
control subroutine (ILBDDBGO) , before 
any instruction which passes control 
outside the COBOL progreun. The 
address of this instruction is saved 
in this cell by ILBDDBG4. 

DEBUG TRANSFER 

a one-byte cell indicating the DEBUG 
type for a PN. 

DEBUG CARD 

a three-byte cell containing the card 
number. 

DEBUG BLL 

a two-byte cell containing the 
displacement to the BLL cell. 

DEBUG VLC 

a two-byte cell containing the 
displacement to the VLC cell. 

DEBUG MAX 

a two-byte cell containing the maximum 
size of a DEBUG-ITEM. 

DEBUG PTR 

a fullword cell containing a pointer 
used by ILBDBUG to reference the debug 
subscript table. 

PCS LIT PTR 

a fullword cell containing the address 
of the PCS (Program Collating 
Sequence) alphabet. 

DBG INF PTR 

a fullword cell containing the address 
of the beginning of the debugging 
cells in the variable portion of this 
table. 
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I Options 



j Length 
-+ 



T 

I Byte 

i 


1-3 



Contents 



If FLOW is 
specified J 



Number of traces requested. 

Address of table area to be used by FLOW subroutine. 



If FLOW and 
STATE are 
specified: 



24 




1-3 
4-7 
8-11 

12-15 
16-19 
20-23 



Nximber of traces requested. 

Address of table area to be used by FLOW subroutine. 

Address of beginning of Q- routines, or if none, INIT2. 

Size of Declaratives Section within Procedure 

Division. 

Address of beginning of PROCTAB in object module. 

Address of beginning of SEGINDX in object module. 

Address of end of SEGINDX. 



If FLOW and 
SYMDMP are 
specified: 



10 



0-7 
8-9 



The same as shown for bytes 0-7 for FLOW and STATE. 
Hashed compilation indicator- See "PROGSUM Table" in 
"Section 5. Data Areas." 



If STATE is j 
specified; j 



20 



0-19 



The same as shown for bytes 4-23 for FLOW and STATE. 



If SYMDMP 
only is 
specified: 



10 



0-3 
4-7 

8-9 



Unused. 

Address of the beginning of Q-routines or, if none,, 

INIT2. 

Hashed compilation indicator. See "PROGSUM Table" in 

"Section 5. Data Areas." 



.J. 

Formats 



Figure 76. Debug Table 



A(INITl) 

Address of INITl for GOBACK, STOP 
RUN, and EXIT PROGRAM instructions, 
and for segmented coding. 



lOPTR CELLS 

Four-byte cells used when SAME RECORD 
AREA clause is specified. 

LENGTH OF SORTAB 

A halfword,, reserved but not presently 
being used. 



LENGTH OF VN TBL 

Two-byte field containing the length 
of the VNs for the independent 
segment. 

NSTD-REELS 

One-byte field for nonstandard labeled 
reels. 



ONCTL CELLS 

ON control counters. These are 
fullwords that control the execution 
of ON statements. They are 
initialized to zero. There is one 
ONCTL for each ON statement in the 
program. 

OVERFLOW CELLS 

One pointer to each 4096-byte section 
after the first in the TGT, if 
necessary. 



PARAM CELLS 

Parameter area, consisting of 
fullwords. It contains parameter 
lists for certain verb expansions in 
the source program. The size of the 
parameter area is equal to the largest 
number of words required for any one 
verb's uses. 



PFMCTL CELLS 

Control counters for PERFORM 
statements. PFMCTL cells are 
fullwords that control the execution 
of PERFORM n TIMES Statements. There 
is one PFMCTL cell for each PERFORM n 
TIMES statement in* the program. 

PFMSAV CELLS 

Saved locations for PERFORM and DEBUG 
statements. These are fullwords that 
contain addresses which enable the 
source program logic to execute 
in-line a paragraph that is also the 
object of a PERFORM statement. There 
is one PFMSAV cell for each PERFORM 
statement in the in-line procedure. 
In addition, there is one full word to 
hold the contents of register 14 upon 
entering a debug packet. Debug 
packets are called by BALR 14,15. 

PGM ID 

An 8-character root segment name. It • 
is used by the COBOL library 
subroutine ILBDSEMO to generate names 
of nonresident segments. 
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PGT-VN TBL 

A fullword pointer to the VN cells in 
the PGT belonging to independent 
segment. 



PROCEDURE BLOCKl PTR 

A fullword containing the address of 
the first PROCEDURE BLOCK CELL in the 
PGT, 



RPTSAV AREA 

Six words used to save branch 
addresses during the execution of 
Report Writer routines, if necessary. 



SAVE AREA 

Save area for the program. 



SAVE AREA=2 

Save area pointer provided for label- 
and error- processing declaratives. 



SAVE AREA=3 

Registers 14 and 11 save area for 
USE FOR DEBUGGING declaratives. 



SBL CELLS 

Secondary base locators. These are 
fullwords, set by the execution of a 
Q-routine, each containing the address 
of a field that has a variable 
location because it follows a 
variable-length field. 

SORT CORE SIZE 

Four bytes containing the 
SORT-CORE-SIZE special register as 
specified in the source program. 

SORT FILE SIZE 

Four bytes containing the 
SORT-FILE-SIZE special register as 
specified in the source program. 

SORT MODE SIZE 

Four bytes containing the SORT-MODE 
SIZE special register as specified in 
the source program. 

SORT RET 

A halfword containing the return code 
from a SORT or MERGE o{)eration. 

SORT SAVE 

A fullword used to save a GN cell 
during the execution of a SORT or 
MERGE RETURN statement. 



SUBADR CELLS 

Subscript addresses. These are 
fullwords each containing the address 
calculated from a subscripted 
reference- They are filled in at 
execution time, not written as text. 



SWITCH 

A fullword switch, 
bits are used. 



Only the following 



SORTAB ADDRESS 
A fullwordj 
used. 



Bit Meaning 

Set to 1 if SIZE ERROR for ADD 

and SUBTRACT CORRESPONDING 

1 Set to 1 for TRACE READY; set to 

for RESET TRACE 

2 Set to 1 when initialization is 

performed for the program 

3 Set to 1 if the program is a main 

program; set to if it is a 
subprogram 
U Used for SYMDMP. It is set to 1 
by phase 65 if the SYMDMP 
option is in effect for the 
program. This bit is tested by 
the COBOL library Debug Control 
subroutine (ILBDDEGO) . 

5 Used for FLOW. It is set to 1 by 

phase 65 if the flow trace 
option is in effect for the 
program. This bit is tested by 
COBOL library Debug Control 
subroutine (ILBDDBGO). 

6 Used for STATE. It is set to 1 

by phase 65 if the statement 
number option is in effect for 
the program. This bit is 
tested by the COBOL library 
Debug Control subroutine 
(ILBDDBGO). 

7 Used for OPT. Set to 1 by phase 

62 if optimization has been 
requested for this program. 
This bit is tested by the COBOL 
library SORT subroutine 
(ILBDSRTO). 

8 Used by IBM DOS Subset American 

National Standard COBOL 
compiler. It is set to 1 in a 
subset compilation to 
differentiate between full and 
subset COBOL object programs - 

9 PCS bit - indicates alternate progz 

collating sequence in effect. 

10 Used for segmentation. Set to 1 

by the IBM DOS Subset American 
National Standard COBOL 
compiler if there is 
segmentation in this program. 

11 Used for SORT. Set to for V3 

or to 1 for VS. 

12 Used for STRING and UNSTRING. Set 

to 1 if overflow occurs. 

13 Unused. 



reserved but not currently 
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14 LONGTGT bit. Always set to 1. 

15 Set to 1 if OCCURS ... DEPENDING ON 

maximum length is to be calculated. 
Set to if OCCURS... DEPENDING ON 
actual length is to be calculated. 

16 Used for LANGLVL option. Set to 1 if 

LANGLVL(2), or set to for 
LANGLVL (1) . 
17-19 Unused. 



Bit 

21 
22 
23 



24-31 



Meaning 

COUNT switch 

TIMER 

VERSION 2 compatibility. 

Used by ILBDSRTO and ILBDCKPO. 

Set to 1 on entry to ILBDSRTO; 

set to if checkpoint restart 

occurs. 
DECIMAL-POINT IS COMMA 
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TA LENGTH 

A half word initialized by phase 60 to 
the length of the largest segment with 
a nonzero priority. 



TALLY 



A fullword for source program 
reference to the TALLY special 
register. 



TEMP STORAGE 

Variable-length cells analogous to 
WORKING CELLS but used by arithmetic 
procedure instructions. Each must 
start on a doubleword boundary. They 
are allocated by phase 50 in blocks of 
8 bytes. 

TEMP STORAGE- 2 

Variable- length cells analogous to 
WORKING CELLS but used by 
nonarithmetic procedure instructions. 

TEMP STORAGE- 3 

These cells are the same as TEMPORARY 
STORAGE- 2, but used for SYNCHRONIZED 
clause handling. They start on a 
doubleword boundary. 

TEMP STORAGE- 4 

These cells are the same as TEMPORARY 
STORAGE- 2, but used for table 
handling. They start on a doubleword 
boundary. 

TGT-VN TBL 

A fullword pointer to VN cells in the 
TGT belonging to the independent 
segment. 

UPSI SWITCHES 

User Program Switch Indicators. This 
is an 8-byte field containing switches 
that can be tested by a problem 
program. 

VLC CELLS 

Variable-length cells. These are 
half words, set by the execution of a 
Q-routine, each containing the current 
length of a variable-length field. 
There is one VLC for each 
variable^ length field. 

VN CELLS 

Variable procedure- names. There is 
one fullword VN containing the current 
address of each procedure-name in the 
object module field PROCEDURE that is 
altered by an ALTER statement or is 
the procedure-name of a paragraph that 
follows a paragraph (or a series of 
paragraphs) which is in the range of a 
PERFORM statement. 

VSAM SAVE AREA 

Fullword pointer to the save area used 



by the VSAM COBOL Library Subroutines 
(ILBDVOCO and ILBDVIOO) . 

WORKING CELLS 

Variable- length cells used by COBOL 
library subroutines called by the 
generated code. The total length of 
the field is 304 bytes. 

XSA CELLS 

EXHIBIT saved areas. These are 
variable in length and are referred to 
in the coding generated for an EXHIBIT 
statement with a CHANGED option. 
There is one XSA for each operand to 
be exhibited with a CHANGED option in 
the in-line procedure. These areas 
are also used for SORT and RELEASE 
verbs. 

XSASW CELLS 

One- byte EXHIBIT switches. These are 
used as first-time switches for the 
coding generated for the EXHIBIT 
CHANGED statement. They are also used 
in miscellaneous cases of SORT 
statements and special cases of ON 
statements. 



PROGRAM GLOBAL TABLE (PGT) 



The Program Global Table contains 
address constants and literals referred to 
by procedure instructions. The fields are 
shown in Figure 77 - 



DEBUG LINKAGE AREA 
COUNT LINKAGE AREA 
OVERFLOW CELLS 
VIRTUAL CELLS 
PROCEDURE NAME CELLS 
GENERATED NAME CELLS 
SUBDTF ADDRESS CELLS 
VNI CELLS 
LITERALS 

DISPLAY LITERALS 
PROCEDURE BLOCK CELLS 

Figure 77. PGT Fields 

DEBUG LINKAGE AREA 

• Eight-byte area which contains the 
linkage for dynamic dumps. The area 
contains the following code: 

L 11,,=V(ILBDDBG5) 

BR 11 

(2 slack bytes) 

If the SYMDMP option is not specified, 
this 8-byte area does not exist. 

COUNT LINKAGE AREA 

Eight-byte area which contains the 
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linkage to the COUNT routine. If the 
COUNT option is not specified, this 
8-byte area does not exist. The area 
contains the following code: 



L 15,,=VCILBDC710) 
BR 15 
DC 1H»0* 

OVERFLOW CELLS 

One pointer to each U096-byte section 
after the first in the Program Global 
Table. 

VIRTUAL CELLS 

A virtual is a fullword containing the 
address of each unique external 
procedure (the result of an ESD and 
RLD in the object module) . It is 
required because of a CALL statement 
to the external procedure or a branch 
to a COBOL library subroutine. 

PROCEDURE NAME CELLS 

Source procedure- names. Each PN cell 
is a fullword containing the address 
of an instruction. It corresponds to 
the procedure-name in the source 
program, except that a source program 
procedure-name which is not referenced 
is not assigned a PN. When OPT has 
been specified on the CBL card, only 
those PNs associated with ALTER and 
DECLARATIVES references receive PN 
cells. 

GENERATED NAME CELLS 

Compiler generated procedure-names. 
Each GN cell is a fullword containing 
the address of an instruction. The 
compiler assigns a GN wherever 
necessary in order to branch around 
generated code statements. When OPT 
has been specified on the CBL card, 
only those GNs associated with AT END 
and INVALID KEY receive GN cells. 



VNI CELLS 

Variable procedure-name initialization 
cells. There is one VN for each 
variable procedure-name. It contains 
the initial address and is used to 
initialize the VN locations in the 
Task Global Table. 

LITERALS 

Literals that are referred to by 
instructions. Duplicate literals are 
deleted during phase €0 or 62 
processing. The literals are variable 
in length. 

DISPLAY LITERALS 

Literals that are referred to by 
calling sequences, rather than by 
instructions. Duplicate literals are 
deleted during phase 60 or 62 
processing. The literals are variable 
in length. 

PROCEDURE BLOCK CELLS 

Each cell is a fullword containing the 
address of a Procedure Block. The 
compiler assigns these cells when OPT 
is specified. 



Report Writer 



REPORT WRITER 



See "Appendix C: 
Subprogram. " 



PROCEDURE DIVISION 



This area contains the generated code 
for the Procedure Division of the source 
program. If the program is segmented, the 
root segment is loaded here (see "Transient 
Area" in this appendix) . 



SUBDTF ADDRESS CELLS 

SDTF addresses. Each SDTFADR is a 
fullword containing the address of an 
SDTF in the "DTFs and BUFFERS" field 
of the Object Module- There is one 
SDTFADR cell for each SDTF generated 
by the compiler. 



Q-ROUTINES 



Q-routines are special routines 
generated for data items described by the 
OCCURS. .. DEPENDING ON option. The function 
of these routines is to update the length 



INIT2 ST 13,008(0,5) 

ST 5,00U(0,13) 

L 2,=V(ILBDMNS0) 

CLI 0(2),X'00* 

BCR 7 9 

MVI 0(2),X"FF* 

OI SWITCH, X* 10* 



For subroutine only; chain 

save area of called and calling programs. 

In case program was entered 

from a secondary entry point, 

check whether it is a main 

or a subprogram. 



Figure 78. INIT2 Coding 
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of the variable-length data item when that 
length changes and to update the location 
of the field which follows it. The actual 
output of a Q~routine is a new value in the 
appropriate VLC cell of the TGT and the 
corresponding SBL cell (see the description 
of the TGT in this chapter for the meaning 
of these cells) . 

The Q-routine only updates the pointers; 
it does not change the contents of the data 
area involved. For this reason, if the 
OCCURS. . .DEPENDING ON area is followed by 
another field within the same 01-level item 
and if the OCCURS. . .DEPENDING ON area 
becomes longer, the information that had 
immediately followed the area before it 
changed is now no longer accessible. The 
pointer to it in the SBL has been moved. 
The source programmer can avoid a loss of 
data by moving it out of the SBL field 
before any change in the value of the 
DEPENDING ON Object and moving it back 
after the change. This problem does not 
arise between one 01-level item and the 
next, because each 01 field of data is 
allocated enough space for the maximum 
number of occurrences. 



♦ 7 



The generating of Q- routines is 
discussed under "Q-routine Generation' 
the Phase 22 chapter. 



COUNT TABLE 



in 



non-executable verbs. 

If byte contains 02,, the 

verb number (PL-code) 



or 



♦7 to n+1 If byte contains 01, the 

EBCDIC name of the procedure 



INITIALIZATION 2 ROUTINE (INIT2) 



The Initialization 2 routine is 
generated by phase 60 or 64 and performs 
the following operations: 

1. stores the address of the Task Global 
Table for this program (pointed to by 
register 13) into the Save Area of the 
Task Global Table of the calling 
program. 

2. Stores the location of the Save Area 
of the Task Global Table of the 
calling program into the Save Area of 
this program's Task Global Table. 

3. Determines if this module is a main 
program or a subprogram in the run 
unit and sets a switch accordingly. 

The code generated by I NIT 2 is shown in 
Figure 78. Symbolic addressing has been 
substituted in some instructions (see the 
INITl coding above). 



The COUNT table is used by the COBOL 
library stabroutine ILBOTC30. It contains 
entries for each procedure-name and source 
verb. This table is present only if COUNT 
was specified. The format of each entry 
is: 



Byte 




*2-4 
♦ 5-6 



Contents 
Identification code 



Code 
00 
01 
02 



Meaning 
end of table 
procedure-id 
verb- id 



Length of entry. If byte 

contains 00, this byte 

contains zero. 

Card number 

Block number 

If byte contains 01, these 

bytes contain zeros. 

If byte contains 02, 

block number of the count 

block for executable verbs; 

the count block is 00 for 



the 



*This field is not present if byte 
contains 00. 



INITIALIZATION 3 ROUTINE (INIT3) 



The Initialization 3 routine is executed 
whenever the program is entered. It is 
generated by phase 60 or 6H and immediately 
checks the SWITCH field in the TGT to 
determine whether this is the first time 
the module was entered. If so, it performs 
the following operations: 



1. Call library routine ILBDPRMO for 
initialization required by any 
object-time parameters specified. 

2. If the program contains USE FOR 
DEBUGGING declaratives, initialize 
#TDBGTRA and #TDBGCRD in TGT debugging 
information fields. 

3. Initialize the VN locations in the 
Task Global Table from the associated 
VN locations in the Program Global 
Table. 

4. Relocate each address constant in the 
Task Global Table and the Program 
Global Table to its absolute location. 
(Before the execution of this routine. 
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the addresses are relative to the 
beginning of the program.) The 
relocation of the address constants 
for this program (or for only the root 
segment in a segmented program) is 
done by adding the absolute location 
of the first instruction in the 
program (Initialization 1 routine), 
which is in general register 11, to 
the relative addresses. If the high 
byte of an ADCON is not zero, the 
address of the transient area 
(contained in register 10) is used as 
a relocation factor. If OPT is 
specified, the addresses contained in 
the PROCEDURE BLOCK CEILS in the PGT 
are processed as follows: If the 
program is not segmented, RLD-text is 
generated for the PROCEDURE BLOCK 
CELLS. If the program is segmented,, 
all PROCEDURE BLOCK CELLS are 
relocated by INIT3. 

5. Load and BALR to the addresses of 
Q-routines to initialize the VLC and 
SBL cells in the TGT for OCCURS... 
DEPENDING ON fields that depend on an 
item in Working-Storage. 

6. Load permanent base registers for BLs 
assigned to the program and, if OPT is 
specified, for BLs, BLLs and OVERFLOW 
CELLS. 

7. If the program contains sequential I/O 
DTFs, call ILBDSIOl to initialize 
them. 

8. Branch either to the first executable 
instruction of the object program, or 
to the instruction following the BALR 
to the Initialization 2 routine in the 
coding generated for an ENTRY 
statement. 

9. If the module was entered previously, 
INIT3 resets the program to the state 
it was left in the last time it was 
exited (from the register save area in 
INITl) . 

The code generated by INIT3 is shown in 
Figure 79. Symbolic addressing has been 
substituted in some instructions (see the 
INITl coding above) . 



The compiler only allocates the area for 
the table, the size of which is dependent 
on the number (n[n]) of traces requested; 
the COBOL library subroutine (ILBDFLWO) 
makes the entries in the table. 



PROCTAB TABLE ( PROCTAB ) 



The PROCTAB table is used by the COBOL 
library subroutine (ILBDSTNO) . It contains 
entries for all the card numbers and verb 
numbers in the COBOL program. The format 
of each entry is: 



Byte 
0-2 



3-4 



Contents 

Card nimber and verb number. The 

verb n\amber is contained in the 

last 4 bits of byte 2. 
Displacement of the verb within 

the program fragment. 



SEGINDX TABLE (SEGINDX) 



The SEGINDX table is used by the COBOL 
library subroutine (ILBDSTNO) . It contains 
an entry for each fragment of the program; 
these entries are wirtten in ascending 
order of priority in the object module. 
The format of each entry is: 

Byte Contents 

Priority. 

1-3 Program fragment address. 

U-6 Displacement from start of 

PROCTAB table of first PROCTAB 
entry for this program 
fragment. 

7-9 Displacement from start of 

PROCTAB table of last PROCTAB 
entry for this progreim 
fragment. 



FLOW TRACE TABLE 



The Flow trace table is used by the 
COBOL library subroutine (ILBDFLWO), if 
FLOW has been specified. 
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INIT3 


ST 


14,054(0,13) Save entry point to go to after INIT3 
(See Note) 




BALR 


15,0 




TM 


SWITCH, X" 20* 




EC 


14,TRAN003 Register 11 used as base 




L 


0,SAVEPl+48 




LM 


2,13,SAVEPl+50 Restore registers to what they were on last exit 




L 


14,054(0,13) 




BCR 


15,14 


TRAN003 


01 


SWITCH, X« 20* 




TM 


SWITCH, TGTMAIN 




BNO 


TRAN004 




L 


15,=V(ILBDMNS0) 




LA 


15,010(0,15) 




BALR 


14,15 


TRAN004 


LA 


6,4 



Relocate OVERFLOW, PN, GN, SUBDTF, and VNI cells of the PGT. 

If OPT is specified and the program is segmented, relocate all PROCEDURE BLOCK 
CELLS in the PGT. 

Relocate OVERFLOW, BL, and DTFADR cells of the TGT. 

Call Q-routine for OCCURS. . .DEPENDING ON fields which have their object in 

Working- Storage. 

If any sequential I/O DTFs exist, call ILBDSI02 to initialize them. 

Load base locators. 

Call initialization of checkpoint routine. 



L 
BCR 



14,054(13) 
15,14 



^ 

Mote; If the SYMDMP, FLOW, STATE,, or COUNT option is in effect, the following 
instructions are interposed between the first instruction (ST 14, 054,) 0. 13) ) and 
the second instruction (BALR 15,0) of INIT3 coding. 

L 15,=V(ILBDDBG0) 

BALR 14,15 

In addition, if COUNT is in effect, the following instruction is added after the BALR: 

DC H "number of verbs blocks* 

L J 

Figure 79. INIT3 Coding 



TRANSIENT AREA (SEGMENTED PROGRAM) 



This area contains object modules of 
program segments of a higher priority than 
the segment limit (49 by default). The 
segments are compiled in ascending order of 
priority number, and the root segment is 
compiled last. If OPT is specified. Phase 



64 compiles the root segment first and then 
the other segments. (The root segment is 
stored in the Procedure Division area of 
the object module, as explained above.) 
Assuming the name of the program is 
SORTEST, and the segments are of priorities 
51, 52, and 0, the object module produced 
by the compiler has the following format: 
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ROOT SE6HENT 



INDEPENDENT 
SEGMENT 



INDEPENDENT 
SEGMENT 



PHASE SOBTEST,ItOOT 
(Object deck for the root 
segaent) 

PHASE S0BTES51,* 
(Object deck for segaent of 
priority 51) 

PHASE ■ SORTES52,SORTES51 
(Object deck for segment of 
priority 52) 
ENTRY SORTEST 



If no root segnent is specified, one is 
generated by the compiler. 



A root segment consists of the Data 
Division specified areas, including Report 
Nriter routines, O~routines, Global Tables, 
INIT1, INIT2, INIT3, and Procedure Division 
coding for sections of a priority less than 
the segment limit. 



Each nonresident segment will be loaded 
into the transient area when necessary. 
The transient area is large enough to 
accommodate the largest segment with a 
nonzero priority. 
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APPENDIX C; REPORT WRITER SDBPROGRAH 



This appendix describes the Report 
Writer Subprogram (RWS) , its structure, 
elements, and response to verbs in the 
Procedure Division. The RWS is generated 
by phase 12 from statements in the Report 
Section of the Data Division. The 
operation of phase 12 and associated 
activities in other phases are described in 
the "Phase 12" chapter. 

If OPT is specified, the code generated 
for the Report Writer Subprogram is 
optimized for procedure-name addressability 
and register usage by phases 62, 63, and 64 
in the same manner as the code generated 
for the other parts of the Procedure 
Division is optimized. The operation of 
phases 62, 63 and 64 is described in the 
chapters "Phase 62," "Phase 63," and "Phase 
64." 



FIXED ROUTINES 



Fixed routines never vary in logical 
content. Phase 12 generates one and only 
one copy of each of them after all of the 
statements under an RD have been scanned. 
The three fixed routines are 1ST-R0UT, 
LST-ROUT, and WRT-ROUT. 



1ST-R0UT Routine 



This routine causes the first headings 
to be printed by calling on the RPH-ROUT 
and the CHP-RODT routines. Routine 
1ST>R0UT is executed vhen either GENERATE 
Report-name or the first occurrence of 
GENERATE Detail-name is encountered. 



STROCTORE OF THE REPORT WRITER SUBPROGRAM 
(RWS) 



LST-ROUT Routine 



Each RWS is a complete subprogram which, 
when executed, produces a report according 
to the specifications coded in one RD 
statement and its associated group and 
elementary items. The RWS has a fixed 
logical structure; that is, it contains 
fixed, parametric, and group routines in a 
prescribed order and guantity. In certain 
cases, dummy routines are inserted to 
maintain the structure. The RWS produced 
contains all linkages and exits needed. 
Each routine refers to the compiler- 
generated card number of its respective RD. 
This is reflected vhen LISTX is in effect. 
Figure 80 shows the logic of a Report 
Writer Subprogram. The coding in the boxes 
is intended to be indicative rather than 
comprehensive . 



ELEMENTS OF A REPORT WRITER SUBPROGRAM 
(RWS) 



An RWS includes data items and three 
types of routines: fixed, parametric, and 
group. The data items are assigned special 
data-names; these can be either COBOL 
words, which may be used in the source 
program, or nonstandard words, which may 
not. These routines and data-names are 
discussed below, together with the special 
internal Report Writer verbs generated by 
the compiler. 



This routine terminates the report. It 
causes the highest -level control break (by 
setting CTL.LVL to 1) and then causes the 
final footings to be printed by calling 
routines CFF-ROUT and RPF-ROUT. Routine 
LST-ROUT transfers control to LAST-ROLL, 
which provides return linkage to the main 
program. (LAST-ROLL is the name of a STORE 
instruction located just before the 
ROL-ROUT routine. It is not itself an RWS 
routine.) Control then falls through to 
the ROL-ROUT routine. 



WRT-ROUT Routine 



This routine writes a record from the 
output work area, RPT.RCD. It then moves 
blanks to CTL.CHR and to RPT.LIN. This 
routine contains two sets of coding if the 
program specifies two output files. The 
programmer may suppress printing of a line 
by coding "MOVE 1 TO PRINT-SWITCH". 



PARAMETRIC ROUTINES 



Parametric routines are generally fixed 
in structure but vary according to the data 
obtained from the source (01-49 level) 
statements. They may also include 
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statenents or blocks of statements that are 
repeated as needed. Except as noted under 
USH-ROUT, RLS-ROUT, and ALS-ROUT, the RWS 
contains one and only one copy of each 
parametric routine. The nine parametric 
routines are discussed in the following 
paragraphs . 



PSM-ROPT Routine 



This routine adds the operands of all 
SUM clauses that either have UPON (this 
detail-name) or that appear as SOURCE items 
in a TYPE IS DETAIL group to as many 
sum-buckets as required. A sum-bucket is a 
work area which may be given a data-name by 
the programmer or else is assigned an 
S-point name by the compiler. (S-point 
names are described under "Nonstandard 
Data-names'* in this appendix.) Phase 12 
generates one USM-ROUT routine for each 
DET-ROUT routine. If there is no DET-ROUT 
routine in an RNS, no USH-ROUT routine is 
generated. 



RST-ROUT Routine 



This routine moyes the current contents 
of sum-buckets to control-field save areas 
and sets the sum -buckets to zero for all 
control levels just processed by the 
ROL-ROUT routine. The RST-ROUT routine 
contains one block of coding for each 
control level. When the level number of 
the block being executed is equal to the 
value in CTL.LVL, control is returned to 
the routine that called the CTB-ROUT 
routine . 



SAY-ROUT Routine 



This routine moves the current control 
name contents to a save-area and the 
previous control name values to the current 
control names. 



RBT-ROUT Routine 



CTB-ROUT Routine 



This routine acts as a control break 
supervisor. It tests for a change in value 
of a control field, always beginning with 
the highest level and continuing until 
either the lowest level is tested or a 
control break occurs. A break causes 
control to be passed to the ROL-ROUT 
routine* leaving the current control level 
number in location CTL.LVL. The CTB-ROUT 
routine contains one block of coding for 
each control level. 



This routine resets the control names to 
their current values. 

Note ; Routines SAV-ROUT and RET-ROUT are 
used only when processing TYPE IS CONTROL 
FOOTING or TYPE IS CONTROL FOOTING PINAL 
report groups. Therefore » any source 
control name areas contain the previous 
value (i.e.* the value prior to the control 
break) . 



INT-ROUT Routj.ne 



ROL7ROUT Routine 



This routine adds SUM-clause operands 
originally defined in another control 
group. Tt starts with the lowest level and 
continues until the level number of the 
current block is equal to the value found 
in CTL.LVL. At this point, control is 
transferred to the lowest level CTF-ROUT 
routine. Routine ROL-ROUT contains one 
block of coding for each control level. 



This routine sets initial values of all 
switches, counters, and SUM-names 
(data-names or S-point names) . Routine 
INT-ROUT is called when an initiate 
statement is encountered. 



ALS-ROUT Routine 



This routine determines the line spacing 
for absolute lines. The ALS-ROUT routine 
is generated only if the RD entry contains 
a PAGE LIMIT clause. 
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(INITIATE report-name) 



REPORT-CALL INT-ROUT- 



<D 



(GENERATE reporf-name) 



REPORT-CALL 1ST- ROUT- 
REPORT-CALL CTB-ROUT- 



REPORT-CALL USM-ROUT (for each detail lr> report, in order of sequence)- 




(GENERATE detail-name) 



REPORT-CALL DET-ROUT (for this detail)- 



-© 



(TERMINATE report-name) 



REPORT-CALL LST-ROUT ■ 



o 



1ST- ROUT 



REPORT-SAVE-2 
IFFRS.GEN NOT = 
REPORT-RETURN-2. 

REPORT-CALL WRT-ROUT 

MOVE 1 TO FRS.GEN 
*MOVE 1 TO PAGE-COUNTER 

REPORT-CALL RPH-ROUT 

REPORT-CALL CHF-ROUT 

REPORT-RETURN-2 



CHF-ROUT 



REPORT-SAVE-3 

02-codlng 
GO TO CTH-ROUT (highest 
leveO or (if no 
controls exist) 
REPORT-RETURN-3 



RPH-ROUT 



REPORT-SAVE-4 

02-coding 
GOTOPGH-ROUT- 



''Generated only if there is a PAGE clause. 



LST-ROUT 



REPORT-SAVE-6 

IF FRS.GEN = 

REPORT-RETURN-6. 

MOVE I to CTL.LVL, TER.COD 

REPORT-CALL (LAST-ROLl) 

REPORT-CALL CFF-ROUT 

MOVE 2 TO TER.COD 

REPORT-CALL PGF-ROUT 

GO TO RPF-ROUT 



(lAST-ROLU 



RPF-ROUT 



02-coding 
REPORT-CALL WRT-ROUT • 
REPORT-RETURN-6 



1_£ 



PGH-ROUT 



02-coding 
IF LIN.SAV = 0, GOTO 
(GNNN) ELSE MOVE 
LIN.SAVTO ABS.LIN 
* REPORT-CALL ALS-ROUT ■ 
REPORT-CALL WRT-ROUT - 
(GNNN) 

MOVE OTO LIN.SAV, 
FRS.GRP, GRP.IND 
REPORT- RETURN-4 



© 






REPORT-SAVE-2, then 
fall through to 
ROL-ROUT routine 



t 



CFF-ROUT 



REPORT-SAVE-3 

02-coding 
REPORT-RETURN-3 



PGF-ROUT 



REPORT-SAVE-4 

02-coding 
IF TER.COD = 2 REPORT- 

RETURN-4. 
REPORT-CALL WRT-ROUT 
GO TO PGH-ROUT 



5 



Figure 80. Logic of the Generated Report Writer Subprogram (Part 1 of 4) 
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i 



DET-ROUT (for Ms detail group) 



REPORT-SAVE-1 

REPORT-CALL IST-ROUT- 
REPORT-CALL CTB-ROUT- 



REPORT-CALL USM-ROUT- 

02-codIng 
REPORT-RETURN-1 



^ 



(^ 



USM-ROUT (for this DET-ROUT) 



REPORT-SAVE-2 

for each statement with UPON 
clause whose object Is this 
DE and each statement with 
SOURCE-SUM correlation! 
ADD operand TO sum bucket . 

(may be more than one operand 
or sum bucket) 
REPORT- RETURN-2 



*Source-control is the name 
specified in the CONTROL 
clause of the source program. 

**Control-fleld save area name. 







CTB-ROUT 



REPORT-SAVE-2 
MOVE TO 

CTL.LVL. IF FRS.GEN NOT- 2 
MOVE 2 TO FRS.GEN GO TO RST-ROUT- 
(highest level) 

ADD 1 TO CTL. LVL 
one set IF source-control* 
per NOT = -nnnn** 
control MOVE TO GRP . IND 
level GO TO ROL-ROUT 



--© 



(after lowest level) 
REPORT- RETURN-2 







ROL-ROUT 



(lowest level) 

one set ADD (thb level bucket) 
per TO (higher level bucket) 

control IF (this level-number) = 
level CTL.LVL 

RPT-CALLSAV-ROUT- 
GO TO (lowest level) 

CTF-ROUT 

(next-higher level) 



REPORT- RETURN-2 



•,' Figure 80. Logic of the Generated Report Writer Subprogram (Part 2 of U) 
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© 



RST-ROUT 



(lowest level) 

IFFRS.GEN=1 RPT-RETURN-3. 
MOVE TO sum bucket. 
MOVE $ource-control**TO 

-nnnn.*** 
IF this level number=CTL. LVL 
REPORT- RETURN-2. 
(next higher level) 



REPORT- RETURN-2 



WRT-ROUT 



RPT-SAVE-5 
If 2 files, WRITE FILE-NAME RECORD-NAME 
code (-nnnn) FROM RPT. RCD AFTER 

repeated ADVANCING LIN.NUM LINES 

GOTO(GNBB). 



-♦(GNAA) RPT-SAVE-5 
If 2 files, WRITE FILE-NAME RECORD-NAME 
code (-nnnn) FROM RPT. RCD AFTER 

repeated ADVANCING C01 LINES. 

MOVE TO LINE-COUNTER 
ADD 1 TO PAGE-COUNTER.* 

(GNBB) MOVE SPACES TO RPT. LIN 
MOVED TO LIN.NUM 
RPT-RETURN-5 



o 



CTF-ROUT (lowest level) 



02-coding 
IF (this level number)=CTL.LVL 
RPT-CALL RET-ROUT- 



GO TO (this level) CTH-ROUT. 

GO TO, (next higher level) CTF-ROUT 



CTF-ROUT (highest level) 



RPT-CALL RET- ROUT — 
IF TER.COD=0 GO TO 

CTH (highest level). 

GO TO RST-ROUT. 



CTH-ROUT (highest level) 



1£ 



CTH-ROUT (control break level) 

02-coding 
GO TO (next lower level) CTH-ROUT 



CTH-ROUT (next lower level) 



CTH-ROUT (lowest level) 
GO TO RST-ROUT. 



-© 



*© 



-0 



Note; All calls of the WRT-ROUT routine ore 
not shown. Other routines call it as 
often as necessary to print all output 
lines to be produced. 

♦Generated only if there is a PAGE clause. 
**Source-control is the name specified in the 
CONTROL clause of the source program. 
*** Control-field save area name. 



Figure 80. Logic of the Generated Report Writer Subprogram (Part 3 of U) 
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ALS-ROUT* 



REPORT-SAVE-5 

IF LINE-COUNTER = MOVE 1 TO 

LINE-COUNTER. 
MOVEl TOFRS.GRP 
SUBTRACT LINE-COUNTER FROM 

ABS.LIN GIVING LIN.NUM 
MOVE ABS.LIN TO LINE-COUNTER. 
REPORT-RETURN-5 



SAV-ROUT 



REPORT-SAVE-5 
One for MOVE source-control** (CTB 
each value) TO -nnnn*** 

control MOVE -nnnn+1 

(value previous to CTB) 
TO source-control. 



REPORT-RETURN-5 



RLS-ROUT* 



REPORT-SAVt-5 

IF LINE-COUNTER = MOVE 1 TO 

LINE-COUNTER. 
IF LINE-COUNTER LESS THAN 

(Integer for FIRST DETAIL 
SUBTRACT LINE-COUNTER FROM 

(FIRST DETAIL MINUS 1) GIVING LIN.NUM 

MOVE (FIRST DETAIL MINUS 1) 

TO LINE-COUNTER. 
IFFRS.GRP = ADDl TO 

LINE-COUNTER ADD 1 TO 

LIN.NUM. 
REPORT-RETURN-5 



One for 

each 

control 







RET-ROUT 



REPORT-SAVE-5 
MOVE -nnnn*** TO 
source-control.** 



REPORT-RETURN-5 







Note ! Not all calls to ALS-ROUT and 
RLS-ROUT are shown since each routine 
will be called as many times as necessary 
to determine line spacing. 

* Generated only if there is a PAGE clause. 
**Source-control is the name specified in the 
CONTROL clause of the source program. 
*** Control-field save area name. 



INT- ROUT 



REPORT-SAVE-2 

MOVE TO CTL.LVL, PRINT SWITCH, 
GRP.IND, FRS.GEN, TER.COD, 
FRS.GRP, LIN.NUM, ABS.LIN, 
LIN.SAV, & all sum counters 
*MOVE TO LINE-COUNTER 
*MOVE 1 TO PAGE-COUNTER 
REPORT- RETURN-2 



Figure 80. Logic of the Generated Report Writer Subprogram (Part 4 of H) 
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RLS-RODT Routine 



This routine determines the line spacing 
for relative lines. Routine RLS-ROUT is 
generated only if the RD entry contains a 
PAGE LIMIT clause. 



there is neither an actual nor a dummy 
CTH-ROUT routine generated. 



CTF-ROOT Routine 



GROUP ROOTINES 



Phase 12 generates one group routine for 
each 01-level record description 
encountered. The group routine selected is 
determined by the TYPE clause of the 
01-level statement. The coding within the 
routine varies according to the 01-49-level 
statements associated with it. An 01-level 
elementary item contains all necessary 
information and hence results in a complete 
group routine. 

If any of the group routines, except as 
discussed under DET-ROUT, CTH-ROOT, and 
CTP-ROUT routines, is not generated because 
there is no corresponding 01-level 
statement, phase 12 supplies a dummy 
routine to maintain the fixed logical 
structure of the RWS. The nine group 
routines are discussed in the following 
paragraphs. 



RPH-ROUT Routine 



This routine produces the control 
footings. There is one CTF-ROOT routine 
for each control (except PINAL) in the 
source program. It results from a TYPE IS 
CONTROL FOOTING group. If there is no such 
group, a dummy CTF-ROUT routine is 
generated for each control below the 
highest (FINAL) level. If, however, there 
are no controls (again, except FINAL) , 
there is neither an actual nor a dummy 
CTF-ROUT routine generated. 



CHF-ROUT Routine 



This routine produces the heading for 
the highest (FINAL) level control. There 
is one CHF-ROUT routine in an RWS. It 
results from a TYPE .IS CONTROL HEADING 
PINAL group. If there is no such group 
defined, or if there is no CONTROL clause 
in the program, a dummy CHF-ROUT routine is 
generated. 



This routine produces the report 
heading. There is one RPH-ROUT routine in 
an RWS; it results from a TYPE IS REPORT 
HEADING group. 



RPF-ROUT Routine 



This routine produces the report 
footing. There is one RPF-ROUT routine in 
an RWS; it results from a TYPE IS REPORT 
FOOTING group. 



CFF-ROUT Routine 



This routine produces the footing for 
the highest (FINAL) level control. There 
is one CFF-ROUT routine in an RWS. It 
results from a TYPE IS CONTROL FOOTING 
FINAL group. If there is no such group 
defined or if there is no CONTROL clause in 
the program, a dummy CFF-ROUT routine is 
generated. 



PGH-ROBT Routine 



CTH-ROUT Routine 



This routine produces the control 
headings. There is one CTH-ROUT routine 
for each control (except PINAL) in the 
source program. It results from a TYPE IS 
CONTROL READING group. If there is no such 
group, a dummy CTH-ROUT routine is 
generated for each control below the 
highest (FINAL) level. If, however, there 
are no controls (again, except FINAL) , 



This routine produces the page headings. 
There is one PGH-ROUT routine in an RWS; it 
results from a TYPE IS PAGE HEADING group. 



P6F-R0UT Routine 



This routine produces the page footings. 
There is one PGF-ROrT routine in an RWS; it 
results from a TYPE IS PAGE FOOTING group. 



4U6 Appendixes 



Licensed Material - Property of IBM 



PET-ROUT Routine 



This routine produces a detail line (or 
group of lines) of the report. There is 
one DFT-POUT routine for each TYPE IS 
DETAIL group. If there is no such group in 
the source program, there is neither an 
actual nor a dummy DET-ROUT routine 
generated. 



DATA-NAMES 



Report Writer data-names are generated 
to identify counters, switches, and control 
fields. There are two types of data-names 
used in an RWS, COBOL word data-names and 
nonstandard data-names. 



COBOL Word Data-names 



The COBOL word data-names follow the 
rules for coding COBOL names and are 
accessible to the source programmer. They 
are PAGE-COUNTER, LINE-COUNTER, and 
PRINT-SWITCH. 

PAGE-COUNTER ; A counter generated only if 
there is a "PAGE LIMIT clause in the RD 
entry. There can be only one PAGE-COUNTER 
in an RWS. If present, it is initialized 
to 1 by the INT-ROUT routine and used by 
the WRT-ROUT routine. 

LINE-COUNTER ; A counter generated only if 
there is a PAGE LIMIT clause in the RD 
entry. There can be only one LINE-COUNTER 
in an RWS. If present, it is initialized 
to zero by the INT-ROUT routine and reset 
to zero by the WRT-ROUT routine for each 
new page. 

PR INT-SWITCH ; A 1-byte switch generated by 
Phase 12 for any program that contains a 
Report Section. (It may then be used by 
any RWS generated for that program.) It is 
set to by the INT-ROUT routine, 
indicating that the current line is to be 
printed. The source programmer can use 
PRINT-SWITCH to suppress printing of a 
report group by coding "HOVE 1 TO 
PRINT-SWITCH". 



Nonstandard Data-names 



The nonstandard data-names contain the 
special character "." or begin with a 
hyphen; they cannot, therefore, be used by 
the programmer. Data-names in the form, 
"-.nnnn" (for example, E.0001) and 
control -field save area names have no limit 



and are uniguely numbered; the other nine 
appear once per report. The nonstandard 
data-names are: 



CTL.LVL ; A counter used by the CTB-ROUT, 
ROL-ROUT, CTF-ROUT, and RST-ROUT routines 
to coordinate control break activities. It 
is initialized to by the INT-ROUT routine 
and set to 1 by the LST-ROUT routine. 

FRS.GEN ; A one-byte switch used by the 
1ST-R0UT and CTB-ROUT routines to ensure 
that routine 1ST-R0UT is executed once 
only. After the 1ST-R0UT routine is 
finished, FRS.GEN has a value of 1; after 
routine CTB-ROUT is executed, the value is 
2. FRS.GEN is also tested by routine 
LST-ROUT to determine whether a TERMINATE 
was coded without an earlier GENERATE. 

GRP.IND : A work area consisting of 1-byte 
switches. There is one switch for each 
GROUP INDICATE clause in a TYPE IS DETAIL 
group. The jswitches are turned on by the 
CTB-ROUT routine and individually tested by 
DET-ROUT routines after control or page 
break activities so that items specified in 
a GROUP INDICATE clause will be moved to 
the output line work area. The switches 
may be treated as a group or individually, 
as follows: 

a. GRP.IND: Group name (01-level) 
for a set of GP.nnnn names. It is 
set to after a page or control 
break by the PGH-ROUT or the 

CTB— ROOT routine. 

b. GP.nnnn: Elementary names 
(02-level) following the GRP.IND. 

They are tested and, if zero, set 
to 1 by the DET-ROUT routine for a 
specific TYPE IS DETAIL group. 
Each GP.nnnn represents one 1-byte 
switch. 

TER.COD : A 1-byte switch tested by the 
PGF-ROUT routine to prevent printing of an 
extra page heading, and by the CTF-ROUT 
routine (highest level) to determine if 
control headinas should be produced. It is 
initialized to by the INT-ROUT routine 
and set to 1 by the LST-ROUT routine. 

RPT.RCD : The work area for the record 
containing the output print line. It is 
133 bytes long and consists of either two 
or three parts (CODE-Cell is optional) in 
the following order: CODE-Cell, a 1-byte 
cell used to hold the code specified in the 
CODE clause of the RD statement and defined 
in the SPECIAL-NAMES paragraph; CTL.CHR, a 
1-byte cell used to hold the carriage 
control character; and RPT.LIN, which 
contains the actual output print line. 
Note that, if there is no CODE clause, 
there will be no CODE-Cell and RPT.LIN will 
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be 132 bytes. The equivalent COBOL coding 
for the RPT.RCD group would be: 

01 RPT.RCD. 

02 FILLER PICTURE X VALUE code. 

02 CTL.CHR PICTURE X VALUE SPACE. 

02 RPT.LIN PICTURE X(131) VALUE SPACE. 

ABS.LIW ; A 2 -byte counter used by the 
ALS-ROUT routine for absolute line spacing. 
It is initialized to by the INT-ROUT 
routine and set to the appropriate value as 
report lines are produced. It is set, 
therefore, by all group routines generated 
as a result of source statements, but not 
by dummy group routines. 

LIN.SAV : A 2-byte save area. It contains 
either zero or an absolute line to be 
skipped to after a page heading is 
produced. If a Control Footing, Control 
Heading, or Detail report group contains a 
NEXT GROUP IS integer clause and if, after 
the presentation of that report group, the 
value of integer is less than or equal to 
LINE-COUNTER, then the integer is saved in 
LIN.SAV and the report group will space up 
to and including FOOTING. 

LIN.NUM : A work area used in the WRT-ROUT 
routine in conjunction with the WRITE AFTER 
RDVANCING... LINES clause. LIN.NUM can be 
set by any group routine or by either the 
ALS-BOUT or the RLS-ROOT routine. Routine 
HRT-ROUT fills in LIN.NUM with zeros before 
exiting. 

FRS.GRP ; A switch set to zero after the 
PGH-rROUT routine is executed. It is tested 
and set to 1 by a CTH-ROUT, CTF-ROUT, or 
DET-ROUT routine. If one of these groups 
is to be printed and if its first line is . 
relative (that is, LINE PLUS integer) , and 
if FRS.GRP is zero, the first relative line 
will be printed on either FIRST DETAIL or 
(LIN.SAV + 1) . 

Control-field Save Area Naaes ; Data-names 
in the form "-nnnn" are names of 
control-field save areas. (There are two 
save areas per control level.) 

A "-nnnn" name is also generated for any 
FD that contains a REPORT clause. The size 
of the 01-level item is determined from the 
RECORD CONTAINS clause or is 133 characters 
by default. 

E-point Data-names ; Data-names in the form 
"E.nnnn" are generated from COLUMN clauses 
in elementary record descriptions. They 
use the special RH-Redefines of "RPT.LIN + 
COLUMN - (integer-1)". 

N-poipt Data-names ; Data-names in the form 
"N.nnnn" are counters used to hold the 
number of lines in a report group that 
contains a relative NEXT GROUP clause, at 



least one relative LINE clause, or both. 
Using the N-point counter, the initial 
coding for a report group determines 
whether there are enough lines left on a 
page to print the entire group. 

S-point Data-names : Data-names in the form 
"S.nnnn" are used for accumulators 
(sum-buckets) for Control Footing record 
descriptions that have a SUM clause but no 
data-name specified. They are generated so 
that coding of MOVE sum-bucket TO E.nnnn 
can be produced. Attributes of the SUM 
clause are picked up in the normal manner, 
except for the PICTURE which is picked up 
from the corresponding E.nnnn neune 
generated for the sum bucket. If the 
statement has a data-name, S.nnnn is not 
generated. Its PICTURE, however, is picked 
up in the same manner as an S.nnnn name. 



SPECIAL REPORT WRITER VERBS 



Phase 12 generates five special verbs 
for use in the RWS; REPORT-CALL, 
REPORT-SAVE, REPORT-RETURN, REPORT-ORIGIN, 
and REP0RT-RE0RI6IN. The first three of 
these are used for linkage between the main 
program and the RWS — for example, as a 
result of a GENERATE statement — and 
between routines of the RWS itself. Their 
equivalent assembler language coding is 
shown below. The remaining two verbs are 
used to process USE BEFORE REPORTING 
sentences. In the following descriptions, 
the PO-text and Pi-text verb codes are 
shown in parentheses after each verb. 



REPORT-CALL 
is: 

L 
BALR 



(UF) ; The equivalent coding 



15, A (Called Routine) 
1,15 



REPORT-SAVE-O through REPORT-SAVE-n 
(50-55); The equivalent coding is: 



ST 



1 ,Save-cell-n 



REPORT-RETURN-0 through REPORT-RETURN-n 
(56-5B) : The equivalent coding is: 

L 1,Save-cell-n 
BCR 15,1 

REPORT-ORIGIN (5C) : The execution of this 
verb causes the address counter to be set 
to the address of the RW-NOP statement at 
the start of the specified routine. A link 
to the USE routine is inserted at this 
point. 

REPORT-REORIGIN (5D) : The execution of 
this verb causes the address counter to be 
reset to the address it contained before 
the REPORT-ORIGIN was encountered. 
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RESPONSE TO PROCEDOBE DIYISIOW VERBS 



Once the Report Writer Subprogram has 
been generated , it is called at particular 
entry points and executed as a result of 
INITIATE, GENERATE, and TERMINATE 
statements in the Procedure Division of the 
source program. These responses are as 
follows: 

Response to INITIATE ; As a result of 
INITIATE, a branch is made to the INT-ROOT 
routine of the particular report. Routine 
INT-ROOT is executed and control returns to 
the next instruction after the INITIATE. 



To find cell CTL.LVL, turn to the Memory 
Map and find the BL CELLS field in the TGT. 
BL1 is located at the address listed there 
and, 8 bytes farther, BL3. To the contents 
of 6L3 add the displacement (DISPL) , 88. 
The result is the address of CTL.LVL. 



Note that if there are registers 
available for each BL needed in the 
program, one register is assigned 
permanently to BL3 and listed in the 
REGISTER ASSIGNMENT column of the Memory 
Map. In that case, add the DISPL to the 
contents of that register. 



Response to GENERATE ; The response to a 
GENERATE statement depends on whether the 
statement is the first such GENERATE or a 
subseguent one. Figures 81 and 82 
illustrate the two cases. The logic flow 
shown is that for GENERATE detail-name 
statements. The logic for GENERATE 
report-name statements is the same except 
that all DET-ROOT routines are skipped and 
all DSM-ROOT routines, in the order of 
their DET-ROUT routines, are executed. 

Response to TERMINATE ; The response to a 
TERMINATE statement is illustrated in 
Figure 83, 



LOCATING DATA ITEMS IN THE OBJECT MODULE 



To find references to a data item in the 
object module, note its internal name in 
the glossary and refer to the 
cross-reference dictionary. A portion of 
the cross-reference dictionary would look 
like this (again using CTL.LVL as the 
example) : 



DATA NAMES 



FINDING THE ELEMENTS OF A REPORT WPITER 
SUBPROGRAM (FWS) 



It may become necessary to locate, in 
the object module or in a storage dump, the 
data items and routines that make up the 
RWS. This can best be done using a listing 
that includes a glossary and a 
cross-reference dictionary. The following 
discussion assumes the use of the SYM and 
XREF options. 



LOCATING DATA ITEMS IN A STORAGE DUMP 



CTL 



LVL 



DEFN 



00100 



REFERENCE 



00100 00118 



To the left of the object module appear 
the numbers of the source statements that 
generate each section of code; to the 
right, in the remarks column, are the 
internal data-names. Among the 
instructions generated for source 
statements 00100 and 00118 will be found 
references to item "DNM=2-426", the 
internal name for CTL.LVL. 



The glossary lists the cells, switches, 
and work areas mentioned under "Data-names" 
in this appendix. A portion of the four 
pertinent columns of a typical glossary 
look, for example, like this: 



LOCATING ROUTINES IN A STORAGE DUMP 



SOORCE NAME 



CTL 



LVL 



BASE 



BL=3 



DISPL 



088 



INTRNL NAME 



DNM=2-426 



To locate RWS routines in storage, 
identify the desired routine in the object 
module (discussed below) , add the relative 
address to the load address (shown in the 
Linkage Editor map) , and proceed as in 
finding any other instruction or routine. 
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MAIN PROGRAM 



(IN-LINE CODE) 



GENERATE 
detail-name 
Next sequen- 
tial Instruc- 
tion 




Figure 81. First GENEBATE Statement Logic Flow 
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Figure 82. Logic Plow of All GENERJS.TE Statements After the First 
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Figure 83. TERMINATE Statement Logic Plow 



LOCATING ROOTINES IN THE OBJECT MODULE 



PWS routines can be found by scanning 
the name field of the object module for 
their GN numbers. Most of their 6N numbers 
can be found by using Figure 84. Phase 12 
reserves 24 6N numbers while scanning each 
RD statement and assigns 17 of them to 
routines as shown in this table. (The 
other four routines, DET-ROUT, DSM-ROUT, 
CTH-ROOT, and CTF-ROOT, are discussed 
separately below.) The GN numbers in 
Figure 34 may be considered absolute for 
the first RWS and relative for any 
succeeding RWSs generated. In the latter 
case, the GN number of the INT-ROOT routine 
can be used as a base. It may be found 
from the coding for the INITIATE statement, 
which is a branch to the INT-ROOT routine, 
with the GN number of that routine 
indicated in the remarks column. 



Locating PET-ROOT and OSM-RODT Routines 



There is one DET-ROUT routine generated 
for each detail group in the source 
program. Each DET-ROOT routine has one 
corresponding OSM-ROUT routine. The 



DET-ROUT routines can be found by tracing 
from the 01-level statement containing the 
TYPE IS DETAIL clause. The generated 
instruction would look about like this: 



6N=032 



EQU * 





——————— 


■■ ■ ' ' . . . . . . , 




GN 


ROUTINE 1 




01 


RPH-ROUT 1 




02 


RPF-ROOT 1 




03 


PGH-ROUT 1 




04 


PGF-ROUT 1 




05 


1ST-RO0T 1 




06 


LST-ROUT 1 




07 


WRT-ROOT 1 




010 


CTB-ROUT 1 




Oil 


ROL-ROUT 1 




012 


RST-FOUT 1 




016 


CHF-ROUT I 




017 


CPP-ROUT 1 




020 


INT-ROUT I 




021 


ALS-ROUT 1 




022 


RLS-ROUT 1 




023 


SAV-ROUT I 




024 


RET-ROUT 1 



Figure 84. RWS GN Numbers 
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This is the first instruction of the 
DBT-ROOT routine and 032 is the GN number. 



Each DET-RODT routine has one 
corresponding USM-ROUT routine. The 
OSM-RODT routine is assigned a 6N number 
one less than its DET-ROUT routine, in this 
case 031. 



Locating CTF-RODT and CTH-ROUT Routines 



RWS LOGIC FLOWCHARTS 



A set of flowcharts for a typical report 
writer subprogram is included in the 
Flowcharts chapter of this publication 
beginning with chart number 501. The logic 
of many of the routines varies with 
different source programs. The particular 
program used to produce this RWS is the 
report writer program ACME, which is used 
as the example in IBM VS COBOL for 
DOS/VSE . 



One CTF-RODT and one CTH-RODT routine 
are assigned to each control after the 
highest (FINAL) level control (whose 
heading and footing are provided by the 
CHF-RODT and CFF-ROUT routines) . If they 
are described in the source program, they 
may be found in the same way as the 
DET-ROOT routines. If not, they can be 
found by tracing the logic, using Figure 80 
as a guide. 



The CTF-ROUT routines generated for DAY 
and MONTH, the two controls used in ACME, 
are virtually identical; therefore, only 
the CTF-ROUT flowchart for DAY is included. 
CTH-ROUT routines were not required for 
this source program for either control. 
Phase 12, therefore, generates dummy 
CTH-ROOT routines; these dummy routines are 
not included in the set of flowcharts. 
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APPENDIX D. GENERATED CODE FOR INPUT/OUTPUT NON-VSAM VERBS 



This appendix shows the generated coding produced by the compiler for 
input/output verbs. The presentation closely follows the organization 
of phase 51, where input/output verb coding is generated (see 
"Input/Output Verbs" in that chapter for further discussion) . For each 
verb, the set of instructions is built in the sequence shown. For 
example, decision 1 is made and the code shown under it is accordingly 
skipped or generated, then decision 2, and so on. 



OPEN CODING 



1. If the file is opened more than one way in a program: 



MVC DTFPTR(4) ,SECPTR 



Secondary DTF address to current DTF 
pointer cell 



2. If the file is ever closed with lock and is not standard sequential 
(ILBDSIOO handles close-lock for standard sequential files) : 



L 1 , DTFPTR 



15,=V(ILBDCLK0) 



BALR 14,15 



DTF pointer for subroutine to test the 
pre-DTF byte switch which indicates 
whether the file was closed with lock 

Subroutine to handle error condition 
(cannot open the file again if 
pre-DTF switch contains X'FF") 



3, If the STXIT option is requested and there is a standard error 
declarative for a unit record device : 



L 15,=V(ILBDABX0) 
BALR 14,15 



Subroutine to issue STXIT AB to 
establish linkage to the user 
procedure 



4. If DTFDA, relative track addressing and sequential access: 



L 


1 , DTFPTR 


SH 


1,=H'31' 


MVI 


15(1) ,X'00' 


XC 


0(3,1), 0(1) 


MVI 


8(1) ,X'01' 


XC 


19(12,1), 18(1) 



Initialize current-extent bucket 
Clear TTT of SEEK address 
Record 1 
Clear PN area 



The three words preceding the DTF (for 
ERROR, BOF, and EOF addresses) are 
cleared before the OPEN, since 
different addresses may be used when 
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the file is opened more than one way 
and there is only one DTF for a 
direct-access file 

5. If DTFDA and not relative track addressing, or not sequential 
access: 

L 1,DTFPTR 
SH 1,=H'12' 
XC 0(12,1), 0(1) Clear PN area (as above). 

6. If there are any declaratives pertaining to this OPEN: 

L 1,DTFPTR Beginning of DTF 

SH l,=H'nn' nn=20 for DTFMT, SD (5 possible 

declaratives) 
nn=12 for DTFDA (3 possible 

declaratives) 
nn=4 for DTFCD, PR, DU, IS (1 possible 
declarative) 

MVC 0(4,1) ,PNBOV Generated only if MT or SD with a BOV 

declarative 
MVC 4(4,l),PNEOV Generated only if MT or SD with an EOV 

d 6 d Si IT 3 il X V6 

MVC 0(4,1) ,PNEOF Generated only if DA with an EOF 

declarative 
MVC 8(4,1) ,PNEOF Generated only if MT or SD with an EOF 

declarative 
MVC 4(4,1) ,PNBOF Generated only if DA with a BOF 

MVC 12(4,1) ,PNBOF Generated only if MT or SD with a BOF 

declarative 
MVC 0(4,1) ,PNERR Generated only if CD, PR, IS or DU, 

with an ERROR declarative 
MVC 8(4,1) ,PNERR Generated only if DA with an ERROR 

declarative 
MVC 16(4,1) ,PNERR Generated only if MT or SD with an 

ERROR declarative 

7. If either DTFMT or DTFSD, and there are user-standard labels: 

L 1,DTFPTR PRE-DTF switch will be turned off to 

SH 1,=H'4' indicate to subroutine ILBDUSLO that 

NI 0(1),X'DF' any labels processed are BOF rather 

than BOV 

8. If DTFDA or DTFSD; note that during user standard label processing, 
a LBRET3 instruction is issued by subroutine ILBDUSLO if labels are 
being updated. Otherwise, a LBRETl (no more label processing 
needed) or LBRET2 (GO TO more labels) is issued, depending on the 
declarative: 

L 1,DTFPTR If not already done 

SH 1,=H'4' If not already done 

01 0(1),X'40' Generated only for OPEN I-O 

NI 0(1),X'BF' Generated if not OPEN 1-0 

01 0(1),X'08' Spanned records indicator (generated 

only for DTFDA) 

9. If variable blocked records: 

L 1,DTFPTR Point to PRE-DTF switch if Rl does not 

SH 1,=H'4' already contain this address 

NI 0(1),X'EF' Indicates next WRITE will be the first 

one 

Note. : Subroutine ILBDVBLO will not check the space available in the 
buffer the first time. It will set the PRE-DTF switch on so that, for 
each subsequent WRITE, the space available will be checked. 
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10. If DTFDA: 



L 


4,DTFPTR 


01 


21(4) ,X'80' 


NI 


21(4) ,X'7F' 


01 


16(4) ,X'80' 



Generated only if OPEN OUTPUT 
Generated only if not OPEN OUTPUT 
Generated only if EOF labels 



11. If DTFMT and nonstandard labels: 



Establish addressability 

User-specified niimber of reels in TGT 

If none, 

skip next four instructions 

Set address of DTF-24, where 2 bytes 
are set to the reel number for 
subroutine ILBDNSLO to count reels. 



GN EQU * 
12. If DTFMT, first or only file on reel, and OPEN NO REWIND: 



CLI 


93(13) ,X'00' 


L 


14, GN 


BCR 


8,14 


L 


1,DTFPTR 


SH 


1,=H'24' 


MVC 


0(1,1), 93(13) 


MVC 


1(1,1), 0(1) 



L 
01 



1 , DTFPTR 
32(1) ,X'10' 



Set byte 32, bit 3, in DTFMT to 
indicate OPEN NO REWIND 



13. If DTFMT and not the first file on the reel: 



L 1 , DTFPTR 

LA 2, Number of file 

L 15,=V(ILBDMFT0) 

BALR 14,15 

01 32(1),X'10' 

14. If DTFDA or DTFIS: 



Point to DTF 

Number (sequence) of thi^ file on the 

reel 
This subroutine positions the reel to 

the requested file 
Indicate NO REWIND 



[go to 21.] 

15. If standard sequential opened OUTPUT, and record format F or V: 
L 2,BL cell 

16. Basic OPEN coding generated for all standard sequential files: 



Establish addressability 
Store DTF pointer 

Save area for DTF pointer at 0(1) 
Options at 4(1) = concatenation of 

X'Ol' open no rewind 

X'02' open reversed 

X'04* open output 

X'OC open i-o 
Coiranand (i.e., OPEN) indicator 
Standard-sequential file processing 

subroutine 
Call ILBDSIOO 



L 


, DTFPTR 


CNOP 


0,4 


BALR 


1,0 


ST 


0,8(1) 


BAL 


1,14(1) 


DC 


F'O' 


DC 


X'nn' 



DC X'lO' 

L 15, =V( ILBDSIOO) 

BALR 14,15 

17. If DTFMT: 

LA , DTFPTR 

L 15,=V(ILBDIML0) 

BALR 14,15 



Point to DTF 

Subroutine to save the PUB number of 

the first reel in a multiple-reel 

file 
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18. If DTFMT and not OPEN NO REWIND: 



L 
01 



1 , DTFPTR 
32(1) ,X'10' 



Point to DTF 

Indicate NO REWIND for CLOSE time 
unless REWIND was requested 



19. If standard sequential OPEN OUTPUT and double-buffered or blocked 
but not spanned records, and if not SAME RECORD AREA: 



ST 



2,BL cell 



20. If standard sequential OPEN OUTPUT with SAME RECORD AREA and 
double-buffered or blocked but not spanned records: 

ST 2,I0PTR cell 

21. If DTFDA or DTFIS basic OPEN coding: 

Transient subroutine 

Point to DTF 

Save DTF address for subroutine 

ILBDUSLO, ILBDNSLO, or ILBDSAEO 
Force fullword boundary after the next 

instruction 
Establish addressability 
Store DTF address for transient 

subroutine $$BOPEN 
Branch around DS instruction 
To contain DTF address 
Fetch transient subroutine 

22. If record size affected by OCCURS. . .DEPENDING: 



LA 

L 

LR 


1,=CL8'$$B0PEN' 

, DTFPTR 

4,0 


CNOP 


2,4 


BALR 
ST 


15,0 
0,8(15) 


BALR 

DS 

SVC 


0,12(15) 

IF 

2 



01 73(13), X'Ol' 

L 3,GN(Q-RTN) 

BALR 2 , 3 

NI 73(13) ,X'FE' 

23. If DTFDA and OPEN OUTPUT: 

L 1 , DTFPTR 

L 15, =V (Subroutine) 

BALR 14,15 



24. If DTFIS and OPEN OUTPUT: 



L 


0, DTFPTR 


LA 


1,=CL8'$$BSETFL' 


SVC 


2 


LR 


1,0 


TM 


30(1) ,X'08' 


L 


14,GNC0NT 


L 


15,=V(ILBDISE1) 


BCR 


7,15 



Only if OPEN OUTPUT 
GN of Q-routine 
Call Q-routine 
Only if OPEN OUTPUT 



Point to DTF 

Subroutine to initialize the file by 
writing RO onto each track of the 
specified extents and an EOF record 
at the end of the last extent, as 
follows: 

ILBDFMTO, if not relative track 

addressing 
ILBDRFMO, if relative track 

addressing. 



Point to DTF 

Transient subroutine to preformat 

tracks for loading or extending a 

file 
Fetch transient subroutine 
Point Rl to DTF 
Test for SETFL errors 
Set subroutine return point 
ISAM error subroutine 
Call subroutine if errors 



GNCONT EQU * 



Appendix D: Generated Code for Input/Output Verbs US? 



Licensed Material - Property of IBM 



25. If DTFIS and OPEN INPUT and sequential: 



L 
L 


1,DTFPTR 

15, GN (next sentence) 


TM 
BCR 


16(1) ,X'20' 
1,15 


L 
LA 


, DTFPTR 
1,=CL8'$$BSETL' 


CNOP 


2,4 


BALR 

ST 

BAL 

DC 

DC 

SVC 


15,0 

0,8(15) 

0,16(15) 

XL4'00' 

CL4'B0F ' 

2 



Sentence beyond fetch, transient 

$$BSETL 
Was file assigned IGN 
Yes, branch around transient $$BSETL, 

otherwise fall through 

Transient which initiates the mode for 

sequential retrieval 
Force fullword boundary after the next 

instruction 
Establish addressability 
Store DTF address 
Branch around DC instruction 
To contain DTF address 
Retrieval begins at BOF 
Fetch, transient $$BSETL 



CLOSE FILE CODING 



1. If RERUN specified for this file: 



LA 


3,CHKPTCTR 


CLI 


CHKPTCTR,X'FF' 


L 


14,GN=XY 


BCR 


8,14 


L 


0,CHKPTCTR 


L 


15,=V(ILBDCKP1) 


L 


14,GN=XX 


BCTR 


0,14 


BALR 


14,15 


DC 


ALl(SYSNO) 


DC 


CL7'File name' 


GN=XY 




L 


0, Number of records 


GN=XX 




ST 


0,CHKPTCTR 



If this is first record, 
branch around call to 
Checkpoint Subroutine. 

Number of records remaining. 

Checkpoint Subroutine 

If number of records left 

is not 0, branch around 

checkpoint. 

Parameter for subroutine 

Parameter for subroutine 

Maximum number of records 

Reset counter to maximum number of 
records. 



2. If DTFIS sequential access and opened INPUT or I-O 



1 , DTFPTR 
15,16(1) 
14,20(15) 



Address of LIOCS module 
Enter LIOCS module for ESETL (End 
Sequential Mode) 



3. If DTFIS sequential access, opened OUTPUT, and double-buffered; 



L 
L 

BAL 
DC 



1, DTFPTR 
15,16(1) 
14,6(15) 
X'AAOO' 



Address of logic module 
ENDFL routine 
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L 


0,DTFPTR 


LA 


1,=CL8'$$BENDFL' 


SVC 


2 


LR 


1/0 


TM 


30(1) ,X'01' 


L 


15,=V(ILBDISE1) 


BCR 


7,15 



If DTFIS sequential access / opened OUTPUT: 



Transient subroutine to write last 
necessary block of data and on EOF 
record after it 

Fetch transient subroutine 

Check if EOF written 

If EOF record not written, go to ISAM 
error subroutine to handle 

5. If DTFDA or DTFIS, basic coding for all files (CLOSE macro 
expansion) : 



Save DTF address in R4 for label 

subroutines 
Transient subroutine to close file 
Force fullword boundary after the next 

instruction 
Establish addressability 
Store DTF address 
Branch around next instruction 
To contain DTF address 
Fetch transient subroutine 



Clear DSKXTNT index in pre-DTF 
for subsequent opens 

7. If DTFDA or DTFIS: 
[go to 13.] 

8. If DTFMT and either CLOSE WITH REWIND or CLOSE WITH LOCK: 



L 
LR 


0, 
4, 


DTFPTR 



LA 
CNOP 


1/ 
2, 


=CL'$$BCLOSE' 
4 


BALR 

ST 

BAL 

DS 

SVC 


IE 

0, 

0, 

F 

2 


8(15) 
12(15) 


If 


DTFDA: 


L 

SH 

MVI 


1,DTFPTR 
1,=H'16' 
0(1) ,X'O0' 



L 1, DTFPTR 

NI 32(1) ,X'EF' 

XI 32(1), X'30' 

LR 0,1 



Generated only if CLOSE WITH REWIND 
Generated only if CLOSE WITH LOCK 
Load DTF address into RO 



9. If standard sequential but not case 8 (i.e., not DTFMT CLOSE REWIND 
or CLOSE LOCK) : 

L 0, DTFPTR Load DTF address into RO 

10. If standard sequential, basic CLOSE coding for all files: 



Establish addressability 

Store DTF address for subroutine 

Branch around data to subroutine call 

Holds DTF address 

Options byte X'02' on for LOCK 

X'Ol' on for NO REWIND 
CLOSE FILE conunand byte 
Standard-sequential file subroutine 
Call ILBDSIOO 



CNOP 


0,4 


BALR 


1,0 


ST 


0,8(1) 


BAL 


1,14(1) 


DC 


F'O' 


DC 


X'nn' 


DC 


X'14' 


L 


15, =V( ILBDSIOO) 


BALR 


14,15 
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11. If DTFMT and CLOSE REWIND: 

L 0,DTFPTR Transient to shift JIP pointers until 

LA 1,=CL8*$$BFCMUL' the PUB pointer of the first volume 

of the file is found (for 
multiple-reel files) 
SVC 2 Fetch transient subroutine 

12. If DTFMT and CLOSE NO REWIND: 

L 1 , DTFPTR 

NI 32(1),X'CF' Indicate NO REWIND 

13. If CLOSE WITH LOCK and file is opened only one way: 

L 1, DTFPTR 

SH 1,=H'4' Point to Pre-DTF switch 

MVI 0(1),X'FF' Indicate that file must not be reopened 

[Exit - End of CLOSE File Coding] 

14. If CLOSE WITH LOCK and file is opened more than one way: 

Point to first secondary DTF pointer 
Point to Pre-DTF switch 
Indicate that file must not be reopened 
Point to second secondary DTF pointer 
Point to Pre-DTF switch 
Indicate that file must not be reopened 
Point to third secondary DTF pointer. 
(Note : skip this and the next two 
instructions if there is no third 
SDTF) 
Point to Pre-DTF switch 
Indicate that file must not be reopened 

[Exit - End of CLOSE File Coding] 
CLOSE REEL CODING (FOR DTFSD, DTFMT, AND DTFDA SEQUENT lAL INPUT ONLY ) 



L 


1 , SDTFPTRl 


SH 


1,=H'4' 


MVI 


0(1) ,X'FF' 


L 


1 , SDTFPTR2 


SH 


1,=H'4' 


MVI 


0(1) ,X'FF' 


L 


1 , SDTFPTR3 


SH 


1,=H'4' 


MVI 


0(1) ,X'FF' 



1. If CHKPT was requested for this file: 



LA 


3,CHKPTCTR 


CLI 


CHKPTCTR,X'FF' 


L 


14,GN=XY 


BCR 


8 , GN=XY 


L 


0,CHKPTCTR 


L 


15,=V(ILBDCKP1) 


L 


14 , GN=XX 


BCTR 


0,14 


BALR 


14,15 


DC 


ALl(SYSNO) 


DC 


CL7'File name' 


GN=XY 




L 


0, Number of re 


GN=XX 




ST 


0,CHKPTCTR 



If this is first record, branch around 
call to Checkpoint subroutine 



Number of records remaining 
Subroutine to issue checkpoint macro 

If count is greater than zero, subtract 
one and skip next four instructions 

If count equals zero, branch to 
subroutine to issue CHKPT 

Parameter for subroutine 

Parameter for subroutine 

Maximum number of records 
Reset counter 
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2. If DTFDA, sequential input: 

L 1 , DTFPTR 

L 15, =V( Subroutine) 

BALR 14,15 



DTF address 

Subroutine to point to beginning of 

first extent specified on next 

voliime, as follows; 

ILBDCRDO, if not relative track 

addressing. 
ILBDRCRO, if relative track 

addressing. 



[Exit - End of CLOSE UNIT coding for DTFDA] 



files only. 


3. If 


DTFSD: 


L 


, DTFPTR 


CNOP 


0,4 


BALR 


1,0 


ST 


0,8(1) 


BAL 


1,14(1) 


DS 


F'O' 


DC 


X'nn' 


DC 


X'18' 


L 


15,=V(ILBDSIO0) 


BALR 


14,15 


4. If 


DTFMT : 


L 


1, DTFPTR 


NI 


31(1) ,X'FD' 


5. If 


DTFMT and CLOSE 


NI 


32(1) ,X'EF' 


6. If 


DTFMT : 


L 


2,BL 


L 


, DTFPTR 


CNOP 


0,4 


BALR 


1,0 


ST 


0,8(1) 


BAL 


1,14(1) 


DC 


F'O' 


DC 


X'nn' 


DC 


X'18' 


L 


15,=V(ILBDSIO0) 


BALR 


14,15 


L 


1, DTFPTR 


01 


31(1) ,X'02' 


7. If 


DTFMT and CLOSE 


01 


32(1) ,X'10' 



on for CLOSE 

on for LOCK 

on for NO REWIND 



DTF address 

Establish addressability 
Store DTF address for subroutine 
Branch around data to subroutine call 
Holds DTF address 
Options byte X'08' 
REEL/UNIT 

X'02' 

X'Ol' 
CLOSE UNIT command byte 
Standard- sequential file subroutine 
Call ILBDSIOO 



Point to DTF 

Turn off FORCE-REWIND indicator 



Turn off NO-REWIND indicator 



Data record pointer 
DTF address 

Establish addressability 
Store DTF address for subroutine 
Branch around data to subroutine call 
Holds DTF address 

on for CLOSE 



on for LOCK 

on for NO REWIND 



Options byte X'08' 
REEL/UNIT 

X'02' 

X'Ol' 

CLOSE REEL command byte 
Standard-sequential file subroutine 
Call ILBDSIOO 



Turn NO-REWIND indicator back on 
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8. If blocked or double-buffered records: 

ST 2,BL Save pointer to data record 

[Exit - End of CLOSE REEL/UNIT coding] 

READ CODING 

1. If CHKPT was requested for this file: 

LA 3,CHKPTCTR If this is first record, branch around 

CLI CHKPTCTR^X'FF' call to Checkpoint subroutine 

L 14,GN=XY 

BCR 8 , GN=XY 

L 0,CHKPTCTR Number of records remaining 

L 15,=V(ILBDCKP1) Subroutine to issue checkpoint macro 

L 14,GN=XX 

BCTR 0,14 If count is greater than zero, subtract 

one and skip next four instructions 

BALR 14,15 If count equals zero, branch to 

subroutine to issue CHKPT 

DC ALKSYSNO) Parameter for subroutine 

DC CL7'File name' Parameter for subroutine 
GN=XY 

L 0, Number of records Maximum number of records 
GN=XX 

ST 0,CHKPTCTR Reset counter 

2. For all files: 

L 1,DTFPTR Point Rl to DTF 

3. If not standard sequential: 

L 15,GN(E0F) Address for EOF 

TM 16(1), X'20' Was file assigned IGN 

BCR 1,15 Yes - Go to EOF 

4. If DTFDA and either random or sequential access: 

LA 0, ACTUAL KEY Generated only if ACTUAL KEY is 

specified 
SR 0,0 Generated only if sequential with no 

ACTUAL KEY specified 

5. If DTFIS and sequential access: 

L 0,BL Point to user's record 
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6. If DTFDA or DTFIS: 

L 5, GN (INVALID KEY) 
L 15 /=V (Subroutine) 



BALR 14,15 



Address of INVALID KEY routine 
Address of subroutine, as follows: 
ILBDDSRO, if sequential access, DA, 

and not relative track addressing. 
ILBDRDSO, if sequential access, DA, 

and relative track addressing. 
ILBDDIOl, if random access, American 

National Standard, and not relative 

track addressing. 
ILBDRDIl, if random access, American 

National Standard, and relative 

track addressing. 
ILBDDI02, if random access, IBM 

American National Standard, and not 

relative track addressing. 
ILBDRDI2, if random access, IBM 

American National Standard, and 

relative track addressing. 
ILBDISM3, if sequential access and 

ISAM. 
ILBDISM2, if random access and ISAM. 



[go to 16.] 
7. If standard sequential, spanned records: 



L 0,BL 
SH , =H • 4 ' 



Address of record 
Point to RECSIZE field 



8. If DTFMT multiple reel and either spanned records or unspanned 
records but label records omitted: 



Point R4 to XDTF 

Store NOTEND/NOTINV GN in XDTF 



LR 


4,1 


SH 


4,=H'40' 


L 


4,0(4) 


MVC 


84(4,4) ,GN(Next 




Sentence) 


L 


5,GN(END) 


ST 


5,80(4) 


01 


80(4) ,x'80' 


or NI 


80(4) ,X'7F' 


9. If 


DTFMT multiple r 


CNOP 


2,4 


BALR 


15,0 


ST 


5,20(15) 


ST 


0,24(15) 


LA 


5,20(15) 


L 


15,96(4) 


B 


8(5) 


DC 


F'O' 


DC 


F'O' 


BALR 


14,15 



10. 



store END/INVKEY GN in XDTF 

If END/INVKEY not specified in source 

If END/INVKEY specified 



Establish addressability 

Store address of ATEND GN before 

subroutine call 
Store DTF address before subroutine 

call 
Re-establish addressability 
Address of READ entry-point 
Branch around data 
Holds ATEND GN address 
Holds DTF address 
Call ILBDSIOO 

If DTFMT multiple reel, unspanned records, and label records 
omitted : 



BALR 
LA 

L 
BALR 



15,0 
3,10(15) 

15,96(4) 
14,15 



Establish addressability 
R3 has address of NSI after subroutine 
. call 

Address of READ entry-point 
Call ILBDSIOO 
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LR 


4,1 


SH 


4,=H'40' 


L 


4,0(4) 


MVC 


84(4,4) ,GN(Next 




Sentence) 


L 


15,GN(END) 


ST 


15,80(4) 


01 


80(4) ,X'80' 


or NI 


80(4) ,X'7F' 


L 


15,96(4) 


BALR 


14,15 



Licensed Material - Property of IBM 



11. If standard sequential other than case 8 (i.e., if not DTFMT 
multiple-reel spanned, and not DTFMT multiple-reel with label 
records omitted) : 



Point R4 to XDTF 

Store NOTEND/NOTINV GN in XDTF 

Store END/INVKEY GN in XDTF 

If END/INVKEY not specified in source 

If END/INVKEY specified 

Address of READ entry-point 

Call ILBDSIOO 

12. If standard sequential and spanned records or both unblocked and 
single-buffered : 

[go to 16.] 

13. If standard sequential and variable-length records: 
LA 2,4(2) 

14. If standard sequential (other than case 12, i.e., if not spanned 
and not unblocked single-buffered) , and not SAME RECORD AREA: 

ST 2,BL 

15. If standard sequential (other than case 12) and SAME RECORD AREA; 

L 1,BL Point to SAME RECORD AREA 

MVC 0(RECSIZE,1) ,0(2) Move data from buffer to SAME RECORD 

AREA 
(Note: If length > 256, done in loop 
or ILBDMOVO subroutine) 

16. If file has a subject or an object of an OCCURS clause with a 
DEPENDING ON option: 

L 3,GN(Q-RTN) GN number for the Q-Routine 

BALR 2,3 for this file 

17. Basic coding, generated in all cases: 

L 15,GN(Next Sentence) GN number of next sentence after 
BCR 15,15 AT END or INVALID KEY coding or of 

next statement, if neither is 

specified 

Note : This is followed by the expansion of the imperative statements 
following AT END or INVALID KEY, if any. 
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1. If checkpoint is requested: 

If this is first record, branch around 
call to Checkpoint subroutine 

Number of records remaining in count 
Subroutine to issue CHKPT macro 
instruction 

If number of records remaining is not 
0, subtract 1 and skip the next four 
instructions 
Go to subroutine 
Parameter for subroutine 
Parameter for subroutine 

Load with maximum number of records 

Reset counter to maximum number 

2. Basic coding (generated in all cases): 

L 1,DTFPTR Address of beginning of DTF 

3. If spanned records: 



LA 


3,CHKPTCTR 


CL1 


CHKPTCTR^X'FF' 


L 


1 4 , GN=xy 


BCR 


8 , GN=XY 


L 


, CHKPTCTR 


L 


15,=V(ILBDCKP1) 


L 


14,GN=XX 


BCTR 


0,14 


BALR 


14,15 


DC 


AL1 (SYSNO) 


DC 


CL7'File name' 


GN=XY 




L 


0, Number of records 


GN=XX 




ST 


, CHKPTCTR 



L 0,BL 
SH 0,=H'4' 



Record address 

Point to record length field in front 
of record 



4. If SAME RECORD AREA and blocked or double-buffered and not APPLY 
WRITE ONLY: 

a. If record length less than 2047 bytes: 



Address of buffer 

Address of SAME RECORD AREA 

Move record to buffer 

If greater than 256 

b. If record length equal to or greater than 2047 bytes: 



L 


2 , lOPTR 


L 


3,BL 


MVC 


(Length, 2) ,0(3) 


MVC 


256(length,2) ,256(3) 



L 5,I0PTR 

L 2,BL 

LH 3,=H'RECSIZE' 

L 15,=V(ILBDMOV0) 

BALR 14,15 

L 2,I0PTR 



Address of buffer 

Address of SAME RECORD AREA 

Move record to buffer 

Address of buffer 



5. If not SAME RECORD AREA and not spanned records, or if unblocked 
single-buffered : 



L 2,BL 
6. If any ODOS: 



Address of record 



LH 
LA 



3,VLC 
3,1 (3) 



Record length 

Generated only if ADV option applies ai 
undefined or variable blocked record.* 
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7. If no ODOS: 

LH 3, record size 

or LH 3, record size + 1 

8. If spanned records: 
AH 3 , =H • 4 ' 



If ADV option does not apply, or if 
neither undefined nor variable 
blocked records 

If ADV option applies and undefined or 
variable blocked records 



Include record-length field in length 



9. If variable unblocked records and ADV option does not apply: 

Point to record-length field 

Include it in length 

If other than DTFCD, store total length 

If DTFCD, store total length unaligned 

Clear second halfword of record length 

Only if standard sequential, restore BL 

10. If variable unblocked records and ADV option applies (record 
contains a CTL character supplied by compiler) : 



SH 


2,=H'4' 


LA 


3,4(3) 


STH 


3,0(2) 


or STCM 


3,3,0(2) 


XC 


2(2, 2), 2(2) 


LA 


2,4(2) 



SH 
LA 
STH 
or STCM 
XC 
LA 



2 , =H • 5 • 

3,5(3) 

3,0(2) 

3,3,0(2) 

2(2, 2), 2(2) 

2,5(2) 



11. If DTFDA: 
LA ,ACTKEY 

L 5,GN(INVKEY) 

L 1 5, =V (Subroutine) 



BALR 14,15 



Point to record-length field 

Include it in length 

If other than DTFCD, store total length 

If DTFCD, store total length unaligned 

Clear second halfword of record length 

Restore BL 



Point to user's ACTUAL KEY for 

subroutine 
Address of user's INVALID KEY coding 
Address of subroutine, as follows: 
ILBDDIOO, if American National 

Standard WRITE and not relative 

track addressing. 
ILBDRDIO, if American National 

Standard WRITE and relative track 

addressing. 
ILBDDI03, if REWRITE and not relative 

track addressing. 
ILBDRDI3, if REWRITE and relative 

track addressing. 
ILBDDI04, if IBM American National 

Standard WRITE and not relative 

track addressing. 
ILBDRDI4, if IBM American National 

Standard WRITE and relative track 

addressing. 



12. If DTFIS and SEQUENTIAL REWRITE: 
L 0,=A( RECORD) 
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13. If DTFIS: 

L 5,GN(INVKEY) 

L 1 5, =V( Subroutine) 



BALR 14,15 
14. If DTFDA or DTFIS: 



Address of user's INVALID KEY coding 
Address of subroutine , as follows: 

ILBDISMO if WRITE SEQUENTIAL 
ILBDISM1 if RANDOM WRITE 
ILBDISM4 if RANDOM REWRITE 
ILBDISM5 if REWRITE SEQUENTIAL 



[go to 21.] 

15. If standard sequential without LINAGE or ADVANCING/POSITIONING 
clause, and if APPLY WRITE-ONLY: 

LA 2 , sending field 

LH 5,sending-field length 

16. If standard sequential with LINAGE or ADVANCING/POSITIONING 
clause, and if APPLY WRITE-ONLY: 

LA 0, sending field 

LH 5,sending-field length 

17. If standard sequential with ADVANCING data-name clause: 



LA 


4, data-name 


CNOP 


2,4 


BALR 


15,0 


ST 


4,40(15) 



Establish addressability 

Store data-name address following 

parameters for ILBDSPAO (see step 18 

below) 
18. If standard sequential, basic coding for all cases: 

LR 4,1 

SH 4,=H'40' 

L 4,0(4) Point R4 to XDTF preceding DTF 

MVC 84 (4) ,GN(Next Sentence) Store bypass-GN in XDTF 

MVC 80(4) ,GN (INVALID KEY) Store GN of EOP or INVALID KEY 

or GN(EOP) coding in XDTF 

01 80(4), X'80' If INVALID KEY or EOP not specified 

or NI 80(4),X'7F' If INVALID KEY or EOP specified 

L 15,104(4) Entry point to ILBDSIOO if WRITE 

or L 15,100(4) Entry point to ILBDSIOO if REWRITE 



BALR 14,15 



Call ILBDSIOO 



19. If standard sequential with LINAGE or ADVANCING/POSITIONING clause, 
generate parameters for ILBDSPAO subroutine, which ILBDSIOO will 
invoke : 



DC 
DC 
DC 
DC 
DC 



XLl'parml' 
XLl'parm2' 
XLl'parmS' 
XLl'parm4' 
F'O' 



Depends on operand type, see Note 1 
Depends on operand type, see Note 2 
Record format indicator, see Note 3 
Additional options indicator, see Note ' 
Only if data-name option, holds data-nai 
address (see step 17 above) 
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Note 1: 



Parml 










Bits 


Set To 






If 


6 & 1 


06 
01 
10 






Binary data-name 
Packed data-name 
Zoned data-name 


2 




1 






BEFORE 
AFTER 


3 




1 






S/360 control characters 
ASA control characters 


4 & 5 


00 
01 
10 






Integer 

Identifier 

Mnemonic-name 


6 & 7 


Remainder < 


Df 






Integer 










divided 


by 


3 




Note 2: 











Parm2 = mnemonic-name equivalent skip/space code, or quotient of 
integer divided by 3, or length of data-name 



Note 3: 



Parm3 
00 
01 
02 
04 
08 



If 

FTxed records 

Variable unblocked records 

Variable blocked records and not APPLY WRITE ONLY 

Undefined records 

Variable blocked records and APPLY WRITE ONLY 



Bit of Parm3 is on if ASCII file 
Note 4 ; 

Set to 1 If 



Bit 
~5~ 

1 

2 
3-6 

7 



ADVANCING PAGE specified 

EOP clause specified 

POSITIONING specified 

(Unused) 

WITH CODE specified 



20. If DTFSD and INVALID KEY clause used: 



LR 4,1 

SH 4,=H'4' 

L 15, GN (Next Sentence) 

MM 0(4),X'40' 

BCR 1,15 



DTF address 

Point to fullword preceding DTF 

Was there OPEN I-O? 

If so, bypass all following instructions 



21. If standard sequential and not APPLY WRITE-ONLY and not spanned 
records, and either blocked or double-buffered 



ST 
or ST 



2,BL 
2,I0PTR 



If not SAME RECORD AREA 
If SAME RECORD AREA 



22. If Q-routines are required for ODO: 



01 



73(13, X'Ol' 



L 3,GN(Q-RTN) 

BALR 2 , 3 

NI 73(13), X'FE' 



Turn on CALCULATE MAXIMUM RECORD LENGTH 

indicator (only if standard sequential) 
Address of Q-routine for this file 

Turn off CALCULATE MAXIMUM RECORD LENGTH 
indicator (only if standard sequential) 
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23. If END-OF-PAGE test required: 



L 15,GN(Next Sentence] 
TM 49(4) ,X'40' 
BCR 8,15 



24. If INVALID KEY is used: 
L 15, GN (Next Sentence) 
BR 15 



For branch if not EOP 
Test XDTF for EOP condition 
Not EOP, branch to next sentence; else, 
fall through to user's EOP coding 



Address for bypass of INVALID KEY 

coding 
Go to user's next sentence 



SEEK CODING 



1. Basic coding, generated in all cases: 

Point to beginning of DTF 



L 


1 , DTFPTR 


LR 


15,1 


SH 


15,=H'26' 


LA 


3, ACTUAL KEY 


MVC 


0(7, 15), 0(3) 


LA 


0,7 


L 


15,42(15) 


BALR 


14,15 



Point to PRE-DTF area for SEEK address 
Move first seven bytes (MBBCCHH) 

of user ' s ACTUAL KEY to PRE-DTF area 
SEEK command code 
Logic module address (DTF+16) 
Enter logic module 



START CODING 



1. Basic coding, generated in all cases: 



L 1 , DTFPTR 

L 15, GN (Next Sentence) 

TM 16(1), X'20' 

BCR 1,15 

L 15,16(1) 

BAL 14,20(15) 

L , DTFPTR 



Point to beginning of DTF 

Sentence beyond INVALID KEY coding 

Was file assigned IGN? 

Yes. Branch around INVALID KEY coding. 

Otherwise, fall through. 
Address of logic module for ESET 
Enter logic module 



2. Generated only if KEY EQUAL TO; 



LA 3, data-name 

LH 5 , ' LENGTH ' 

L 15,=V(ILBDSTR0) 

BALR 14,15 



Address of data-name containing key 

value 
Length of identifier 
Address of subroutine to move value of 

data-name to NOMINAL KEY and issue 
$$BSETL MACRO with 'GKEY' option 



3. Generated only if no KEY EQUAL TO: 



L 15,=V(ILBDSTR1) 

BALR 14,15 

TM 30(1),X'D8' 

L 15, GN (Next Sentence) 

BCR 8,15 



Address of subroutine to issue 
$$BSETL MACRO with 'KEY' option 
Test for SETL errors 
Sentence beyond INVALID KEY coding 
No errors; else, fall through to user's 
INVALID KEY coding 
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DISPLAY CODING 



The coding generated for a DISPLAY statement consists of linkage to 
the DISPLAY subroutine or, when the OPT option has been specified, the 
Optimizer DISPLAY subroutine (ILBDDSSO) . The various forms of that 
linkage are discussed in the description of those subroutines in the 
publication in IBM DOS/VS COBOL Subroutine Library Program Logic . 



ACCEPT CODING: 



1. Basic coding, generated in 
does not involve I-O) : 

L 15,=V(ILBDACP0) 

BALR 1,15 

DC XL2' Device Code' 



DC 



DC 



XLl'TYPE 



XL3'MNN' 



all cases (Note: ACCEPT DAY/DATE/TIME 



Subroutine to read a record from 

SYSIPT or console 
The device codes are : 

X'0002' , if CONSOLE 

X'0004' , if SYSIPT 
The bits have the following meanings 

Bit 0-1: (not used) 

2 Variable Length 

3 : Pointer ADCON is direct 
4-7: (not used) 

If binary or internal decimal, M=length 

of input item and NN=length of 

converted result 
If variable length, MNN=the address of 

the VLC-cell; 

otherwise, MNN=length of the item 
Or AL4 (operand-text) if bit 3 of TYPE i 

is set 
Displacement of text from base 



DC AL4 (Base locator) 
DC XL2' Displacements' 
2. If ACCEPT operand contains an object of OCCURS ... DEPENDING : 



LA 3,GN(Q-RTN) 
BALR 2 , 3 



USE.. .ERROR CODING 



GN of applicable Q-routine 
Call Q-routine 



1. Entry code all cases: 



ST 
ST 
ST 
CNOP 



ll,SA2-3 
14,SA2-2 
4,SA2-4 
2,8 



BALR 15,0 



B 



12(15) 



If OPT, save base register 

Save return address 

Save DTP address 

Force doubleword boundary after branch 

instruction 
Establish addressability 
Skip eight bytes 



Entry code if no GIVING option: 



DC 2F'0' 

Entry code if GIVING option: 



Indicates no request for error bytes 



LA 2 , Data-name 
CNOP , 8 



User ' s error byte area 

Position to next doubleword boundary 
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4. Entry code if GIVING. . .data-name-2: 
ST 1,BLL=N 



Point to error block. If D-N is in 
working storage, n=l; if D-N is in 
the linkage section, n=the number of 
the next available ELL. 



5. Entry code if there is USE FOR DEBUGGING in program: 
MVI DBGSW(13) ,X'10' Set Declarative switch 

6. Entry code if GIVING. . .data-name- 2: 
MVC Data-name, (1) 



7. Exit code all cases: 



L 


ll,SA2-3 


L 


4,SA2-2 


L 


14,SA2 


BR 


14 



Move to user-defined area. This 
statement is generated by Phase 40 
The length of the buffer is the "TO" 
field of the operand; of the length 
of the record is the "FROM" field 



If OPT, restore base register 
Restore DTF address 
Restore return address 
Return to subroutine ILBDSAEO, 
ILBDDAEO, or ILBDISEO 



USE... LABELS CODING 



1. Entry code, all cases: 

ST ll,SA2-3 

ST 2,BLL=1 

ST 4,SA2-1 

MVI DBGSW(13) ,X'10' 



2. Exit code, all cases: 



ll,SA2-3 
4,SA2-1 



If OPT, save base register 
SAVE address of label 
SAVE DTF address 

If there is USE FOR DEBUGGING, set 
Declarative switch 



If OPT, restore base register 
Restore DTF address 



3. Exit code if non-standard labels without GO TO MORE-LABELS; 



L 
BR 



15,=V(ILBDNSLl) 
15 



Subroutine which will return control to 
to user ' s procedure 



Exit code if user-standard labels without GO TO MORE-LABELS: 



L 15,=V(ILBDUSLl) 
BR 15 



Subroutine which will return control to 
user • s procedure 



5. Exit code if GO TO MORE-LABELS and non-standard labels: 



L 15,=V(ILBDNSL2) 
BR 15 



Subroutine to return control to LIOCS 
to read or write the next label 



6. Exit code if GO TO MORE-LABELS and user-standard labels: 



L 15,=V(ILBDUSL2) 
BR 15 



Subroutine to return control to LIOCS 
to read or write the next label. 
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GLOSSARY 



The words listed below are defined 
according to their use in this book, and 
the definitions are not necessarily 
applicable elsewhere- Efforts have been 
made to exclude terms which are common in 
the programming profession unless they are 
used in a special sense. 

Associated file ; A file on a 3525 card 
punch device with optional read and print 
feature for which more tnan one of the 
read, punch, or print functions has been 
specified in the ASSIGN clause of the 
SELECT sentence. 

A TF-text ; An internal compiler text 
generated by phase 20 for phase 22. It is 
used in preparing entries for the 
dictionary. See "Section 5. Data Areas." 

ATM- text ; An internal compiler text 
generated by phase 4 for phase 45. It is 
used in creating P2-text for the UNSTRING 
verb. See "Section 5. Data Areas" for 
formats. 

ACCESS routines : A group of routines which 
build and access the dictionary. They 
reside in storage as part of Phase 00. see 
"Appendix A. " 

Base Locator (B L) ; A U-byte address cell 
in the TGT. There is one BL pointing to 
the Report Section, one to the 
Working-Storage Section, and one to each 
FD, SD, and RD entry. Any FD, SD, or RD 
entry exceeding 4,096 bytes will have one 
BL assigned to each 4,096 bytes. Phase bO 
loads a register with each address unless 
there are too many BLs. In that case, it 
loads registers with BLs as they are 
needed. BLs are assigned in phase 22. 

Base Locator for Linkage Section (BLL) : A 
4-byte address cell in the TGT. BLLs are 
assigned by counter and are unique. BLLl 
points to a work area used to process label 
records. ELL2 through BLLn are assigned to 
each 77-level and each 01-level entry in 
the Linkage Section. Any 77- or 01-level 
entries exceeding 4,096 bytes have one BLL 
assigned per 4,096 bytes. BLLs are 
assigned in phase 22. 

BL ; see Base Locator. 

BLL ; see Base Locator for Linkage Section. 

C OBOL Library Subrou t ine ; One of a set of 
subroutines that perform frequently 
required operations and which, because they 
are too extensive to be efficiently placed 
into the object module wherever needed, are 
stored in the COBOL library and included in 
the load module by the linkage editor when 
needed. See IBM DOS/VS COBOL Subroutine 
Library Program Logic " 



COBOL space ; The difference in length 
between the longest phase and the phase 
currently processing. This space is 
available to supplement the space initially 
assigned to TAMER. 

COMMON; A communications region available 
to all phases for storing and accessing 
information. It is resident in storage at 
the beginning of phase 00 and accessible 
via DSECTs to other phases. See "Section 
5. Data Areas." 

COUNT Table ; A part of the object module 
only when the COUNT option is specified. 
It contains entries for each procedure-name 
and verb in the source program. 

Data A-text ; An internal compiler text 
generated by phases 21 and 22. It is used 
by phase 60 to generate the data and global 
table areas of the object module. See 
"Section 5. Data Areas." 

Data IC- text ; An internal compiler text 
generated by phases 10 and 12. It is used 
in phases 21 and 22 to create Data A-text. 
See "Section 5. Data Areas." 

Debug text ; A type of debugging text which 
contains card numbers, their displacement 
within the object module, the priority of 
each segment, and discontinuity elements. 

DEF-text ; An internal compiler text 
generated in phases 22 and 30. It is used 
by phase 61 to create the cross-reference 
table. See "Section 5. Data Areas." 

Delimiter ; An internal compiler text 
category that consists of the following 
elements: critical progran breaks, verbs, 
source procedure-names at point of 
definition, and compiler-generated 
procedure-names at point of definition. 

Delimiter pointer ; A dictionary pointer to 
the next item with the same or a lower 
level number. 

Dictionary : A table, built by phases 11, 
21, and 22, in which is stored information 
about procedure-names and data operands. 
When SYMDMP is in effect, it is used by 
phase 25 to build the Debug File. It is 
used by phase 30 when creating Pl-text and 
then released. The dictionary format is 
shown in "Section 5. Data Areas." 

Diction a ry attributes : Descriptive 
information about a source program-name 
placed in the dictionary by phases 11, 21, 
and 22. Phase 30 replaces eacn name with 
its dictionary attributes. 
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Dictionary pointer ; The pointer to the 
location of an entry in the dictionary. 
Since it provides a unique identification 
for a name, it is retained and used by sone 
phases after the dictionary has been 
released. 

E-text ; An internal compiler text 
generated by phases 10 through 51 whenever 
an error is detected. It is used by phase 
70 to generate error messages. See 
"Section 5. Data Areas." 

Fixed routine ; One of a set of routines 
generated by phase 12 as part of the Report 
Writer subprogram. Pixed routines never 
vary in logic content. See Appendix C. 

Fragment ; A portion of code having a 
maximum size of one less than 64K bytes 
(65,535) . A fragment begins with the first 
byte of a verb and ends with the last byte 
of a verb preceding the verb with a final 
relative displacement greater than 64K 
bytes. This unit is used in processing for 
the SYMDMP or STATE option. 



GW ; see Procedure-name. 

Group routines ; One of a set of routines 
generated by phase 12 as part of the Report 
Writer subprogram. There is one group 
routine for each 01 -level statement in the 
Report Section. See Appendix C. 

Incomplete Data A -text ; An internal 
compiler text generated by phase 20. It 
has a blank location field, later filled in 
by phase 22, and a 2-byte prefix. 
Otherwise, its format is that shown for 
Data A-text in "Section 5, Data Areas." 

Initialization routines ; Collectively, 
routines IMIT1, INIT2, and IHIT3. These 
are generated by phase 60 as part of the 
object module. A discussion of them, 
including their coding, is provided in 
Appendix B. 

Intermediate A-text ; An internal compiler 
text generated by phase 50. It may be 
basically Procedure A-text or Optimization 
A-text and has an identification prefix 
attached for phase 51. See "Section 5. 
Data Areas." 

Intermediate E-text ; An internal compiler 
text generated by phase 50. It consists of 
E-text to which an identification prefix 
has been added for phase 51. see "Section 
5. Data Areas." 

Ma^n Free Area ; Space in storage 
permanently allocated for tables and the 
dictionary . It is located immediately 
after (that is, in next higher location of 
storage after) COBOL space. 



Major code ; A ft-bit code identifying the 
different types of dictionary entries. The 
codes are listed in "Section 5. Data 
Areas • " 

Master of an OCCORS clause with the 
DEPENDING ON option ; A data-name for a 
variable-length group item which does not 
itself contain an OCCURS clause with the 
DEPENDING ON option, but at least one of 
its subordinate items at the next level 
does contain an OCCURS clause with the 
DEPENDING ON option. See the "Phase 25" 
and "Phase 65" chapters and "Section 5. 
Data Areas." 

Minor code ; A U-bit code identifying the 
type of operand in the dictionary entry of 
an LD item. The codes are listed in 
"Section 5. Data Areas." 

Oblect hierarchy ; The order of all group 
and elementary items defined within the 
second group item in a HOVE CORRESPONDING 
statement. 

Object module ; The result of a successful 
compilation. It is the output of a single 
execution of the compiler and is the input 
to the linkage editor. 

Optimization A-text ; An internal compiler 
text generated by phase 51. It is used by 
phase 60 to eliminate storage duplications. 
See "Section 5. Data Areas." 

Parametric routine ; One of a set of 
routines generated by phase 12 as part of 
the Report Writer subprogram. See Appendix 
C. 



PGT ; see Program Global Table. 

PN ; see Procedure-name. 

Priority ; see Segmentation. 

Procedure-nape (GN. PN, or VN) ; The name 
of a point in a program which can be the 
object of a branch instruction. PNs are 
user-assigned procedure-names which 
correspond to paragraph or section names in 
the Procedure Division of the source 
program. GNs are compiler generated and 
are inserted wherever a need for an 
additional name occurs. VNs are variable 
names; that is, they may vary at execution 
time because of a PERFORM or ALTER 
statement. All procedure-names are unique 
since they include a number assigned by a 
counter (for example, PNI, VN2, 6N1, and 
GN2) . See the chapter on phase 40 for a 
fuller discussion of procedure-names. 

Procedure A-text ; An internal compiler 
text generated by phase 51. It is similar 
to assembler language and is used by phase 
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60 to create machine code for the object 
nodule. See ''Section 5. Data Areas." 

Procedure Block ; Unit of addressability in 
the machine language program which is 
produced when OPT is specified. Each 
Procedure Block consists of approximately 
1096 bytes of code. Host PNs and GNs 
within a Procedure Block are addressed as 
displacements added to a base register 
which contains the address of the first 
instruction of the Procedure Block. 

Procedure IC-text ; One of a series of 
three texts, PC^PI, and P2, generated by 

phases 11, 12, 21, and 22 (PO-text) , 
30 (Pl-text) , 35 (PlA-text) , and 
40 (P2-text) . They are based on the 
source program Procedure Division and 
Report Section statements, and represent 
stages in the translation process from 
source statement to Procedure A-text. 
See "Section 5. Data Areas." 

Program Global Table (PGTl ; A part of the 
object module. The PGT contains virtuals, 
literals, and addresses used during 
execution. See Appendix 6. 

PO-text ; See Procedure IC-text. 
P1-text ; See Procedure IC-text. 
PlA-text ; See Procedure IC-text. 
P2-text ; See Procedure IC-text. 

9-routine ; One of a set of routines 
generated by phase 22. Q-routines 
calculate the length of variable-length 
fields and the location of variably located 
fields resulting from an OCCURS clause with 

the DEPENDING ON option. 

REF-text ; An internal compiler text 
produced by phase 60 if the SXEEP or XREP 
option is in effect. Phase 61 uses 
REF-text and DBF -text to produce a 
cross-reference listing. Each element of 
REF-text consists of a user-assigned name 
and the card number of a statement that 
included that name. 

Root sejqrment ; See Segmentation. 

SBL ; See Secondary Base Locator. 

Secondary Base Locator (SBL) ; A 4 -byte 
address cell in the TGT. Phase 22 assigns 
a unigue SBL, using a counter in COMMON, to 
each variably located field. At execution 
time, each SBL points to its field. 
Variably located fields are those which 
follow a variable-length field and which 
are not new files or records; they occur as 
a result of OCCURS. . .DEPENDING ON 
statements in the source program. If a 
variably located field exceeds 4,096 bytes, 
phase 22 assigns one SBL to each 4,096 
bytes. 



Section; A series of source program 
procedure instructions grouped under the 
same sectiou-name. 

Segment ; A section or a group of sections 
all having the same priority. 

Segmentation ; A special feature of the 
compiler which permits the programmer to 
organize his program into several load 
modules. Each section in the Procedure 
Division is assigned a priority number. 
All sections having the same priority are 
loaded together as a segment. One of 
these, the root segment, resides in storage 
throughout execution of the program. The 
other segments are loaded in order of the 
priority number, each segment overlaying 
the one before. 

Subject hierarchy ; The order of all group 
and elementary items defined within the 
first group item to appear in a HOVE 
CORRESPONDING statement. 

Table; An area in storage containing a 
number of entries of a fixed, often 
identical, format. Many tables used within 
a single phase and all tables used by two 
or more phases are handled by the TAMER 
routines of phase 00. 

TAMER ; A set of routines, resident 
throughout compilation as part of phase 00 
and accessible to all phases, which get 
space for, access, and build tables. Those 
tables which employ TAMER routines include 
those passed between phases and those used 
by a single phase and having a variable 
length. Usually, tables which have a fixed 
length and which are built, used, and 
released within one phase are not handled 
by TAMER routines. 

TAMER space ; Space in storage occupied by 
TAMER tables. It follows (that is, is in a 
higher location of storage COBOL space. 

Task Global Table (TGT) ; A part of the 
object module. The TGT contains 
information, addresses, and work areas for 
use during execution. See -Appendix B. 

TIB (Table Information Block) ; One of 
thirty-six 8-byte cells in COMMON used to 
provide information about TAMER tables. 
The TIBs are numbered and can be reassigned 
after a table has been released . See 
Appendix A. 

TGT ; See Task Global Table (TGT) . 

Transient area ; A portion of storage 
reserved during execution time to contain 
segments which are not permanently 
resident. It contains one such segment at 
a time and is large enough to hold the 
largest nonresident segment in the program. 
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UPSI ; User Program Status Information. 
There are eight 1-bit UPSI switches 
provided by the DOS/VS system. The DPSI 
feature of this compiler provides the 
facility of naming and using these 
switches. Phases 10 and 22 perform the 
processing of this feature. 

Verb string ; A verb and its operands. 

Virtual ; The name of a procedure switch or 
table referenced by a procedure, but not 
defined in the source module. It is 



necessary because of a CALL to an external 
procedure or a reference to a COBOL library 
subroutine. At execution time, the address 
of all procedures referred to by virtuals 
(which have been link edited into the load 
module) are stored in the Program Global 
Table. 



VN: See Procedure -name. 
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BLOCK CONTAINS clause 60-61 
blocking factor, effect on 

coding 106 
BLTABL table 

buffer generation 68 
description 288 
BLUSTBL table 

description 289 
primed by phase 50 103 
BLVNTBL table 289 
BMBSRN routine 53 
branch instructions 
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phase 62 processing 134 

phase 63 processing 138 
BSUBRN routine 53 
BUF option 21 
BUFCNLS area 410 
BUFCNLS cell 36 
Buffer Control Block (BCB) 410 
buffer generation, use of BLTABL 

table 68 
buffers 

address of srea 35 

allocation of space 35-36 

assignment 36 

beginning of area 68 

finding contents 35 

generating 68 

locating 36 

pointer in POINT table 

size determination 35 

size of area 68 
BUFGEN routine 68 
BUFSIZ cell (COMMON) 
BUFTAB table 

buffer generation 

description 289 
BUGBLLNO cell (COMMON) 
BUGSTCRD cell (COMMON) 
BUGVLCNO cell (COMMON) 
BUSAGE routine 53 
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286 
281 
286 
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CALL statement 

allocating PGT space 116 
CALL string 82 
CANCEL request 27 
card numbers 

generated by phase 11 48 

object text listing 122 
CARDINDX table 

built in phase 65 127 

description 290 
CARDLOC elements 

(see also Debug-text) 

phase 65 processing 126 

use in building debug file 126 
CARDNO cell 81 
carriage control Mord 40 
CATAL option 21,111 
CATALR option 21 
CBL card 

information passed to phase 00 36 

OPT option 129 

options permitted 21-24 

phase 01 actions 18.1 
CBNOFND routine 27 
CCBLOC cell (COMMON) 281 
CE abstract worksheet 420.3 
CFF-ROUT routine 

description 446 

flowchart 257 
CHECKPT CTR field (TGT) 

description 432 

space allocation 113 
CHF-ROUT routine 446 
CHKMODE routine 61 
CKPCTR cell (COMMON) 

description 277 

TGT space allocation 113 
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CKPTBL table 

description 291 

entries for RERUN ^1 
clause compatibility 

BLOCK CONTAINS clause 60-61 

DTP generation 60 
CLIST option 

definition 21 

effect on PGT listing 116 

phase 60 processing 111»118 

phase 64 processing 141 
CLOSE macro instruction 28»106 
CLOSE REEL statement* output 

coding 460 
CLOSE statement 

output coding 458 

phase 51 processing 106 
closing files 28 
CNTLTBL table 291 
COBOL bits in DTFs 66 
COBOL Library Subroutines 

(see also COBOL subroutines) 

changing operating mode 96 

definition 470 

for V5AM 106 

READ processing 106 

SEARCH ALL statement 89 

USE coding 106.1 

STATE processing (see STATE option) 

SYMDMP processing (see SYMDMP 
option) 

URITE processing 106 
COBOL space 

assigning 426 

definition 470 
COBOL Subroutines 

(see also COBOL Library 
Subroutines) 

ACCEPT 

ACCEPT coding 106.1 

DISPLAY 

DISPLAY processing 109 
example of linkage codes 109 
generating call 108 

for VSAM 106 

segmentati on 

generating call 108 
COBOL word list 355-358 
COBOLRWD bit in DTFs 66 
CODE-cell cell 447 
coding organi zation* phase 30 71 
COLHIVAL cell (COMMON) 281 
COLLITNO cell (COMMON) 281 
COLLOVAL cell (COMMON) 281 
COMMAD cell (COMMON) 278 
COMMON 275-286.1 

cells 



ACCESW 


275 


ADATAB 


280 


ADSTAT 


275 


AGETALL 


279 


AHSEGMSG 286 


AINSRT 


275 


ALSTAM 


275 


AMAINF 


275 


AMICTR 


281 


AMILOC 


281 


AMOVDC 


278 


APLSCALL 282 


APRIME 


275 


ATPLENT 


286.1 


BGALLPN 


286 


BGALLPRI 286 



COMMON* cells (continued) 
BLCTR 279 
BLLCTR 277 
BUFSIZE 282 
BUGBLLNO 286 
BUGSTCRD 282 
BUGVLCNO 286 
CCBLOC 281 
CKPCTR 277 
COLHIVAL 281 
COLLITNO 281 
COLLOVAL 281 
COMMAD 278 
CORESIZE 280 
COS 275 
CRDNUMXX 282 
CURCRD 282 
CURSGN 278 
DATABDSP 278 
DATATBNM 280 
DATE 282 
DBGLOC 286 
DCPTR 278 
DICADR 277 
DICNDl 277 
DICND2 277 
DICPTR 278 
DICTNAME 282 
DLSVAL 278 
DTFNOXX 282 
DTFNUM 282 
DTNCNT 282 
ERF4SM 278 
ERRSEV 277 
FIL5BUF 280 
FIPLVL 285 
FLOWSZ 279 
FSTCDNMl 281 
GNCTR 276 
GTLNG 280 
IDBYTES 286 
IDENTL 279 
INDEX 280 
INDEXl 279 
INTVIRT 281 
lOPTRCTR 279 
IPRECS 286 
LABELS 276 
LCSECT 278 
LIBBUF 286.1 
LISTERSW 281 
LNCOUNT 286.1 
LNGBL 282 
LNGDSP 281 
LOCCTR 275 
LOCTMCTT 281 
LTLCTR 276 
MAXBGITM 286 
NODECTR 280 
OBODOTBN 280 
ODOCTR 276 
ONCTR 279 
PARMAX 280 
PATCHIT 286.1 
PFMCTR 279 
PHZSU 283 
PHZSWl 284 
PHZSM2 284 
PHZSW3 284 
PHZSU4 284 
PHIBYTE 284 
PMAPADR 282 
PNCTR 276 
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COMMON* cells (continued) 

PRBLDISP 276 

PRBLNUM 280 

PROCCTR 281 

PROGID 276 

PSVCTR 279 

PTYNO 278 

RELADD 275 

RELLOC 280 

RGNCTR 278 

RPNCNTR 279 

RPTSAV 278 

SA2CTR 278 

SA3CTR 286 

SBLCTR 277 

SDSIZ 278 

SDTFCTR 282 

SEGLMT 278 

SEQERR 277 

SIOVIRN 286.1 

SPACING 280 

SRTRERUN 285 

SUBCTR 280 

SWITCH 282 

SWITCHIX 285 

SWITVS 285 

SWITV2 281 

TAMNAD 275 

TIBs 275 

TIME 282 

TMCNTBS2 281 

TSMAX 276 

TS2MAX 276 

TS3MAX 279 

TS4MAX 279 

V2BUGSUI 286 

VIOVIRN 286.1 

VIRCTR 276 

VLCCTR 277 

VNCTR 279 

VNILOC 280 

VNLOC 280 

VRBCOUNT 282 

WCMAX 276 

WSDEF 277 

XSACTR 280 

XSWCTR 280 
contents 275-286.1,34 
counters used to allocate 

space 133 
definition 470 
general concept 275 
option flags 35 
residence 34 

TGT-field counters 112,113 
Communications Area (see COMMON) 
Communications Region (see COMMON) 
compare in System/'37 10 9 
compi ler 

active phase 24.1 

(see also LINKCNT) 
buffers 

assignments 36 

contents 410 

size 35 
code organization 66 
communications area (see COMMON) 
concept 13-14 
design of 14 

diagnostic aids 409-420.4 
execution-time register use 411 



file handling 29-34 

initialization 35 

input (see input) 

layout of storage 13 

Linkage Editor Map 265-273 

minimum buffer size 35 

options 20-24 

output (see output) 

overall design 18-20,14 

overview 475-477 

parameters 20-24 

phases 

addresses 410 
approximate sizes 13-14 
intercommunication 14 

physical characteristics 13 

relationship to DOS/VS system 13 

storage layout 13 

storage locations 
names 13 

order of loading 13 
overlaying in storage 13 
translation 14 
use of work files 29-34 
compiler buffers 

assignments 36 

contents 410 

size 35 
compiler options (see options) 
compiler tables 

allocation of space 113 

current record 410 

exceeding permissible size 34 

for Q-routines 58 

list, by phases 263-264 

locating in storage 410 

location in storage 421 

Main Free Area 421 

maximum length 426 

object module map 430 

passed by phase 22 59 

permissible s^ ze 35 

processing in phase 00 35 

Report Writer feature use 45 

RWS data items 449 

RWS routines 449 

saved register contents 411-418 

table area 421 

table contents 410 

table size 426 
compiler texts (see internal texts) 
COMPUT routine 87 
COMPUTE statement 87 

EVAL string 88 

ON SIZE ERROR option 88 

phase 40 processing 87 

ROUNDED clause 88 
COMWRK work area 39 
CONDIS table 

description 291 

optimizing literals 115 

PGT space allocation 118 

segmented program object text 121 
condition-names 78 

UPSI feature 58 
Condi ti on-stri ng 

Pl-text 79,80 

with VALUE THRU clause 80 

without VALUE THRU clause 79 
Configuration Section 40 
Constant A-text 99 
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CONTBL table 

description 292 

optimizing literals 115 

P6T space allocation 118 

segmented program object text 122 
control and input/output diagram 483 
Control breaks 104 
Control-field save-area names 448 
COPY library 

flag in Data IC-text 53 

phase 10 actions 39 
COPYPCH option 24 
COPYRN routine 53 
CORESIZE cell (COMMON) 280 
CORRESPONDING option 73 
CORRTN routine 73 
COS cell (COMMON) 275 
COS routine 

address location 24.1 

handling segmentation 34 

processing between phases 28 
COUNT CHAIN ADDRESS field (TGT) 432 
COUNT LINKAGE AREA field (PGT) 435 
COUNT option 

definition 22 

phase 40 processing 92 

virtuals required 99 
COUNT table 437,470 
COUNT TABLE ADDRESS field (TGT) 432 
counters in COMMON 113 
CRDNUMXX cell (COMMON) 282 
critical program break* action by 

phase 20 53 
cross-reference list 

(see also Lister option) 

diagram 495 

locating RUiS elements 449 

phase 61 processing 144,145 

use of REF-text 118 

used by phase 11 48 

used in phase 20 52 

used in phase 22 55 
CSYNTAX option 

(see also SYNTAX) 

definition 23 

phase 22 processing 59 

phase 30 processing 78 

phase 40 processing 91 
CTB-ROUT routine 

description 441 

flowchart 242 
CTF-ROUT routine 

description 446 

flowchart 253 
CTH-ROUT routine 446 
CTL.LVL cell 447 
CTLTBL table 292 
CURCRD cell (COMMON) 

description 282 

locating processing record 410 

use in phase 20 52 

use in phase 22 55 
CURGCN cell 39 
CURRENCY-SIGN clause 40 
CURRENT-DATE register 371 
CURRENT PRIORITY field (TGT) 432.1 

set by phase 65 112 
CURSGN cell (COMMON) 

contents 40 

description 278 
CVIRTB table 

description 293 

optimizing virtuals 116 



segmented program object text 122 
virtual allocation 116 
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**d** addressing parameter 60 
Data A-text 

associated file DTFs 67 

data-name DEF elements 58 

definition 470 

description 349-350 

location on file SYS004 123 

phase 22 generation 58 

phase 60 processing 123 

purpose 123 

Q-routine identification 
elements 58 

VALUE clause constants 58 

Morking-Storage Section address 
elements 58 
data areas 275-408 
Data Division 

addressing with OPT 132 

controlling processing 39 

processing by phase 10 41 

processing overview 18.1,475-477 

syntax analysis 43 

translation, diagram 485 
Data IC-text 

BCD names 53 

copied unchanged by phase 20 52 

data-name DEF elements 58 

data-names and file names 42 

definition 470 

description 341-347 

FD element 343 

FD processing in phase 10 42 

FILE-CONTROL paragraph 40 

input to phase 20 52 

items from Environment 
Division 40 

LD element 341 

processing in phase 20 53 

processing in phase 21 60 

RD element 343 

RD processing phase 10 42 

read by phase 20 53 

Report Mr iter data items 47 

SD element 343 

SD processing in phase 10 42 

use in phase 22 58 
data-names 

discussion 78 

location in storage 419 

REF-text elements 144 

reference elements 78 

subscripts 94,95 
DATABDSP cell (COMMON) 278 
DATATAB table 

description 398 

phase 25 processing 69 

phase 65 processing 128 
DATATBL table 293 
DATATBNM cell (COMMON) 280 
DATE cell (COMMON) 

description 282 

setting in phase 01 35,36 
DBGLOC cell (COMMON) 286 
DBGTBL table 

description 293 
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generating P2-text 82 
processing verb strings 81 
DCPTR cell (COMMON) 278 
DDSCN routine 42 
debug data set» creation of» 

diagram 493 
Debug File 395-408 

built by phase 25 69 
CARDINDX table 404 

built by phase 65 127 
DATATAB table 398 

built by phase 25 69 
OBODOTAB table 397 

built by phase 25 69 
phase 65 processing 127 
PROCINDX table 405 

built by phase 65 127 
PROCTAB table 404 

built by phase 65 126 
PROGSUM table 396 

built by phase 65 127 
SEGINDX table 405 

built by phase 65 127 
tables built by phase 22 59 
debug file tables 395 
DEBUG-ITEM 53,55,57,78-79 
DEBUG LINKAGE AREA field (PGT) 435 
debug options (see FLON option; 

STATE option; SYMDMP option) 
DEBUG TABLE field (TGT) 
description 432.1 
phase 65 processing 126 
DEBUG TABLE POINTER field (TGT) 432.1 
set by phase 65 112 

Debug-text 

description 384 

phase 65 processing 126 

use in building Debug File 127,126 
DEBUG verb processing 

phase 11 processing 49 

phase 40 processing 82 
debugging compiler (diagnostic 

aids) 409-420.4 
debugging packet 82 
DECIMAL-POINT clause 40 
DECK option 

definition 21 

phase 60 processing 111 

phase 64 processing 141 
DECK option in LST card 24 
declaratives 

effect on coding 106 

OPEN verb 49 

USE-FOR-DEBUGGING 50 
Declaratives Section 

processing in phase 11 50 
DEF-text 

data-name DEF elements 58 

definition 470 

description 383 

from Procedure Division 19 

generation in phase 30 72 

location on file SYS004 123 

processing by phase 60 123 

processing in phase 61 144-145 
DEFSBS table 

description 294 

MOVE statement 82 
DELETE verb processing 49 
delimiter 470 
delimiter pointer 

definition 470 

determining 41 



group items 55 
DEPENDING ON option 60 
DESTROY m&tro element 132 
DET-ROUT routine 

description 447 

flowchart 240.5 
DETTBL table 294 
DFREER routine 98 
diagnostic aids 409-420 

abnormal termination during 
compilation 409 

CE abstract worksheet 420.3 

dump produced 409 

erroneous compiler output 418 

error message listing 409,420 

input/output error messages 418 

linkage editor phase map 420 

location of information in 
storage 409-410,419 

register saving 418 

register usage 411-417,419-420 

storage layout 418 

tables used 410 
diagnostic assistance (CE) 420 
diagnostics, compiler 146-148 
diagrams, foldout 475-508 
DICADR cell (COMMON) 277 
DICNDl cell (COMMON) 

description 277 

use by phase 30 72 
DICND2 cell (COMMON) 

description 277 

use by phase 30 72 
DICOT table 

description 295 

use in phase 25 69 
DICPTR cell (COMMON) 278 
DICSPC routine 427 
DICTBD routine 

description 57 

elementary item processing 53 

purpose 55 
Dictionary 

addressing parameters (see IDK 
field) 

area 422 

assigning space 426 

building entries in 
phase 22 55,57-58 

completing entries in 
phase 22 57-58 

data-name entries 42 

Declaratives Section entries 50 

definition 470 

description 385-394,421-422 

dummy entries 55 
UPSI feature 40 

entries made by phase 22 55 

FD entries, filling in reserved 
space 60 

FD entry 386 

file attributes 61 

File Section entries 57 

file-name entries 42 

formats of entries 385-394 

generating Pl-text 81 

glossary production 71 

handling, table and 
dictionary 421-429 

handling spill 28 

incomplete index-name entries 55 

index-name entry 389 

interaction with tables 50.1 
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LD entry 388 

Linkage Section entries 58 

locating entries 421-422 

logical position in phase 22 55 

major code 385-389 

minor code 388^391 

organization 421 

PERFORM attributes 85 

phase 21 functions 60 

pointer 78 

pointer for UHEN statement 90 

preprocessing in phase 22 55 

procedure-name 
characteristics 50-50.1 

procedure-name entries 48» 50-50.1 

procedure-name (paragraph) 
entry 385 

procedure-name (section) entry 385 

procedure-names 78 

Q-routine entries 58 

RD entry 388 

replacing names 78 

Report Section entries 58 

residence 421 

SD entry 387^60 

SEARCH processing 74 

searching sectioned Procedure 
Division 50.1 

skeleton FD entry 55 

space allocation 35 

spill onto disk file 422 

SYMDMP processing in phase 25 69 

blorking-Storage Section entries 57 
Dictionary Area 422 
Dictionary attributes 

condition-name 78 

definition 470 

Q-routine bit 78 

replacing names 72 

substituting for names 78 
Dictionary entry formats 385-394 
Dictionary handling (see ACCESS 

routines) 
Dictionary pointer 

definition 471 

use after phase 30 78 

use in building OBODOTAB table 499 
Dictionary section addresses 421 
DICTNAME cell (COMMON) 281 
Direct A-text 99 
DIRECTOR routine 55 
directory 259-273 
DISCONTINUITY element 

(see also Debug-text) 

phase 65 processing 126 

use in building Debug File 127 
Diskette unit device 65 
DISPLAY literals^ optimization for 

PGT 115 
DISPLAY LITERALS field (PGT) 

description 436 

optimizing with OPT 130 

space allocation 118 
DISPLAY statement 

entries in SPNTBL table 40 

output coding 468.2 

phase 11 processing 49 

subroutine linkage 108 
DLSVAL cell (COMMON) 278 
DNTORl routine 108 
DOP Mork areas 92.2 
DOS/VS system 

interface with compiler 24.1 



relationship Mith compiler 13 

returning control 28 

UPSI-feature-names 58 

use of Control Program 13 
double buffering^ effect on 

coding 106 
drop tables (see DRPTBL table; 

DRPLTBL table) 
DRPTBL table 

description 295 

use in register assignment 132 
DRPLTBL table 

description 296 

use in register assignment 132 
DSPLAC routine 112 
DTAB table 296 
DTF 

address element 67 

associated files 67 

choice of type 61 

COBOL bits 66-67 

COBOL indicators 66 

COBOLRUID bit 66 

common parameters 60 

constant definition elements 67 

DTFCD, number of DTFs 62 

DTFDA 

number of DTFs 62 
pre-DTF 62-65 

DTFDU 65»62 

DTFIS 

number of DTFs 62 
pre-DTF 65 

DTFMT 

number of DTFs 62 
pre-DTF 62 

DTFPR, number of DTFs 62 

DTFSD 

number of DTFs 62 
pre-DTF 62 

generating 60-66 

lOAREA address 68 

location in object module 430 

location in storage 419 

number assigned 62 

number required 62 

order of addresses 419 

pre-DTF area 62-66 

REMIND bit 66 
DTF generation 60-66 

clause compatibility checking 60 
DTF generator 

functions 61-66 

6ENDTFCD 61 

GENDTFDA 61 

6ENDTFDU 61 

GENDTFIS 61 

GENDTFMT 61 

GENDTFPR 61 

GENDTFSD 61 

selecting 61 
DTF number 

files Mith OCCURS... DEPENDING ON 
clauses 58 

OBJSUB table element 58 

QFILE table elements 58 
DTF parameters 

Record form 60 

Record size 60 
DTFADR CEL»S field (TGT) 

description 432.1 

locating DTFs 419 

space allocation 113 
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DTFCD 62 
DTFDA 

number of DTFs 62-62.1 

pre-DTF 62,63-65 
DTFDU 

number of DTFs 62 

pre-DTF 65 
DTFIS 

number of DTFs 62 

pre-DTF 65 
DTFMT 

number of DTFs 62 

pre-DTF 62 
DTFNOXX cell (COMMON) 282 
DTFNUM cell (COMMON) 

description 282 

TGT space allocation 113 
DTFPR 62 
DTFSD 

number of DTFs 62 

pre-DTF 62 
DTNCNT cell (COMMON) 282 
dummy entry for phase 80 50.1 
dump, producing for disaster-level 

messages ^09 
dynamic dump request 

(see also SYMDMP option) 

phase 25 processing 69 

phase 65 processing 126 
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E.nnnn name cells 448 

E-point name cells 448 

E-text 

definition 471 
description 382 
from Procedure Division 19 
identification prefix 90 
input to phase 20 52 
input to phase 30 71 
location on file SYS004 123 
phase 21 processing 60 
phase 30 processing 78 
phase 51 processing 104 
phase 60 processing 123 
phase 70 processing 146 
producing 19 
RECFORM parameter 61 
NHEN clause 90 
written by phase 12 47 

EACTBL table 146 

EACTOO area 147 

elementary report items 47 

ELIPR routine 58 

ENDSEG elements 

(see also Debug-text) 

phase 65 processing 126 

use in building Debug File 127 

ENTDEL routine 423 

ENTDIC routine 61 

ENTNAM routine 422 

ENTPTR routine 423 

ENTRDATA routine 70 

ENTRY-SAVE field (TGT) 432 

Environment Division 

controlling processing 40 
processing 40 
processing overview 18.1 
syntax analysis 43 



translation, diagram 485 
ENVSCN routine 40 
ENVTBL tabU 

APPLY clause switch 41 

CKPTBL bit 41 

description 296.1-298 

FNTBL table use 42 

MULTIPLE FILE TAPE switch 41 

phase 10 processing 40-42 

pointers 40 

POSITION INTEGER field 41 

SAME clause files 41 

SELECT clause entries 40.1 
EOF routine 92 
EOJ macro instruction 25 
EQUATE string 

built by phase 51 105 

used by phase 60 112 
ERF4SW cell (COMMON) 278 
ERMSG area 78.1 
ERRMS6 146 

erroneous compiler output 418 
error conditions 

(see also error messages; error 
processing) 

ATF-text 59 

background size 37 

BUF parameter 37 

checking by phase 20 52 

clause compatibility 52 

CORRESPONDING operands 73 

Data IC-text 58 

Dictionary requirements 72 

E-text 382 

EBCDIC key-names 59 

execution-time messages 418 

file-names after READ 72 

file-names after RETURN 72 

footnotes in phase 08 38.4 

I/O error messages 418 

messages from phase 01 37 

OCCURS... DEPENDING ON clauses 58 

phase 05 processing 38.2 

phase 08 processing 38.4 

phase 22 processing 59 

phase 30 messages 78.1 

phase 30 processing 78 

phase 70 processing 146-147 

premature EOF 36 

producing a dump for disaster level 
messages 409 

SEARCH routine 75 

syntax checking 

in phase 05 38.2 
in phase 12 47 

TAMER-detected 34 

unopened file 36 

unrecoverable 34 

using table SRCHKY 59 

using table VALTRU 59 
error messge listing, obtaining 147 
error message parameters 147 
error messages 

(see also error conditions; error 
processing) 

diagram 495 

disaster level 409 

execution-time 418 
(see also phase 70) 

FIPS flagging 148 

identification code 420 

input/output 418 

invalid 420 
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li sting 147 

parameters 146 
error processing 

(see also error conditions; error 
messages) 

COBOL Mord checking 91 

E-text severity code 104 

operand-checking 91 

phase 40 91 

severity code 104 

verb checking 91 

MHEN conditions 90 
ERROR routine* phase 30 78.1 
ERROR routine* phase 40 91 
errors detected by TAMER 34 
ERRPRO routine 104 
ERRS option 21 
ERRSEV cell (COMMON) 

description 277 

testing for SUPMAP 111 

use by phase 51 112 
ERRTBL table 

description 299 

saving E-text 146 

spilling 146 
ESD (External Symbol Dictionary) 114 
EVAL string B8 
execution-time statistics (see COUNT 

option) 
EXHIBIT statement 50 
EXIT verb* phase 11 processing 49 
EXITS routine 92 
External Symbol Dictionary (ESD) 114 
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FD (see file description entries) 

FD element 

(see also file description entries) 
Data IC-text 341 
Dictionary entry 386*387 

FDTAB table 

description 299 
phases 22 and 21 59 

federal information processing 
standard (FIPS) 

diagnostic messages 148 

flagging 37 

LVL option 22 

phase 01 processing 37 

phase 80 processing 148.1 

scanning source program 148.1 

SYS006 22*148.1 

FIB (VSAM file information block) 68 

FILE-CONTROL paragraph 40 

file description entries (FDs) 
assignment of BL number 57 
Dictionary entries 57*60 
dummy dictionary entries 55 
processing in phase 10 42 
processing in phase 20 52*53 
processing in phase 21 60 

file handling 29-34 

file information block* VSAM (FIB) 68 

file-name reference items 78 

f i le-names 

folloMing RETURN 72 
phase 30 processing 78*72 
REF-text elements 144 

File Section 



Dictionary entries 57-58 

phase 10 processing 42 

phase 20 processing 53 
FILE STATUS clause processing 40.1-41 
FILEST routine 53 
FILTBL table 

description 299 

optimizing VNs 114 
FIL5BUF cell (COMMON) 280 
FIPLVL cell (COMMON) 285 
FIPS (see federal information 

processing standard) 
FIPSMTBL table 300 
FIPSPTBL table 300 
fixed routine* definition 471 

(see also Report Mr iter Subprogram) 
flag* FIPS 20 
FLAGE 22 
FLAGUI 22 
FLOUI option 

compiler overview 18-20 

definition 22*126 

diagram 475-477 

file handling for 29-34 

INIT3 instructions 438 

parameters 35 

phase 25 processing 69 

phase 51 processing 105 

phase 65 processing 126*127 

PHZSMl sNitch (COMMON) 284 

procedure A-text processing 118 
segmented program 122 

TGTADTBL table 333 

virtuals required 99 
FloM Trace Table 

allocation in phase 65 126*127 

description 438 
flowcharts 149-258 

explanation of symbols 150 

label directory 259 

Report Writer 
Subprogram 240.5-258*453 
FLOUSZ cell (COMMON) 

description 279 

relationship to other routines 45 
FNTBL table 

description 300.1 

entries for USE sentences 50 

finding file-names 50 

use for file section processing 42 
foldout diagrams 475 
forward branch tables 

GNFUDBTB table 

description 301 
use in phase 62 133 

PNFMDBTB table 

description 313 
use in phase 62 133 
free area 426 
FREE macro element 132 
FRS.GEN cell 447 
FRS.GRP cell 448 
FSTCDNMl cell (COMMON) 281 
FSTEXT routine 53 
function-names for UPSI 58 
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GATXTV 
GCNTBL 



routine 99 
table 300.1 
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GENASC routine 68 
GENDAT routine 75 
GENDTFCD routine 67 
GENDTFPR routine 68 
GENERATE statement 

diagram of first RUS response 450 

diagram of succeeding RUS 
responses 451 

RMS response 449 
generated card number* REF-text 

element 144»145 
generated code for input/output 

verbs 454-469 
generated name (see procedure-names) 
GENERATED NAME CELLS field (PGT) 

description 436 

space allocation 117 

space allocation Mith OPT 131 
6ENN0D routine 92 
6EN0P routine 78,72 
GENPAR routine 92 
GENTIM routine 92-92.1 
GETALL routine 429 
GETCRD routine 

function in phase 10 39 

function in phase 11 48 
GETDLM routine 

function in phase 10 39 

function in phase 12 45 
GETF2 routine 126 
GETNXT routine 92 
GETPTR routine 423 
GETMD routine 

function in phase 10 39 

function in phase 11 48 
GLORET routine 71 
GLOSRY routine 

coding organization 71 

description 71»72 
Glossary 

DTP numbers 419 

finding RMS elements 449 

locating data 419 

production 71 
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processing group items 53 
processing VALUE clauses 53 
processing VALUE IS SERIES 

clauses 53 
register usage 412.1 

phase 21 60-68 

approximate size 14 

associated file generation 67 

buffer generation 68 

filling in FD Dictionary entry 55 

file information block (FIB) 68 

flowcharts 168-173 

functions 60 

general concept 60,18 

linkage editor map 265-274 

passing Data A-text 58 

passing E-text 146 

processing Data IC-text for FD 55 

register usage 413 

returning control 68 

setting ERRSEV 104 

use of ACCESS 421 

phase 22 55-59 

approximate size 14 

assigning base locators 118 

building tables 59 

completing Dictionary entries 57 

completion of ATF-text 53 

Dictionary building 55-58 

Dictionary entries 



Linkage Section 58 

Report Section 58 

UPSI names 58 
Dictionary preprocessing 55 
entering File Section into 

Dictionary 57-58 
flowcharts 174-180 
functions 55 
generating Data A-text 58 

Data-name XREF elements 58 

Q-routine identification 
elements 58 

VALUE clause constants 58 

Morking-Storage Section address 
elements 58 
generating DEF-text 58 
generating texts 56 
general concept 55,18 
input/output flow 56 
linkage editor map 265-274 
processing control-field save-area 

names 45 
processing Incomplete Data 

A-text 53 
processing OCCURS. . .DEPENDING ON 

clauses 58 
processing RENAMES clause 53 
processing Report Writer REDEFINES 

clauses 45 
Q-routine text 58 
register usage 413 
size of records 60 
table handling 58 
UPSI-n entries 40 
use of ACCESS 421 
use of GPLSTK table 57 
use of VALGRP table 58 
use of tables 56 
phase 25 69-70 

approximate size 14 
debug file processing 69 
diagram 495 
flowcharts 181-184 
function 69 
general concept 69 
linkage editor map 265-274 
register usage 413 
sequence of phases 24.1 
SYMDMP processing 69 
phase 30 71-78.1 

approximate size 14 

code organization 71 

condition-string processing 79,80 

diagram 501 

error processing 78 

flowcharts 185-187 

functions 71 

general concept 71,19 

input/output flow 501 

linkage editor map 265-274 

method of operations 71-75 

output for condition-string 79,80 

output for SEARCH Format-1 75-76 

output for SEARCH Format-2 77 

processing CORRESPONDING 

option 73-74 
processing SEARCH verb 74-77 
register usage 414 
replacing names 78 
SEARCH Format-1 processing 75-76 
SEARCH Format-2 processing 77 
text translation 72 
use of ACCESS 421 
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VSAM file-name 72 

phase 35 80.1-80.4 

flowcharts 188-188.4 
non-debugging declarative 

considerations 80.4 
output 80.4 

processing routines 80,2 
register usage 414 
table handling 80.2 

Phase 40 81-92.1 

ALTER processing 82-84 
approximate size 14 
branching beyond section 108 
COMPUTE processing 87 
DEBUG processing 82 
detecting errors 73,74 
flowcharts 188.5-190 
functions 81 
general concept 81,19 
IF processing 88 
initialization routine 92 
linkage editor map 265-274 
MOVE processing 81 
multiple results in arithmetic 

statements 88 
output for subscripted MOVE 82 
overlaying phase 00 13 
PERFORM control flow 87 
PERFORM execution 86 
PERFORM processing 84-87 
processing for OPT 84 
processing verb strings 81 
register usage 414 
SEARCH ALL processing 89 
verb block, defining 92 

phase 45 92.2 

creating P2-text for phases 50 

and 51 92.2 
flowcharts 190.1-190.3 
initialization and ATM-text 

analysis 92.2 
register usage 414.1 

phase 50 92.3-103 

A-text generation 99 
approximate size 14 
dictionary pointer 78 
EVAL string 88 
flowcharts 191-196 
functions 92.3 
general concept 92.3,19 
linkage editor map 265-274 
list of verbs processed 93 
literal processing 99 
mixed literal paragraph 96 
ON statement registers 107 
passing text elements 92.3 
phase 51 verb strings 103 
processing for OPT 103 
processing for SYMDMP 93 
processing verb strings 92-96 
register handling routines 98 
register usage 414.1 
summary of texts 92 
virtual processing 99 

phase 51 104-110 

approximate size 14 
building table PNUTBL 105 
dictionary pointer 78 
OTF bit processing 66 
EQUATE string building 105 
flowcharts 197-214 
functions 104 
general concept 104,19 



handling segmentation 34 

input 104 

input/output verbs 106.1 

linkage editor map 265-274 

literal processing 99 

non-VSAM files, routines lt)6 

passing E-text 146 

procedure branching in a segmented 

program 108 
procedure-name processing 105 
register usage 415 
subroutine linkage 108 
VCON elements 67 
verb strings 

phase 50 processing 103 
phase 51 processing 105-108 
processing for STATE 105 
processing for SYMDMP 105 
VSAM files, routines 106 
phase 60 111-125 

action taken with texts 124-125 
approximate size 14 
constructing the PGT 116 
dictionary pointer 78 
E-text processing 146 
eliminating PNs 105 
EQUATE string 105 
flowcharts 215-220 
functions 111 
general concept 111,20 
handling segmentation 34 
initialization routines 123 
linkage editor map 265-274 
literal processing 99 
optimizing procedure-names 114 
passing E-text 146 
Procedure A-text processing 118 
register assignments 122 
register usage 415 
special text elements 374-375 
use of base locator numbers 57 
virtual processing 99 
phase 61 144-145 

approximate size 14 
flowcharts 236-238 
function 144 

linkage editor map 265-274 
producing an alphabetically 

ordered cross-reference 

listing 145 
producing a source ordered 

cross-reference listing 144 
register usage 416 
phase 62 129-137 

approximate size 14 
BLUSTBL table, primed by 

phase 50 103 
constructing the PGT 131 
DESTROY elements 93 
flowcharts 221-225 
FREE element 93 
function 129 
general concept 129 
linkage editor map 265-274 
literal processing 130 
operations diagram 505 
optimization, general concept 129 
optimization information 

elements 135-137 
output 129 

permanent register assignments 132 
Procedure A-text 

processing 133 
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procedure block allocation 
(PGT) 131 

register assignments 132-133 

register usage ^15 

RESERVE elements 93 

segmentation control breaks 104 

sequence of phases 24.1 

temporary register assignments 132 
phase 63 138-140 

address increment element 139 

address reference elements 139 

approximate size 14 

branch instructions 138 

constructing Procedure Al-text 138 

counters 139 

flowcharts 226-231 

function 138 

general concept 138 

incremented address element 132 

linkage editor map 265-274 

operations diagram 507 

optimization^ general concept 129 

optimization information 
elements 135-137 

Procedure A-text 
processing 138>140 

programs with one Procedure 
Block 138 

register usage 415 

RPT-origin elements 139 

segmented program 140 
phase 64 141-143 

approximate size 14 

flowcharts 232-233 

function 141 

general concept 141 

linkage editor map 265-274 

optimization* general concept 129 

optimization information 
elements 135-137 

output 141 

register usage 416 

returning control to system 24 
phase 65 126-128 

approximate size 14 

debug file processing 127 

Debug-text 126 

final processing 128 

FLOU option processing 126 

flowcharts 234-235 

function 126 

general concept 126 

linkage editor map 265-274 

operations diagram 503 

register usage 416 

STATE option processing 126»127 

SYMDMP option processing 126*127 
phase 70 146-148 

approximate size 14 

FIPS processing 148 

flowcharts 239 

function 146 

general concept 146 

linkage editor map 265-274 

overlaying phase 00 13 

register usage 416 
phase 80 148.1 

(see also federal information 

processing standard) 

approximate size 14 

dummy entry for 50.1 

flowcharts 240-240.4 

generating diagnostic 



messages 148.1 

input 148.1 

level of flagging 148.1 

linkage editor map 265-274 

output 148.1 

processing 148.1 

register usage 417 

scanning the source program 148.1 

SYSLST output 148.1 

SYS006 input 148.1 

writing the source program 148.1 
PHCTRL routine* coding 

organization 71-74 
PHINIT routine* coding 

organization 71*72 
PHXERR table 146 
physical characteristics of 

compiler 13 
PHZSW cell (COMMON) 

actions by phase 01 35 

description 283 

option flags 37 

setting RPTWR bit 44 
PHZSNl cell (COMMON) 

actions by phase 01 35 

description 284 

RPTWR bit 35 

setting flags 37 

SYM bit 71 
PHZSW2 cell (COMMON) 

actions by phase 01 35 

description 284 
PHZSW3 cell (COMMON) 284,35 
PHZSW4 cell (COMMON) 284,35 
PHIBYTE cell (COMMON) 284 
PH5BVB routine 103 
PH5CTL routine* phase 50 92*103 
PH5CTL routine* phase 51 107 
PICTURE clause 

currency sign 40 

processing in phase 20 53 

use in processing REDEFINES 45 
PIOTBL table 

description 312 

RERUN bit 41 

switches for I/O verbs 49 

use for SORT processing 50 

zero entries for FDs 42 
PMAP option 22 
PMAPADR cell (COMMON) 282*36 
PN number 

ALTER statement 82-84 

DEBUG 82 

definition 471 

deleting XSCRPT entries 95 

optimizing 114 

phase 50 processing 92.3 

ph^se 51 processing 105 

segmented program 108 

space allocation 117 

without reference 105 
PNATBL table 

description 312 

used by phase 62 130 
PNCHSW routine 126 
PNCTR cell (COMMON) 

building PNTBL table 114 

building PNUTBL table 105 

description 276 

PGT storage 117 

PN number assignment 48 
PNFWDBTB table 

description 313 
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use in phase 62 133*134 
PNLABTBL table 

built by phase 62 133>134 

description 313 
PNLBDTBL table 

description 313 

used by phase 64 142 
PNOUNT table 

COMPUTE processing 87 

description 314 

IF processin.g 88 
PNQTBL table 

description 314 

entries by phase 11 48 

entries from branching verbs 49 

flag field 50.1 
PNTABL table 

description 315 

entries by phase 11 48 

entries from branching verbs 49 

entries from Declaratives 
Section 50 

flag field 50.1 
PNTBL table 

description 315 

optimizing PNs 114 

PN space allocation 117 
PNTIN work area 72 
PNUPRO routine 114 
PNUSED routine 105 
PNUTBL table 

building of 105 

description 316 

eliminating excess PNs 105 

optimizing PNs 114 

PGT space 112 
POINT macro instruction 26r28 
point of definition 48 
POINT table 

locating BCBs 410 

switching buffer pointer 26»28 

updating by phase 00 28 
PRBLDISP cell (COMMON) 276 
PRBLNUM cell (COMMON) 280 
pre-DTF 

definition 62 

DTFDA Random access 62-62.1*63-64 

DTFDA» Sequential access 62.1*65 

DTFDU 65,66 

DTFIS 65 

DTFMT 62,63 

DTFSD 62,63 
pre-DTF area 62 
pre-DTF switch 66 
PRIME routine 427 
PRINT routine 36 
PRINT-SWITCH cell 447 
priority of arithmetic operators 87 
priority of segments checking 48 
priority numbers 48 
PRLINE work area 72 
PR0C=1C0L option 24 
PR0C=2C0L option 24 
PROCCTR cell (COMMON) 281 
Procedure A-text 

definition 471 

description 373-377 

DISPLAY verb 109 

input to phase 51 104 

linkage to COBOL subroutine 108 

literals 99 

ON statement 107 

ON string 107 



phase 60 processing 118 

phase 62 processing 131 

phase 63 processing 138 

procedure-names 105 

segmentation control break 104-105 

segmented program 121 

sources 99 

START instruction 92 

use in building Procedure 

Al-text 138-139 
virtual processing 116 
virtuals 99 
Procedure Al-text 

built by phase 63 138-139 
common processing with Procedure 

A-text 118 
description 380-381 
used by phase 64 142 
Procedure Block 

(see also optimization (OPT) 

processing) 
definition 472 
for PERFORM statement 84-86 
PROCEDURE BLOCK CELLS field (PGT) 
description 436 
space allocation 131 
PROCEDURE BLOCKl PTR field (TGT) 

description 434 
Procedure Division 

encoding in PO-text 48 
generated code location 436 
listing 48 

processing by phase 11 48 
processing overview 475 
translation, diagram 487 
Procedure IC-text, definition 498 
(see also PO-text; Pl-text? 
P2-text) 
PROCEDURE NAME CELLS field (PGT) 
description 436 
effect of ALTER 83 
space allocation 117 
with OPT 131 
procedure-name reference 78 
procedure-names 

DEBUG attribute 82 
definition 471 
dictionary attributes 78 
Dictionary entry 385 
duplicate GNs 105 
equate strings 105 
GN number 

data-name references 78 
DEBUG procedure 82 
definition 471 
deleting XSCRPT entries 95 
effect of ALTER/GO TO pair 82 
eliminating duplication 105 
file-name reference 78 
from Declaratives Section 50 
generated for error 

declaratives 50 
generated for label 

declaratives 50 
locating RMS routines 449 
optimizing 114 
optimizing with OPT 133*129 
phase 50 processing 92.3 
phase 51 processing 105 
Q-routines 58 
segmented program 108 
simple IF statement 88 
space allocation 117 
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with OPT 131 

PERFORM statement 85 

PN number 

ALTER statements 82-84 

DEBUG 82 

definition 471 

deleting XSCRPT entries 95 

optimizing 114 

phase 50 processing 92.3 

phase 51 processing 105 

segmented program 108 

space allocation 117 

without reference 105 

REF-text elements 144,145 

replacement of 78 

segmented program 78 

space allocation 117 

space allocation with OPT 131 

VN number 

ALTER statements 82-84 
deleting XSCRPT entries 95 
definition 473 

effect of ALTER/GO TO pair 82 
GO string object 84 
optimizing virtuals 116 
PERFORM statement 84-86 
phase 50 processing 92.3 
phase 51 processing 105 
segmented program 108,104 
VNPTY table entry 114 
processing between phases 24 
PROCINDX table 

built in phase 65 127 

description 316 
PROCTAB table 

built in phase 65 126 

description 404 
PROCpl routine 45 
PROC02 routine 47 
PROGID cell (COMMON) 276 
program breaks, use by phase 50 92.3 
Program Global Table (PGT) 435-436 

allocating space 116,130 

base register 122 

concept 435 

definition 472 

diagram of fields 435 

fields 

COUNT LINKAGE AREA 435 
DEBUG LINKAGE AREA 435 
DISPLAY LITERALS 436 
GENERATED NAME CELLS 436 
LITERALS 436 
OVERFLOW CELLS 435 
PROCEDURE BLOCK CELLS 436 
PROCEDURE NAME CELLS 435 
SUBDTF ADDRESS CELLS 436 
VIRTUAL CELLS 435 
VNI CELLS 436 

GN allocation 117 

listing 116 

location in object module 430 

LTLTBL table displacements 115 

optimizing literals 115 

optimizing space 112,116 
with OPT 131 

optimizing virtuals 116 

overflow allocation 116 

PN allocation 117 

residence in segmented program 121 

virtual allocation 116 
PROGRAM-ID statement 39 



program organization 

(flowcharts) 149-258 
PROGSUM table 

built in phase 65 127 

description 396 
PSHTBL table 

description 317 

IF statement 89 
PSIGNT table 

COMPUTE processing 87 

description 317 

IF processing 88 
PSVCTR cell (COMMON) 

description 279 

TGT space allocation 113 
PTRFLS table 

description 317 
PTYNO cell (COMMON) 278 
PUT routine 118 
PUTDEF routine 105 
PO-text 

'condition string 78,79-80 

CORRESPONDING option 73 

definition 472 

description 351-358.1 

encoded by phase 11 48 

input to phase 30 71,72 

Report Writer group routines 45 

SEARCH Format-1 75-76 

SEARCH Format-2 77 

translation 72 
Pl-text 

condition string 78,79-80 

condition-name 78 

CORRESPONDING option 73 

data-name reference element 72 

definition 472 

description 359-363 

determining type 78 

dictionary attributes 78 

file-name 78 

generation 72 

phase 40 processing 81 

procedure-name 78 

replacing names 78 

SEARCH statement 
SEARCH ALL 89 
SEARCH Format-1 75-76 
SEARCH Format-2 77 

syntax analysis 91 
PIBTBL table 

description 318 

Report Writer flag 44 
P2-text 

DEBUG 82 

definition 472 

description 364-372 

DISPLAY coding 109 

indexing 96 

input to phase 51 104 

MOVE statements 81 

nested IF statement 89 

ON statement 107 

passed by phase 50 93 

PERFORM output 86 

phase 40 processing 81 

presentation 93 

SEARCH ALL statement 89 

SEARCH statement 89 

subscript optimizing 95 

verb strings 81,92.3 

VN for ALTER 82 
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Q-routine bit 78 
Q-routines 

(see also OCCURS. . .DEPENDING ON 
clause) 

definition 472 

discussion 436 

EXAMINE verb 103 

generation 58 

identification elements 58 

location in object module 430 

location in segmented program 121 

MOVE verb 103 

object module 436 

0D2TBL tables use of 42 

optimization (OPT) processing 139 

processing OCCURS. .. DEPENDING ON 
clauses 58 

TRANSFER verb 103 
QALTBL table/ description 319 
QBUILD routine 59 
QFILE table 

description 319 

file-name references 78 

phase 22 and 30 58 

Q-routines» use in generating 58 
QGNTBL table 

built in phase 63 140 

description 319 
QITBL table 

description 320 

Q-routinesr use in generating 58 

phase 25 processing 69 
QLTABL tablet description 320 
QNMTBL table 

data-name from APPLY clause 41 

description 320 

File Section processing^ use in 42 

phase 10, use in 40»41 
QRTN table 

description 321 

Q-routines» use in generating 58 

used by phase 25 69 
QSBL table* description 321 
QTBL table* description 321 
QUALIF routine 75 
qualified names 75 
QUE routine 36 
QUOTE option 21 
QVAR table 

description 322 

finding GN numbers 78 

generating Q-routines 58 

phases 22 and 30 58 
QVARBD routine 58 



m 



RCDTBL table 

description 322 

searching for REMRITE verbs 49 

searching for WRITE verbs 49 

use by phase 10 42 
RD (report description entries) 57 
RD statement 

Data IC-text 343 

Dictionary entry 388 



phase 12 actions 45 
RDFSTK table 

description 323 

use in dictionary building 57 
RDF2 routine 126 
RDSCAN routine 45 
RDTXT routine 57 
READ statement 

error 72 

output coding 462 

phase 30 processing 72 

phase 51 processing 106*106.1 

READ verb strings 72 
READFN routine 72 
READF4 routine 55 
READY verb 50 
RECCONT routine 60 
RECFORM parameter 61 
RECFORM parameters supported 61 
RECORD CONTAINS clause 

determining record size 60 

selecting record form 61 
record description entries (LDs) 

completed dictionary entries 57 

dictionary entries 55 

processing in phase 10 42 

processing in phase 20 53 

translation in phase 20 52 
record form 60 
record organization* effect on 

coding 106 
record size 60 

recording mode* effect on coding 106 
RECODING MODE clause* selecting record 

form 61 
REDEF routine 57 
REDEFINES clause 

entries in Dictionary 57 

processing by phase 22 45 
REF-text 

contents 144*145 

definition 472 

phase 60 production 118 

phase 61 processing 144*145 
REGATT area 75 
register assignments 

object module 122 

optimizing 14 and 15 133 

permanent 132 

temporary 132 
register handling routines 98 
register saving 418 
register usage 

compile time 411-417 

execution time 419*420 

saving 418 
REGMTX table 118*122 
RELADD cell (COMMON) 275 
RELLOC cell (COMMON) 280 
Relocation Dictionary (RLD) 

phase 60 processing 123 

virtuals 114 
RENAMES clause 

Dictionary entry adjustment 55 

processing in phase 22 53 
RENAMS routine 55 
RENAMTB table 

built by phase 22 59 

description 323 

used by phase 25 69 
REPORT clause 44 
report description entries (RDs) 57 
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Report Section 

Dictionary entries 58 
encountered by phase 10 41 
listing 47 
processing 44-47 
related statements 45 
translating 14 
Report Section header^ phase 10 

actions 44 
Report Mr iter feature (see phase 12; 

Report Writer Subprogram) 
Report Writer REDEFINES clause 45 
Report Writer Subprogram 
(RWS) 440-453 

COBOL word data-names 447-448 

control-field save-area names 45 

data-names 447-448 

data items 447-449 

definition 440 

DET-ROUT routine, from GENERATE 

verb 44 
E-Point data item, REDEFINES 

clause 45 
elements 440-449 
fixed routines 440 
description 440 
LST-ROUT 

description 440 
flowchart 256 
WRT-ROUT 

description 440 
flowchart 246 
IST-ROUT 

description 440 
flowchart 241 
flowcharts 240-258,453 
group routines 446 
CFF-ROUT 

description 446 
flowchart 257 
CHF-ROUT 
CTF-ROUT 

description 446 
flowchart 253 
CTH-ROUT 446 

description 446 
DET-ROUT 

description 447 
flowchart 240.5 
generating initial coding 44 
PGF-ROUT 

description 446 
flowchart 244 
PGH-ROUT 

description 446 
flowchart 251 
RPF-ROUT 

description 446 
flowchart 258 
RPH-ROUT 

description 446 
flowchart 247 
INT-ROUT routine from INITIATE 

verb 44 
LAST-ROLL instruction 440 
location of data items 449 . 
locations of elements 449-453 
logic flow diagram 442-449 
LST-ROUT routine from TERMINATE 

verb 
nonstandard data-names 447-448 
object module location 436 
parametric routines 440-446 



ALS-ROUT 

description 441 
flowchart 25 
CTB-ROUT 

description 441 
flowchart 242 
INT-ROUT 

description 441 
flowchart 255 
RET-ROUT 

description 441 
flowchart 254 
RLS-ROUT 

description 446 
flowchart 245 
ROL-ROUT 

description 441 
flowchart 249 
RST-ROUT 

description 441 
flowchart 248 
SAV-ROUT 

description 441 
flowchart 252 
USM-ROUT 

description 441 
flowchart 243 
producing fixed routines 47 
producing parametric routines 47 
Report Writer verbs 448 
residence in segmented program 121 
response to verbs 448-452 
routines 440-447 
RPT.LIN data item, from REDEFINES 

clause 45 
IST-ROUT routine, from GENERATE 
verb 44 
REPORT-CALL verb 448 
REPORT-ORIGIN verb 448 

processing with OPT 139,140 
REPORT-REORIGIN verb 448 
REPORT-RETURN-n verbs 448 
REPORT-SAVE-n verbs 448 
REPTAB table 323 
RERUN clause 

effect on coding 106 
processing in phase 10 41 
RERUNN switch (COMMON) 283,41 
RESERVE macro element 132 
RET-ROUT routine 
description 441 
flowchart 254 
RETURN verb 72 
REWIND bit in DTFs 66 
REWRITE statement 

output coding 465 
phase 11 processing 49 
processing using table pointers 42 
RGNCTR cell (COMMON) 
description 278 
used by phase 62 131 
RLD-text 123,140 
RLDTBL table 

description 324 

entries for Relocation Dictionary 

(RLD) 116 
phase 60 processing 123 
phase 63 processing 139,140 
RLS-ROUT routine 
description 446 
flowchart 245 
RNMTBL table (phases 11,12) 325 
RNMTBL table (phase 22) 



532 DOS/VS COBOL Compiler Program Logic 



Licensed Material — Property of IBM 



description 325 

Dictionary building 57 
ROL-ROUT routine 

description ^41 

flowchart 249 
ROLTBL table 325 
root segment 48. 1^438. 1-439 
ROUNDED clause 

effect on EVAL string 88 

temporary result 99 
ROUTBL table 326 
RPF-ROUT routine 

description 446 

flowchart 258 
RPH-ROUT routine 

description 446 

flowchart 247 
RPNCNTR cell (COMMON) 

description 279 

used by phase 62 131 
RPT.LIN cell 447 
RPT.RCD cell 447 
RPTSAV AREA field (TGT) 

description 434 

space allocation 113 
RPTSAV cell (COMMON) 

description 278 

TGT space allocation 113 
RST-ROUT routine 

description 441 

flowchart 248 
RWRTBL 

checking for priming 45 

description 326 

priming by phase 10 44 

use by phase 12 45 
RUIS (see Report Mriter Subprogram) 
RUIl counter 112 
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S.nnnn name cells 448 
S-point name cells 448 
SAME AREA clause 

BUFTAB table entries 68 

processing in phase 10 41 
SAME clause 41 
SAME RECORD AREA clause 

BUFTAB table entries 68 

effect on coding 106 

processing in phase 10 41 
SAME SORT AREA clause 41 
SATBL table 

description 327 

processing in phase 10 41 
SAV-ROUT routine 

description 441 

flowchart 252 
SAVE AREA field (TGT) 434 
SAVE AREA=2 field (TGT) 434 
SAVE AREA=3 field (TGT) 434 
save areas 418 
SA2CTR cell (COMMON) 278 
SA3CTR cell (COMMON) 286 
SBL (secondary base location) 472 
SBL CELLS field (TGT) 

assigning SBL 57 

description 434 

OCCURS. ..DEPENDING ON clauses 58 

Q-routines 57»59 



space allocation 113 
SBL number 

assignment 57 

definition 472 

variably located fields 59 
SBLCTR cell (COMMON) 277 
SD (see sort description entries) 
SD element 

(see also sort description entries) 

Data IC-text 341 

Dictionary entry 387 
SDSIZ cell (COMMON) 278 
SDSRATBL table 

description 327 

use in phase 21 68 
SDTF 

address element 67 

location 67 

location in object module 430 

location in storage 419 

number assigned 67 

order of addresses 419 
SDTFADR, space in PGT 436 

allocation 117*131 
SDTFCTR cell (COMMON) 

allocating PGT space 117 

description 282 
SDTXT routine 57 
SEARCH ALL statement 

example of processing 89-91 

flow of execution 91 

output 90 

phase 40 processing 89-91 
SEARCH routine 

STSRCH routine processing 74 

uniqueness of names 75 
SEARCH statement 

phase 30 processing 74-77 

uniqueness of names 75 
SEARCH verb analyzer 89 
SEARCH verb, Format-1 75-76 
SEARCH verb, Format-2 77 
SEARCHALL routine 89 
secondary base location (SBL), 

definition 472 
secondary DTF (see SDTF) 
section-names, PERFORM delimiters 85 
section 1. introduction 13-24 
section 2. method of 
operation 24.1-148.1 
section 3. program 

organization 149-258 
section 4. directory 259-274 
section 5. data areas 275-408 
section 6. diagnostic aids 409-420 
SEEK statement 

output coding 468.1 

phase 51 processing 106 
SEGINDX table 

built in phase 65 127 

description 327 
SEGLMT cell (COMMON) 

checking in phase 51 108 

description 279 

testing in phase 51 105 

use in phase 11 48.1 
SEGMENT element 

(see also Debug-text) 

phase 65 processing 126 

use in building Debug File 126 
SEGMENT-LIMIT clause 

effect on root segment 121 

processing in phase 11 48 
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segmentation control breaks 104-104.1 
segmentation feature 

ALTER statement 83 

control break 78 

definition 472 

description 438.1-439 

operations in phase 00 34 

optimi zati on 

order of reading segments 140 
procedure branching 108 
root segment 140 
segmentation control 
break 104-104.1 

passing control breaks 92.3 

phase 51 processing 104-104.1 

priority checking 48 

Procedure A-text processing 121 

procedure branching 108 

procedure-names 78 

root segment 121 

segment locations 438.1 

segment names 40 

SYMDMP processing 127 

use of CONTBL and CONDIS 
tables 118 
SEGNOTE function 104.1 
SEGPROC routine 122 
SEGTBL table 

description 328 
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